(* Content-type: application/vnd.wolfram.mathematica *)

(*** Wolfram Notebook File ***)
(* http://www.wolfram.com/nb *)

(* CreatedBy='Mathematica 9.0' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       157,          7]
NotebookDataLength[    816720,      15225]
NotebookOptionsPosition[    807417,      14932]
NotebookOutlinePosition[    808024,      14954]
CellTagsIndexPosition[    807981,      14951]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell["\<\
Appendix of the paper \"Loyalty discounts and price-cost tests,\" by Giacomo \
Calzolari and Vincenzo Denicol\[OGrave]\
\>", "Title",
 CellChangeTimes->{{3.71973060822268*^9, 3.7197306146654797`*^9}, {
   3.7322456846206603`*^9, 3.7322457554926605`*^9}, 3.7322457858346605`*^9, {
   3.732973887261488*^9, 3.732973892083488*^9}, 3.765018189438929*^9, {
   3.765855330304417*^9, 3.765855332960333*^9}, 3.767530580136758*^9, 
   3.767531259165545*^9, {3.7839192344889803`*^9, 3.7839192356419635`*^9}, {
   3.785226929530679*^9, 3.7852269688751783`*^9}}],

Cell[BoxData[
 RowBox[{"(*", 
  RowBox[{"December", " ", "2019"}], "*)"}]], "Input",
 CellChangeTimes->{{3.785226974180229*^9, 3.7852269840059347`*^9}}],

Cell[CellGroupData[{

Cell["Setup of the model", "Section",
 CellChangeTimes->{{3.73224580397766*^9, 3.7322458388276606`*^9}, {
   3.73224603277966*^9, 3.7322460567396603`*^9}, 3.7650182159170547`*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", 
   RowBox[{
    RowBox[{"Buyer", "'"}], "s", " ", "utility"}], "*)"}], 
  "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"v", "=", " ", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"q1", " ", "+", " ", "q2"}], ")"}], " ", "-", 
      RowBox[{
       RowBox[{"1", "/", "2"}], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"q1", "^", "2"}], " ", "+", " ", 
         RowBox[{"q2", "^", "2"}]}], ")"}]}], " ", "-", " ", 
      RowBox[{"\[Gamma]", "  ", "q1", "  ", "q2"}]}]}], ";"}], " ", 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"ve1", "=", 
     RowBox[{"v", "/.", 
      RowBox[{"q2", "\[Rule]", "0"}]}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"ve2", "=", 
     RowBox[{"v", "/.", 
      RowBox[{"q1", "\[Rule]", "0"}]}]}], ";"}]}]}]], "Input",
 CellChangeTimes->{{3.6430838325424433`*^9, 3.6430839031724434`*^9}, {
   3.6430888508859434`*^9, 3.643088853655944*^9}, {3.6430914144819436`*^9, 
   3.6430914941719437`*^9}, {3.643091560221944*^9, 3.6430915653619432`*^9}, {
   3.6430916331619434`*^9, 3.6430916468819437`*^9}, {3.643091685051944*^9, 
   3.6430917525619435`*^9}, {3.6430917968219433`*^9, 
   3.6430919083839436`*^9}, {3.64353514493536*^9, 3.6435351587056355`*^9}, 
   3.6609772896074085`*^9, {3.660977321278571*^9, 3.6609773565861654`*^9}, {
   3.6609774625639906`*^9, 3.6609774807231283`*^9}, {3.660977589162599*^9, 
   3.660977621661601*^9}, {3.660977861598258*^9, 3.6609779123098993`*^9}, {
   3.660978175796667*^9, 3.6609782413818645`*^9}, {3.6609831638312426`*^9, 
   3.6609831935685606`*^9}, {3.660993006842454*^9, 3.6609930396874056`*^9}, {
   3.661841060289663*^9, 3.661841338398471*^9}, {3.6620345916328564`*^9, 
   3.662034611425027*^9}, {3.6658051515536356`*^9, 3.6658051573204913`*^9}, {
   3.665892182883977*^9, 3.665892184233878*^9}, {3.694500337216502*^9, 
   3.6945003422865024`*^9}, {3.715574974757633*^9, 3.7155749936582336`*^9}, {
   3.7155752142106333`*^9, 3.7155752156458335`*^9}, 3.7167013656371765`*^9, {
   3.7167049715691767`*^9, 3.716705010258577*^9}}],

Cell[BoxData[
 RowBox[{"\[IndentingNewLine]", 
  RowBox[{"(*", 
   RowBox[{
    RowBox[{"Firms", "'"}], " ", "costs", " ", "and", " ", 
    RowBox[{"profits", ":", " ", 
     RowBox[{
     "first", " ", "we", " ", "will", " ", "study", " ", "the", " ", "case", 
      " ", "where", " ", "the", " ", "only", " ", "asymmetry", " ", "is", " ",
       "on", " ", "capacity", " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"i", ".", "e", ".", " ", "c"}], "=", "0"}], ")"}], " ", "and",
       " ", "then", " ", "we", " ", "will", " ", "introduce", " ", "back", 
      " ", "also", " ", "cost", " ", "asymmetry", " ", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{"c", ">", "0"}], ")"}], "."}]}]}]}], "*)"}], 
  "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"c1", "=", "0"}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"c2", "=", "c"}], ";"}], "\[IndentingNewLine]", 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"P1", "=", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"p1", "-", "c1"}], ")"}], " ", "q1"}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"P2", "=", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"p2", "-", "c2"}], " ", ")"}], " ", "q2"}]}], 
    ";"}]}]}]], "Input",
 CellChangeTimes->{{3.716701415056777*^9, 3.7167014246245766`*^9}, {
  3.718773680959347*^9, 3.71877368689695*^9}, {3.718773872415654*^9, 
  3.7187738766808977`*^9}, {3.71973062156068*^9, 3.71973062483668*^9}, {
  3.7202494320940237`*^9, 3.7202494820445232`*^9}, {3.7322458513886604`*^9, 
  3.73224589085266*^9}, {3.7645193739777317`*^9, 3.7645193754248514`*^9}, {
  3.764589573751876*^9, 3.764589574095544*^9}, {3.76499430957165*^9, 
  3.7649943653803124`*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell["Equilibrium with exclusivity", "Section",
 CellChangeTimes->{{3.7322460658106604`*^9, 3.7322460820496607`*^9}}],

Cell[BoxData[
 RowBox[{"(*", 
  RowBox[{
   RowBox[{
   "Reserve", " ", "utility", "  ", "is", " ", "obtaind", " ", "by", " ", 
    "maximizing", " ", "the", " ", 
    RowBox[{"buyer", "'"}], " ", "surplus", " ", "under", " ", "the", " ", 
    "constraint", " ", "that", " ", "firm", " ", "2", " ", "does", " ", "not",
     " ", "make", " ", "negative", " ", "profits"}], ",", " ", 
   RowBox[{
    RowBox[{"given", " ", "capacity", " ", "constraint", " ", "q2"}], 
    "\[LessEqual]", 
    RowBox[{
     RowBox[{
      RowBox[{"k", ".", " ", "This"}], " ", "entails", " ", "maximization", 
      " ", "of", " ", "bilateral", " ", "surplus", " ", "ve2"}], "-", 
     RowBox[{"c2", " ", 
      RowBox[{"q2", ".", " ", "Since"}], " ", "the", " ", "constraint", " ", 
      "is", " ", "always", " ", "binding", " ", 
      RowBox[{"(", 
       RowBox[{"by", " ", "assumption"}], ")"}]}]}]}], ",", " ", 
   RowBox[{"then", " ", "the", " ", "surplus", " ", 
    RowBox[{"is", ":"}]}]}], "*)"}]], "Input",
 CellChangeTimes->{{3.71973094356868*^9, 3.71973095802988*^9}, {
  3.7322459010926604`*^9, 3.73224596315666*^9}, {3.764519435549117*^9, 
  3.764519449880433*^9}, {3.7839193095687103`*^9, 3.78391936327754*^9}, {
  3.7839194045480657`*^9, 3.7839194495593247`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Ve2", "=", 
  RowBox[{"FullSimplify", "[", 
   RowBox[{
    RowBox[{"ve2", "-", 
     RowBox[{"c2", " ", "q2"}]}], "/.", 
    RowBox[{"q2", "\[Rule]", "k"}]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.71973087792388*^9, 3.71973096787348*^9}, {
  3.7202494444941483`*^9, 3.7202494635243382`*^9}, {3.73224594148466*^9, 
  3.7322459418366604`*^9}, {3.783919539153084*^9, 3.783919542747955*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"-", 
   FractionBox["1", "2"]}], " ", "k", " ", 
  RowBox[{"(", 
   RowBox[{
    RowBox[{"-", "2"}], "+", 
    RowBox[{"2", " ", "c"}], "+", "k"}], ")"}]}]], "Output",
 CellChangeTimes->{
  3.71973093721948*^9, 3.71973096976108*^9, 3.7202493171248713`*^9, 
   3.720249496034663*^9, 3.7235545871025515`*^9, 3.7242472549574003`*^9, 
   3.7242472952056837`*^9, 3.7243118668596177`*^9, 3.724398039380813*^9, 
   3.7244066534041853`*^9, 3.725864543546733*^9, 3.726202146003965*^9, 
   3.726227562139764*^9, 3.726552011936591*^9, 3.726914460801995*^9, 
   3.72701507641513*^9, 3.727075435065806*^9, 3.727155531161439*^9, 
   3.7271656314278393`*^9, 3.7272465859232454`*^9, 3.7293419772216063`*^9, 
   3.7294922611450253`*^9, 3.7318218305086603`*^9, 3.7319025743176603`*^9, {
   3.7322459538906603`*^9, 3.7322459686366606`*^9}, 3.7323339095476604`*^9, 
   3.7328595780059156`*^9, 3.732887116985627*^9, 3.7344380963438854`*^9, 
   3.7344413038188534`*^9, 3.7645194232220635`*^9, 3.7645194601770873`*^9, 
   3.764589600311444*^9, 3.764592859546343*^9, 3.764610245089218*^9, 
   3.76461037434764*^9, 3.7649942893506913`*^9, 3.765442783613619*^9, 
   3.7657734314505386`*^9, 3.765817595980613*^9, 3.7839195441969547`*^9, 
   3.784439002563286*^9, 3.784439316182762*^9, 3.784704899375763*^9, 
   3.7848751867416763`*^9, 3.785227041553338*^9}]
}, Open  ]],

Cell[BoxData[
 RowBox[{"(*", 
  RowBox[{
   RowBox[{
   "This", " ", "solution", " ", "could", " ", "be", " ", "implemented", " ", 
    "for", " ", "example"}], ",", " ", 
   RowBox[{
    RowBox[{"by", " ", "setting", " ", "p2"}], "=", 
    RowBox[{
     RowBox[{
      RowBox[{"D", "[", 
       RowBox[{"ve2", ",", "q2"}], "]"}], "/.", 
      RowBox[{"q2", "\[Rule]", 
       RowBox[{"k", " ", "and", " ", "then", " ", "F2"}]}]}], "=", 
     RowBox[{
      RowBox[{"-", 
       RowBox[{"(", 
        RowBox[{"p2", "-", "c2"}], ")"}]}], 
      RowBox[{"k", "."}]}]}]}]}], "*)"}]], "Input",
 CellChangeTimes->{{3.783919452502008*^9, 3.7839195285202503`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", 
   RowBox[{
   "Utility", " ", "in", " ", "exclusivity", " ", "with", " ", "firm", " ", 
    "1"}], "*)"}], "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"qe1", "=", 
    RowBox[{
     RowBox[{"FullSimplify", "[", 
      RowBox[{"Solve", "[", 
       RowBox[{
        RowBox[{
         RowBox[{"D", "[", 
          RowBox[{
           RowBox[{"ve1", "-", 
            RowBox[{"p1", " ", "q1"}]}], ",", "q1"}], "]"}], "\[Equal]", 
         "0"}], ",", "q1"}], "]"}], "]"}], "[", 
     RowBox[{"[", 
      RowBox[{"1", ",", "1", ",", "2"}], "]"}], "]"}]}], 
   "\[IndentingNewLine]", 
   RowBox[{"Ve1", "=", 
    RowBox[{"FullSimplify", "[", 
     RowBox[{
      RowBox[{"ve1", "-", 
       RowBox[{"p1", " ", "q1"}]}], "/.", 
      RowBox[{"q1", "\[Rule]", "qe1"}]}], "]"}]}]}]}]], "Input",
 CellChangeTimes->{{3.71973100484548*^9, 3.71973106134868*^9}, {
  3.7202495166248693`*^9, 3.7202495195348983`*^9}, {3.7202497034947405`*^9, 
  3.720249704644752*^9}, {3.7322459746056604`*^9, 3.7322459856696606`*^9}}],

Cell[BoxData[
 RowBox[{"1", "-", "p1"}]], "Output",
 CellChangeTimes->{{3.71973102437668*^9, 3.71973106175428*^9}, {
   3.720249325695958*^9, 3.72024935187622*^9}, 3.720249708614792*^9, 
   3.721480113784835*^9, 3.723554594294673*^9, 3.724247257934749*^9, 
   3.724247295219722*^9, 3.7243118668886633`*^9, 3.724398039380813*^9, 
   3.724406653444292*^9, 3.725864543562333*^9, 3.7262021460195646`*^9, 
   3.7262275621553636`*^9, 3.726552011936591*^9, 3.7269144608175945`*^9, 
   3.7270150764467497`*^9, 3.727075435081406*^9, 3.727155531173439*^9, 
   3.7271656314434395`*^9, 3.7272465859465537`*^9, 3.7293419772406564`*^9, 
   3.7294922611762247`*^9, 3.7318218316396604`*^9, 3.7319025754866605`*^9, 
   3.73224598643766*^9, 3.7323339095616603`*^9, 3.732859578022916*^9, 
   3.732887117064971*^9, 3.7344380964562206`*^9, 3.7344413038489337`*^9, 
   3.76451946365304*^9, 3.7645896021818457`*^9, 3.7645928595872326`*^9, 
   3.764610245132103*^9, 3.764610374390559*^9, 3.7649942893716707`*^9, 
   3.765442783672511*^9, 3.7657734314694843`*^9, 3.7658175962529263`*^9, 
   3.783919588124892*^9, 3.7844390025832305`*^9, 3.7844393162037263`*^9, 
   3.784704899410434*^9, 3.784875186777321*^9, 3.78522704156896*^9}],

Cell[BoxData[
 RowBox[{
  FractionBox["1", "2"], " ", 
  SuperscriptBox[
   RowBox[{"(", 
    RowBox[{
     RowBox[{"-", "1"}], "+", "p1"}], ")"}], "2"]}]], "Output",
 CellChangeTimes->{{3.71973102437668*^9, 3.71973106175428*^9}, {
   3.720249325695958*^9, 3.72024935187622*^9}, 3.720249708614792*^9, 
   3.721480113784835*^9, 3.723554594294673*^9, 3.724247257934749*^9, 
   3.724247295219722*^9, 3.7243118668886633`*^9, 3.724398039380813*^9, 
   3.724406653444292*^9, 3.725864543562333*^9, 3.7262021460195646`*^9, 
   3.7262275621553636`*^9, 3.726552011936591*^9, 3.7269144608175945`*^9, 
   3.7270150764467497`*^9, 3.727075435081406*^9, 3.727155531173439*^9, 
   3.7271656314434395`*^9, 3.7272465859465537`*^9, 3.7293419772406564`*^9, 
   3.7294922611762247`*^9, 3.7318218316396604`*^9, 3.7319025754866605`*^9, 
   3.73224598643766*^9, 3.7323339095616603`*^9, 3.732859578022916*^9, 
   3.732887117064971*^9, 3.7344380964562206`*^9, 3.7344413038489337`*^9, 
   3.76451946365304*^9, 3.7645896021818457`*^9, 3.7645928595872326`*^9, 
   3.764610245132103*^9, 3.764610374390559*^9, 3.7649942893716707`*^9, 
   3.765442783672511*^9, 3.7657734314694843`*^9, 3.7658175962529263`*^9, 
   3.783919588124892*^9, 3.7844390025832305`*^9, 3.7844393162037263`*^9, 
   3.784704899410434*^9, 3.784875186777321*^9, 3.78522704158458*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", 
   RowBox[{
   "Monopoly", " ", "price", " ", "in", " ", "exclusivity", " ", "firm", " ", 
    "1"}], "*)"}], "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"P1", "/.", 
     RowBox[{"q1", "\[Rule]", "qe1"}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{"p1mon", "=", 
    RowBox[{
     RowBox[{"FullSimplify", "[", 
      RowBox[{"Solve", "[", 
       RowBox[{
        RowBox[{
         RowBox[{"D", "[", 
          RowBox[{"%", ",", "p1"}], "]"}], "\[Equal]", "0"}], ",", "p1"}], 
       "]"}], "]"}], "[", 
     RowBox[{"[", 
      RowBox[{"1", ",", "1", ",", "2"}], "]"}], "]"}]}]}]}]], "Input",
 CellChangeTimes->{{3.723554781021204*^9, 3.723554824671243*^9}, {
  3.7235548655529633`*^9, 3.7235548724633408`*^9}, {3.7322460059006605`*^9, 
  3.7322460152136602`*^9}}],

Cell[BoxData[
 FractionBox["1", "2"]], "Output",
 CellChangeTimes->{{3.72355481646141*^9, 3.723554824946981*^9}, 
   3.723554872784219*^9, 3.7242472605491095`*^9, 3.724247295234762*^9, 
   3.7243118669338164`*^9, 3.724398039396413*^9, 3.7244066534964314`*^9, 
   3.725864543577933*^9, 3.726202146035165*^9, 3.7262275621865635`*^9, 
   3.7265520119677916`*^9, 3.7269144608331947`*^9, 3.727015076489863*^9, 
   3.727075435097006*^9, 3.727155531194439*^9, 3.727165631459039*^9, 
   3.7272465860078325`*^9, 3.7293419772697372`*^9, 3.729492261207424*^9, 
   3.7318218414616604`*^9, 3.7319025770756607`*^9, 3.7322460159176607`*^9, 
   3.7323339095866604`*^9, 3.7328595780479155`*^9, 3.732887117201841*^9, 
   3.7344380965654745`*^9, 3.7344413038810186`*^9, 3.764519479585457*^9, 
   3.7645896066170683`*^9, 3.764592859642086*^9, 3.764610245189967*^9, 
   3.764610374435443*^9, 3.764994289386633*^9, 3.765442783731331*^9, 
   3.765773431489457*^9, 3.7658175965531273`*^9, 3.7839196061371427`*^9, 
   3.784439002601183*^9, 3.784439316223688*^9, 3.7847048994341927`*^9, 
   3.7848751868332148`*^9, 3.78522704158458*^9}]
}, Open  ]],

Cell[BoxData[
 RowBox[{"(*", 
  RowBox[{
   RowBox[{
   "This", " ", "solution", " ", "applies", " ", "as", " ", "long", " ", "as",
     " ", "the", " ", 
    RowBox[{"buyer", "'"}], "s", " ", "utility", " ", "is", " ", "greater", 
    " ", "than", " ", "ve2", " ", "so", " ", "the", " ", "implied", " ", 
    "fixed", " ", "fees", " ", "is", " ", "strictly", " ", 
    RowBox[{"positive", ".", " ", "If"}], " ", "instead", " ", "the", " ", 
    "participation", " ", "constraint", " ", "is", " ", "binding"}], ",", " ", 
   RowBox[{
   "then", " ", "since", " ", "it", " ", "is", " ", "never", " ", "optimal", 
    " ", "to", " ", "set", " ", "a", " ", "negative", " ", "fixed", " ", 
    "fee"}], ",", " ", 
   RowBox[{
   "the", " ", "marginal", " ", "price", " ", "must", " ", "be", " ", "set", 
    " ", "so", " ", "as", " ", "to", " ", "guarantee", " ", 
    RowBox[{"participation", "."}]}]}], "*)"}]], "Input",
 CellChangeTimes->{{3.7839196360839524`*^9, 3.7839197517168117`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", 
   RowBox[{
   "The", " ", "optimal", " ", "exclusive", " ", "price", " ", "when", " ", 
    "firm", " ", "1", " ", "is", " ", "thus", " ", "constrained", " ", "and", 
    " ", 
    RowBox[{"is", ":"}]}], " ", "*)"}], "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"p1econstr", "=", 
    RowBox[{
     RowBox[{"FullSimplify", "[", 
      RowBox[{"Solve", "[", 
       RowBox[{
        RowBox[{"Ve2", "==", "Ve1"}], ",", "p1"}], "]"}], "]"}], "[", 
     RowBox[{"[", 
      RowBox[{"1", ",", "1", ",", "2"}], "]"}], "]"}]}], 
   "\[IndentingNewLine]", 
   RowBox[{"FullSimplify", "[", 
    RowBox[{"%", "/.", 
     RowBox[{"c", "\[Rule]", "0"}]}], "]"}]}]}]], "Input",
 CellChangeTimes->{{3.71973107732308*^9, 3.71973111551188*^9}, {
  3.7202497486251926`*^9, 3.7202497707884145`*^9}, {3.7237335428464923`*^9, 
  3.7237335447154546`*^9}, {3.73224618274866*^9, 3.7322462200126605`*^9}, {
  3.764589615603544*^9, 3.764589622186941*^9}, {3.7839197545402355`*^9, 
  3.7839197798503385`*^9}}],

Cell[BoxData[
 RowBox[{"1", "-", 
  SqrtBox[
   RowBox[{
    RowBox[{"-", "k"}], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", "2"}], "+", 
      RowBox[{"2", " ", "c"}], "+", "k"}], ")"}]}]]}]], "Output",
 CellChangeTimes->{{3.71973109764988*^9, 3.71973111608908*^9}, 
   3.7202493596962986`*^9, 3.720249714544851*^9, {3.720249755435261*^9, 
   3.7202497803285103`*^9}, {3.721480110976835*^9, 3.721480115766035*^9}, 
   3.7235546149907093`*^9, {3.7242472653995285`*^9, 3.724247295295493*^9}, 
   3.724311867061119*^9, 3.7243980394432135`*^9, 3.7244066536287856`*^9, 
   3.725864543624733*^9, 3.726202146113165*^9, 3.7262275622645636`*^9, 
   3.726552012014591*^9, 3.7269144608955946`*^9, 3.727015076605955*^9, 
   3.7270754351594057`*^9, 3.727155531253439*^9, 3.7271656315214396`*^9, 
   3.727246586117823*^9, 3.729341977359974*^9, 3.7294922613010225`*^9, 
   3.7318218336006603`*^9, 3.7319025786906605`*^9, {3.7322462149676604`*^9, 
   3.73224622019466*^9}, 3.7323339096606607`*^9, 3.7328595781099157`*^9, 
   3.732887117344221*^9, 3.7344380967248983`*^9, 3.734441303963239*^9, 
   3.764519490860611*^9, {3.764589609112656*^9, 3.7645896225611024`*^9}, 
   3.76459285970994*^9, 3.764610245254775*^9, 3.76461037449926*^9, 
   3.764994289445462*^9, 3.7654427838360248`*^9, 3.7657734315722084`*^9, 
   3.7658175969480996`*^9, 3.783919783107102*^9, 3.784439002644739*^9, 
   3.784439316272549*^9, 3.784704899495816*^9, 3.7848751869558764`*^9, 
   3.785227041631501*^9}],

Cell[BoxData[
 RowBox[{"1", "-", 
  SqrtBox[
   RowBox[{
    RowBox[{"-", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"-", "2"}], "+", "k"}], ")"}]}], " ", "k"}]]}]], "Output",
 CellChangeTimes->{{3.71973109764988*^9, 3.71973111608908*^9}, 
   3.7202493596962986`*^9, 3.720249714544851*^9, {3.720249755435261*^9, 
   3.7202497803285103`*^9}, {3.721480110976835*^9, 3.721480115766035*^9}, 
   3.7235546149907093`*^9, {3.7242472653995285`*^9, 3.724247295295493*^9}, 
   3.724311867061119*^9, 3.7243980394432135`*^9, 3.7244066536287856`*^9, 
   3.725864543624733*^9, 3.726202146113165*^9, 3.7262275622645636`*^9, 
   3.726552012014591*^9, 3.7269144608955946`*^9, 3.727015076605955*^9, 
   3.7270754351594057`*^9, 3.727155531253439*^9, 3.7271656315214396`*^9, 
   3.727246586117823*^9, 3.729341977359974*^9, 3.7294922613010225`*^9, 
   3.7318218336006603`*^9, 3.7319025786906605`*^9, {3.7322462149676604`*^9, 
   3.73224622019466*^9}, 3.7323339096606607`*^9, 3.7328595781099157`*^9, 
   3.732887117344221*^9, 3.7344380967248983`*^9, 3.734441303963239*^9, 
   3.764519490860611*^9, {3.764589609112656*^9, 3.7645896225611024`*^9}, 
   3.76459285970994*^9, 3.764610245254775*^9, 3.76461037449926*^9, 
   3.764994289445462*^9, 3.7654427838360248`*^9, 3.7657734315722084`*^9, 
   3.7658175969480996`*^9, 3.783919783107102*^9, 3.784439002644739*^9, 
   3.784439316272549*^9, 3.784704899495816*^9, 3.7848751869558764`*^9, 
   3.785227041647066*^9}]
}, Open  ]],

Cell[BoxData[
 RowBox[{"(*", 
  RowBox[{
   RowBox[{
   "In", " ", "this", " ", "constrained", " ", "case", " ", "is", " ", 
    "exactly", " ", "F1"}], "=", "0."}], "*)"}]], "Input",
 CellChangeTimes->{{3.783919806514454*^9, 3.7839198211121264`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", 
   RowBox[{
   "Where", " ", "the", " ", "constrained", " ", "exclusive", " ", "price", 
    " ", 
    RowBox[{"prevails", ":", " ", 
     RowBox[{
     "for", " ", "k", " ", "larger", " ", "than", " ", "the", " ", 
      "following", " ", "threshold", " ", "the", " ", "exclusive", " ", 
      "price", " ", "is", " ", "the", " ", "constrained", " ", 
      RowBox[{"one", "."}]}]}]}], "*)"}], "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"p1mon", ";"}], "\[IndentingNewLine]", 
   RowBox[{"p1econstr", ";"}], "\[IndentingNewLine]", 
   RowBox[{"Manipulate", "[", 
    RowBox[{
     RowBox[{"Plot", "[", 
      RowBox[{
       RowBox[{"%", "-", "%%"}], ",", 
       RowBox[{"{", 
        RowBox[{"k", ",", "0", ",", "1"}], "}"}]}], "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"c", ",", "0", ",", "1"}], "}"}]}], "]"}]}]}]], "Input",
 CellChangeTimes->{{3.7197312368330803`*^9, 3.71973128302468*^9}, 
   3.720249745445161*^9, 3.7202497759684663`*^9, {3.721480120118435*^9, 
   3.7214801580238347`*^9}, {3.721480878000035*^9, 3.721480880620835*^9}, {
   3.7235547144873204`*^9, 3.7235547301910777`*^9}, 3.7235548354468985`*^9, {
   3.7235548770565557`*^9, 3.7235548906376767`*^9}, 3.723554984691799*^9, {
   3.72373325835467*^9, 3.7237332700577717`*^9}, {3.723733309352271*^9, 
   3.723733313268687*^9}, {3.723817358892923*^9, 3.7238173605224013`*^9}, {
   3.7322462506056604`*^9, 3.7322463442696605`*^9}, {3.7322464640936604`*^9, 
   3.7322464674456606`*^9}, {3.7322465068296604`*^9, 
   3.7322465611656604`*^9}, {3.764519575741855*^9, 3.764519583060793*^9}, {
   3.764519650429033*^9, 3.764519672966897*^9}, 3.76458964251484*^9, {
   3.7649945942068453`*^9, 3.7649946156315436`*^9}}],

Cell[BoxData[
 TagBox[
  StyleBox[
   DynamicModuleBox[{$CellContext`c$$ = 0, Typeset`show$$ = True, 
    Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", 
    Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = 
    "\"untitled\"", Typeset`specs$$ = {{
      Hold[$CellContext`c$$], 0, 1}}, Typeset`size$$ = {486., {139., 148.}}, 
    Typeset`update$$ = 0, Typeset`initDone$$, Typeset`skipInitDone$$ = 
    True, $CellContext`c$33817$$ = 0}, 
    DynamicBox[Manipulate`ManipulateBoxes[
     1, StandardForm, "Variables" :> {$CellContext`c$$ = 0}, 
      "ControllerVariables" :> {
        Hold[$CellContext`c$$, $CellContext`c$33817$$, 0]}, 
      "OtherVariables" :> {
       Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$, 
        Typeset`animator$$, Typeset`animvar$$, Typeset`name$$, 
        Typeset`specs$$, Typeset`size$$, Typeset`update$$, Typeset`initDone$$,
         Typeset`skipInitDone$$}, "Body" :> 
      Plot[(1 - (-$CellContext`k (-2 + 2 $CellContext`c$$ + $CellContext`k))^
         Rational[1, 2]) - Rational[1, 2], {$CellContext`k, 0, 1}], 
      "Specifications" :> {{$CellContext`c$$, 0, 1}}, "Options" :> {}, 
      "DefaultOptions" :> {}],
     ImageSizeCache->{551., {202., 209.}},
     SingleEvaluation->True],
    Deinitialization:>None,
    DynamicModuleValues:>{},
    SynchronousInitialization->True,
    UnsavedVariables:>{Typeset`initDone$$},
    UntrackedVariables:>{Typeset`size$$}], "Manipulate",
   Deployed->True,
   StripOnInput->False],
  Manipulate`InterpretManipulate[1]]], "Output",
 CellChangeTimes->{{3.7322463253246603`*^9, 3.7322463450156603`*^9}, 
   3.7322464706626606`*^9, {3.7322465131266603`*^9, 3.7322465242946606`*^9}, 
   3.7323339096776605`*^9, 3.7328595799459157`*^9, 3.7328871175076303`*^9, 
   3.7344380975485897`*^9, 3.7344413039993715`*^9, 3.764519517364171*^9, 
   3.764519583943157*^9, 3.7645896430304103`*^9, 3.764592859838561*^9, 
   3.764610245311655*^9, 3.7646103745581117`*^9, 3.7649942894843674`*^9, 
   3.7654427859960175`*^9, 3.765773431728791*^9, 3.7658175977831984`*^9, 
   3.7844390043187323`*^9, 3.7844393163134127`*^9, 3.7847049009939876`*^9, 
   3.7848751904361153`*^9, 3.7852270432088065`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"FullSimplify", "[", 
   RowBox[{"Solve", "[", 
    RowBox[{
     RowBox[{"p1econstr", "\[Equal]", "p1mon"}], ",", "k"}], "]"}], "]"}], 
  "\[IndentingNewLine]", 
  RowBox[{"(*", 
   RowBox[{
   "The", " ", "relevant", " ", "root", " ", "is", " ", "the", " ", "small", 
    " ", 
    RowBox[{"one", ":"}]}], "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"kpe1constr", "=", 
   RowBox[{"%", "[", 
    RowBox[{"[", 
     RowBox[{"1", ",", "1", ",", "2"}], "]"}], "]"}]}], ";"}]}], "Input",
 CellChangeTimes->{{3.721480176515835*^9, 3.7214801850802345`*^9}, {
   3.7214803180066347`*^9, 3.721480470743435*^9}, {3.721480601665835*^9, 
   3.721480656309435*^9}, {3.7214809002882347`*^9, 3.7214809518570347`*^9}, {
   3.723554942011342*^9, 3.72355497179049*^9}, {3.723732775304057*^9, 
   3.7237327807595377`*^9}, {3.7237328317481723`*^9, 3.723732834246791*^9}, {
   3.7238174230672264`*^9, 3.723817424146182*^9}, {3.7322466273646603`*^9, 
   3.7322466328376603`*^9}, {3.764519685846712*^9, 3.764519750900915*^9}, 
   3.7645896559013767`*^9, {3.76499444789853*^9, 3.764994457497845*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"k", "\[Rule]", 
     RowBox[{"1", "-", "c", "-", 
      RowBox[{
       FractionBox["1", "2"], " ", 
       SqrtBox[
        RowBox[{"3", "+", 
         RowBox[{"4", " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"-", "2"}], "+", "c"}], ")"}], " ", "c"}]}]]}]}]}], "}"}],
    ",", 
   RowBox[{"{", 
    RowBox[{"k", "\[Rule]", 
     RowBox[{
      FractionBox["1", "2"], " ", 
      RowBox[{"(", 
       RowBox[{"2", "-", 
        RowBox[{"2", " ", "c"}], "+", 
        SqrtBox[
         RowBox[{"3", "+", 
          RowBox[{"4", " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"-", "2"}], "+", "c"}], ")"}], " ", "c"}]}]]}], 
       ")"}]}]}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{
  3.721480185392235*^9, {3.721480319941035*^9, 3.721480471180235*^9}, 
   3.7214806576042347`*^9, {3.721480911364235*^9, 3.7214809527150345`*^9}, {
   3.7235549490981407`*^9, 3.723554972474307*^9}, 3.7237327818373957`*^9, 
   3.7237328348002462`*^9, 3.7238174255549994`*^9, 3.724247296361546*^9, 
   3.7243118672696724`*^9, 3.7243980395836134`*^9, 3.724406653856391*^9, 
   3.725864544482733*^9, 3.726202146331565*^9, 3.7262275647459636`*^9, 
   3.726552012154991*^9, 3.726914462613595*^9, 3.727015076821222*^9, 
   3.727075435315406*^9, 3.7271555314104395`*^9, 3.7271656316618395`*^9, 
   3.727246586360555*^9, 3.729341977983134*^9, 3.7294922631573863`*^9, 
   3.7318218502266607`*^9, 3.7319025828826604`*^9, 3.7322465821046605`*^9, 
   3.7322466331886606`*^9, 3.7323339097806606`*^9, 3.732859580077916*^9, 
   3.732887117791171*^9, 3.7344380978574066`*^9, 3.7344413040996027`*^9, 
   3.7645197321323004`*^9, 3.764589656542534*^9, 3.76459285993934*^9, 
   3.764610245422403*^9, 3.764610374654857*^9, 3.7649942896040616`*^9, 
   3.7654427862399373`*^9, 3.7657734318404913`*^9, 3.7658175981707706`*^9, 
   3.7839199199538865`*^9, 3.784439004458946*^9, 3.7844393164287343`*^9, 
   3.784704901147964*^9, 3.784875190721887*^9, 3.7852270433181553`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", 
   RowBox[{"Summarizing", ",", " ", 
    RowBox[{"in", " ", "exclusivity", " ", "the", " ", 
     RowBox[{"buyer", "'"}], "s", " ", "payoff", " ", "gross", " ", "of", " ",
      "the", " ", "fixed", " ", "fees", " ", "is"}], ",", " ", 
    RowBox[{
     RowBox[{"respectively", " ", "when", " ", "k"}], "<", 
     RowBox[{
      RowBox[{"(", ">", ")"}], 
      RowBox[{"kpe1constr", ":"}]}]}]}], "*)"}], "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"Ve1mon", "=", 
    RowBox[{"Ve1", "/.", 
     RowBox[{"p1", "\[Rule]", "p1mon"}]}]}], "\[IndentingNewLine]", 
   RowBox[{"Ve1constr", "=", 
    RowBox[{"Ve1", "/.", 
     RowBox[{"p1", "\[Rule]", "p1econstr"}]}]}]}]}]], "Input",
 CellChangeTimes->{{3.7649973683148675`*^9, 3.7649974883746557`*^9}, {
  3.7649975802009597`*^9, 3.764997614968951*^9}, {3.783919889971961*^9, 
  3.7839199160013537`*^9}}],

Cell[BoxData[
 FractionBox["1", "8"]], "Output",
 CellChangeTimes->{{3.764997370796194*^9, 3.7649973937697268`*^9}, {
   3.7649974266886497`*^9, 3.7649974499903584`*^9}, 3.764997568228971*^9, 
   3.765442786301772*^9, 3.765773431854453*^9, 3.765817598290479*^9, 
   3.783919922270692*^9, 3.7844390044689317`*^9, 3.7844393164436746`*^9, 
   3.7847049011616735`*^9, 3.784875190739209*^9, 3.785227043380603*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"-", 
   FractionBox["1", "2"]}], " ", "k", " ", 
  RowBox[{"(", 
   RowBox[{
    RowBox[{"-", "2"}], "+", 
    RowBox[{"2", " ", "c"}], "+", "k"}], ")"}]}]], "Output",
 CellChangeTimes->{{3.764997370796194*^9, 3.7649973937697268`*^9}, {
   3.7649974266886497`*^9, 3.7649974499903584`*^9}, 3.764997568228971*^9, 
   3.765442786301772*^9, 3.765773431854453*^9, 3.765817598290479*^9, 
   3.783919922270692*^9, 3.7844390044689317`*^9, 3.7844393164436746`*^9, 
   3.7847049011616735`*^9, 3.784875190739209*^9, 3.785227043380603*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", 
   RowBox[{
   "Minimal", " ", "c", " ", "for", " ", "having", " ", "firm", " ", "1", " ",
     "more", " ", "efficient", " ", "than", " ", "firm", " ", "2", " ", "for",
     " ", "any", " ", "combination", " ", "of", " ", "c", " ", "and", " ", 
    RowBox[{"K", ":"}]}], "*)"}], "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"FullSimplify", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"v", "/.", 
       RowBox[{"q1", "->", "q1mon"}]}], "/.", 
      RowBox[{"q2", "\[Rule]", "0"}]}], "/.", 
     RowBox[{"p1", "\[Rule]", "0"}]}], "]"}], "\[IndentingNewLine]", 
   RowBox[{"FullSimplify", "[", 
    RowBox[{
     RowBox[{
      RowBox[{
       RowBox[{"v", "-", 
        RowBox[{"p2", " ", "q2"}]}], "/.", 
       RowBox[{"q2", "\[Rule]", "k"}]}], "/.", 
      RowBox[{"q1", "\[Rule]", "0"}]}], "/.", 
     RowBox[{"p2", "\[Rule]", "c"}]}], "]"}], "\[IndentingNewLine]", 
   RowBox[{"cmin", "=", 
    RowBox[{
     RowBox[{"FullSimplify", "[", 
      RowBox[{"Solve", "[", 
       RowBox[{
        RowBox[{"%%", "\[Equal]", "%"}], ",", "c"}], "]"}], "]"}], "[", 
     RowBox[{"[", 
      RowBox[{"1", ",", "1", ",", "2"}], "]"}], "]"}]}]}]}]], "Input",
 CellChangeTimes->{{3.7850613913915453`*^9, 3.785061423990044*^9}, {
  3.7850614635359054`*^9, 3.7850615298975487`*^9}, {3.7850617690695667`*^9, 
  3.78506187401552*^9}, {3.785227032475865*^9, 3.785227035600086*^9}}],

Cell[BoxData[
 FractionBox["1", "2"]], "Output",
 CellChangeTimes->{{3.7850614671211867`*^9, 3.785061512877899*^9}, {
   3.785061795434937*^9, 3.7850618411865654`*^9}, 3.785061874252369*^9, 
   3.7851729690879617`*^9, {3.785227036193657*^9, 3.785227043396224*^9}, 
   3.7852275955139427`*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"-", 
   FractionBox["1", "2"]}], " ", "k", " ", 
  RowBox[{"(", 
   RowBox[{
    RowBox[{"-", "2"}], "+", 
    RowBox[{"2", " ", "c"}], "+", "k"}], ")"}]}]], "Output",
 CellChangeTimes->{{3.7850614671211867`*^9, 3.785061512877899*^9}, {
   3.785061795434937*^9, 3.7850618411865654`*^9}, 3.785061874252369*^9, 
   3.7851729690879617`*^9, {3.785227036193657*^9, 3.785227043396224*^9}, 
   3.7852275955139427`*^9}],

Cell[BoxData[
 RowBox[{"-", 
  FractionBox[
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", "1"}], "+", "k"}], ")"}], "2"], 
   RowBox[{"2", " ", "k"}]]}]], "Output",
 CellChangeTimes->{{3.7850614671211867`*^9, 3.785061512877899*^9}, {
   3.785061795434937*^9, 3.7850618411865654`*^9}, 3.785061874252369*^9, 
   3.7851729690879617`*^9, {3.785227036193657*^9, 3.785227043396224*^9}, 
   3.785227595529565*^9}]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Non-Exclusive equilibrium and figures 1 and 2", "Section",
 CellChangeTimes->{{3.7322460658106604`*^9, 3.7322460820496607`*^9}, {
   3.7328870346143274`*^9, 3.732887038616195*^9}, {3.7657734341493626`*^9, 
   3.765773498171097*^9}, 3.7675306498542037`*^9, 3.767530819856989*^9, {
   3.784014289594369*^9, 3.784014291820465*^9}}],

Cell[CellGroupData[{

Cell["Regime with k large", "Subsection",
 CellChangeTimes->{{3.7322468572446604`*^9, 3.7322468651396604`*^9}, {
  3.764994677164895*^9, 3.764994698616443*^9}, {3.764996708353627*^9, 
  3.7649967125563817`*^9}, {3.7839199655575194`*^9, 3.783919967102278*^9}, {
  3.783926166267659*^9, 3.7839261699381237`*^9}}],

Cell[BoxData[
 RowBox[{"(*", 
  RowBox[{
   RowBox[{
   "We", " ", "first", " ", "determine", " ", "the", " ", "equilibrium", " ", 
    "for", " ", "k", " ", "suffiently", " ", "large"}], ",", " ", 
   RowBox[{
   "that", " ", "firms", " ", "prices", " ", "at", " ", "\"\<Bertrand\>\"", 
    " ", 
    RowBox[{"prices", "."}]}]}], "*)"}]], "Input",
 CellChangeTimes->{{3.7322467941256604`*^9, 3.73224684148466*^9}, {
  3.7645897115719414`*^9, 3.7645897218300323`*^9}, {3.7649969247476835`*^9, 
  3.764996999820837*^9}, {3.783919974123331*^9, 3.783920004122925*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"qNE", "=", 
  RowBox[{
   RowBox[{"FullSimplify", "[", 
    RowBox[{"Solve", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{
         RowBox[{"D", "[", 
          RowBox[{
           RowBox[{"v", "-", 
            RowBox[{"p1", " ", "q1"}], "-", 
            RowBox[{"p2", " ", "q2"}]}], ",", "q1"}], "]"}], "\[Equal]", 
         "0"}], ",", 
        RowBox[{
         RowBox[{"D", "[", 
          RowBox[{
           RowBox[{"v", "-", 
            RowBox[{"p1", " ", "q1"}], "-", 
            RowBox[{"p2", " ", "q2"}]}], ",", "q2"}], "]"}], "\[Equal]", 
         "0"}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"q1", ",", "q2"}], "}"}]}], "]"}], "]"}], "[", 
   RowBox[{"[", "1", "]"}], "]"}]}]], "Input",
 CellChangeTimes->{{3.7197313908206797`*^9, 3.71973145370428*^9}, {
  3.71973164758108*^9, 3.71973165981148*^9}, {3.7235550475850573`*^9, 
  3.72355504961646*^9}, {3.783920006094955*^9, 3.7839200114164767`*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"q1", "\[Rule]", 
    FractionBox[
     RowBox[{
      RowBox[{"-", "1"}], "+", "p1", "+", "\[Gamma]", "-", 
      RowBox[{"p2", " ", "\[Gamma]"}]}], 
     RowBox[{
      RowBox[{"-", "1"}], "+", 
      SuperscriptBox["\[Gamma]", "2"]}]]}], ",", 
   RowBox[{"q2", "\[Rule]", 
    FractionBox[
     RowBox[{
      RowBox[{"-", "1"}], "+", "p2", "+", "\[Gamma]", "-", 
      RowBox[{"p1", " ", "\[Gamma]"}]}], 
     RowBox[{
      RowBox[{"-", "1"}], "+", 
      SuperscriptBox["\[Gamma]", "2"]}]]}]}], "}"}]], "Output",
 CellChangeTimes->{{3.71973144069388*^9, 3.71973145599748*^9}, 
   3.71973166052908*^9, 3.71973295270828*^9, 3.720249376336465*^9, 
   3.720249789498602*^9, 3.7214807164664345`*^9, 3.7235550508417177`*^9, 
   3.7242472965995646`*^9, 3.72431186750334*^9, 3.724398039848813*^9, 
   3.724406654106056*^9, 3.725864544654333*^9, 3.726202146612365*^9, 
   3.7262275649799633`*^9, 3.726552012295391*^9, 3.726914462816395*^9, 
   3.7270150770899024`*^9, 3.727075435455806*^9, 3.7271555316224394`*^9, 
   3.7271656318646393`*^9, 3.7272465868280153`*^9, 3.7293419783551226`*^9, 
   3.7294922636097775`*^9, 3.73182186461666*^9, 3.7319025859736605`*^9, 
   3.7322467205676603`*^9, 3.73233390990466*^9, 3.732859580318916*^9, 
   3.7328874041371465`*^9, 3.7344380981902914`*^9, 3.734441304276138*^9, 
   3.7645197638900394`*^9, 3.7645896621399126`*^9, 3.7645928836638627`*^9, 
   3.76461024547821*^9, 3.764610388514805*^9, 3.764994632295946*^9, 
   3.765442790153652*^9, 3.7657734471615524`*^9, 3.765817598628669*^9, {
   3.7839200092705507`*^9, 3.783920012033495*^9}, 3.7844390085787354`*^9, 
   3.7844393306507063`*^9, 3.784704908967637*^9, 3.784875194204321*^9, 
   3.7851726787080665`*^9, 3.785227088343149*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", 
   RowBox[{"\"\<Bertrand\>\"", " ", "equilibrium"}], "*)"}], 
  "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"P2", "/.", "qNE"}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"P1", "/.", "qNE"}], ";"}], "\[IndentingNewLine]", 
   RowBox[{"pNE", "=", 
    RowBox[{
     RowBox[{"FullSimplify", "[", 
      RowBox[{"Solve", "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{
           RowBox[{"D", "[", 
            RowBox[{"%", ",", "p1"}], "]"}], "\[Equal]", "0"}], ",", 
          RowBox[{
           RowBox[{"D", "[", 
            RowBox[{"%%", ",", "p2"}], "]"}], "\[Equal]", "0"}]}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"p1", ",", "p2"}], "}"}]}], "]"}], "]"}], "[", 
     RowBox[{"[", "1", "]"}], "]"}]}], "\[IndentingNewLine]", 
   RowBox[{"VCRNE", "=", 
    RowBox[{"FullSimplify", "[", 
     RowBox[{
      RowBox[{
       RowBox[{"v", "-", 
        RowBox[{"q1", " ", "p1"}], "-", 
        RowBox[{"q2", " ", "p2"}]}], "/.", "qNE"}], "/.", "pNE"}], 
     "]"}]}]}]}]], "Input",
 CellChangeTimes->{{3.71973146456188*^9, 3.71973152898988*^9}, {
  3.7235550584118605`*^9, 3.723555067053859*^9}, {3.7322467731656604`*^9, 
  3.7322467853886604`*^9}, {3.764997038242012*^9, 3.764997039031925*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"p1", "\[Rule]", 
    FractionBox[
     RowBox[{
      RowBox[{"-", "2"}], "+", "\[Gamma]", "-", 
      RowBox[{"c", " ", "\[Gamma]"}], "+", 
      SuperscriptBox["\[Gamma]", "2"]}], 
     RowBox[{
      RowBox[{"-", "4"}], "+", 
      SuperscriptBox["\[Gamma]", "2"]}]]}], ",", 
   RowBox[{"p2", "\[Rule]", 
    FractionBox[
     RowBox[{
      RowBox[{"-", "2"}], "-", 
      RowBox[{"2", " ", "c"}], "+", "\[Gamma]", "+", 
      SuperscriptBox["\[Gamma]", "2"]}], 
     RowBox[{
      RowBox[{"-", "4"}], "+", 
      SuperscriptBox["\[Gamma]", "2"]}]]}]}], "}"}]], "Output",
 CellChangeTimes->{{3.71973151385788*^9, 3.71973153171988*^9}, 
   3.71973166595788*^9, 3.7197319121570797`*^9, 3.7202493829805326`*^9, 
   3.7202497984306912`*^9, 3.7214807177144346`*^9, {3.7235550551190915`*^9, 
   3.72355506744287*^9}, 3.7242472966759005`*^9, 3.7243118675825133`*^9, 
   3.724398039895613*^9, 3.7244066541852694`*^9, 3.725864544701133*^9, 
   3.726202146659165*^9, 3.726227565026764*^9, 3.726552012357791*^9, 
   3.7269144628631945`*^9, 3.7270150771717424`*^9, 3.727075435502606*^9, 
   3.727155531677439*^9, 3.727165631927039*^9, 3.7272465869112425`*^9, 
   3.7293419784393463`*^9, 3.729492263656577*^9, 3.7318218668096604`*^9, 
   3.7319025872976604`*^9, 3.7322467304206605`*^9, 3.7323339099526606`*^9, 
   3.732859580369916*^9, 3.7328874044185104`*^9, 3.734438098353726*^9, 
   3.7344413043573184`*^9, 3.7645197698615494`*^9, 3.764589666036742*^9, 
   3.764592883748674*^9, 3.7646102455350723`*^9, 3.7646103886005344`*^9, 
   3.764994634782237*^9, 3.764997039872616*^9, 3.765442790231668*^9, 
   3.765773447210413*^9, 3.765817598842989*^9, 3.7839200144919453`*^9, 
   3.7844390086089764`*^9, 3.784439330686637*^9, 3.784704908998114*^9, 
   3.784875194277787*^9, 3.785172678739309*^9, 3.785227088374384*^9}],

Cell[BoxData[
 FractionBox[
  RowBox[{
   RowBox[{
    RowBox[{"-", "4"}], " ", 
    RowBox[{"(", 
     RowBox[{"2", "+", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         RowBox[{"-", "2"}], "+", "c"}], ")"}], " ", "c"}]}], ")"}]}], "+", 
   RowBox[{"3", " ", 
    RowBox[{"(", 
     RowBox[{"2", "+", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         RowBox[{"-", "2"}], "+", "c"}], ")"}], " ", "c"}]}], ")"}], " ", 
    SuperscriptBox["\[Gamma]", "2"]}], "-", 
   RowBox[{"2", " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", "1"}], "+", "c"}], ")"}], " ", 
    SuperscriptBox["\[Gamma]", "3"]}]}], 
  RowBox[{"2", " ", 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", "4"}], "+", 
      SuperscriptBox["\[Gamma]", "2"]}], ")"}], "2"], " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{"-", "1"}], "+", 
     SuperscriptBox["\[Gamma]", "2"]}], ")"}]}]]], "Output",
 CellChangeTimes->{{3.71973151385788*^9, 3.71973153171988*^9}, 
   3.71973166595788*^9, 3.7197319121570797`*^9, 3.7202493829805326`*^9, 
   3.7202497984306912`*^9, 3.7214807177144346`*^9, {3.7235550551190915`*^9, 
   3.72355506744287*^9}, 3.7242472966759005`*^9, 3.7243118675825133`*^9, 
   3.724398039895613*^9, 3.7244066541852694`*^9, 3.725864544701133*^9, 
   3.726202146659165*^9, 3.726227565026764*^9, 3.726552012357791*^9, 
   3.7269144628631945`*^9, 3.7270150771717424`*^9, 3.727075435502606*^9, 
   3.727155531677439*^9, 3.727165631927039*^9, 3.7272465869112425`*^9, 
   3.7293419784393463`*^9, 3.729492263656577*^9, 3.7318218668096604`*^9, 
   3.7319025872976604`*^9, 3.7322467304206605`*^9, 3.7323339099526606`*^9, 
   3.732859580369916*^9, 3.7328874044185104`*^9, 3.734438098353726*^9, 
   3.7344413043573184`*^9, 3.7645197698615494`*^9, 3.764589666036742*^9, 
   3.764592883748674*^9, 3.7646102455350723`*^9, 3.7646103886005344`*^9, 
   3.764994634782237*^9, 3.764997039872616*^9, 3.765442790231668*^9, 
   3.765773447210413*^9, 3.765817598842989*^9, 3.7839200144919453`*^9, 
   3.7844390086089764`*^9, 3.784439330686637*^9, 3.784704908998114*^9, 
   3.784875194277787*^9, 3.785172678739309*^9, 3.785227088425332*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", 
   RowBox[{
   "Firm", " ", "2", " ", "is", " ", "constrained", " ", "when", " ", "k", 
    " ", "is", " ", "smaller", " ", "than", " ", "the", " ", 
    RowBox[{"following", ":"}]}], "*)"}], "\[IndentingNewLine]", 
  RowBox[{"FullSimplify", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"qNE", "[", 
      RowBox[{"[", 
       RowBox[{"2", ",", "2"}], "]"}], "]"}], "/.", "pNE"}], "/.", 
    RowBox[{"c", "\[Rule]", "0"}]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.720251140666134*^9, 3.7202511434561615`*^9}, {
   3.7214797289622345`*^9, 3.721479729442235*^9}, {3.7237304287352057`*^9, 
   3.723730442485817*^9}, {3.7238174871501317`*^9, 3.7238174930180693`*^9}, 
   3.723883339888621*^9, {3.7322469137516603`*^9, 3.7322469425026608`*^9}, {
   3.7322470194626603`*^9, 3.7322470772456603`*^9}, {3.7645200094485335`*^9, 
   3.7645200443173246`*^9}, {3.764589764079755*^9, 3.764589796840158*^9}, {
   3.7646082568897467`*^9, 3.764608269085183*^9}, 3.7649970542262087`*^9}],

Cell[BoxData[
 FractionBox["1", 
  RowBox[{"2", "+", "\[Gamma]", "-", 
   SuperscriptBox["\[Gamma]", "2"]}]]], "Output",
 CellChangeTimes->{3.7839200313390346`*^9, 3.7844390086686697`*^9, 
  3.784439330754429*^9, 3.784704909057128*^9, 3.784875194383085*^9, 
  3.785172678801792*^9, 3.785227088441288*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", 
   RowBox[{"For", " ", "future", " ", 
    RowBox[{"reference", ":", " ", 
     RowBox[{"efficient", " ", "quantitites"}]}]}], "*)"}], 
  "\[IndentingNewLine]", 
  RowBox[{"qeff", "=", 
   RowBox[{"FullSimplify", "[", 
    RowBox[{"Solve", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{
         RowBox[{"D", "[", 
          RowBox[{
           RowBox[{"v", "-", 
            RowBox[{
             RowBox[{"(", "c", ")"}], " ", "q2"}]}], ",", "q1"}], "]"}], 
         "\[Equal]", "0"}], ",", 
        RowBox[{
         RowBox[{"D", "[", 
          RowBox[{
           RowBox[{"v", "-", 
            RowBox[{
             RowBox[{"(", "c", ")"}], " ", "q2"}]}], ",", "q2"}], "]"}], 
         "\[Equal]", "0"}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"q1", ",", "q2"}], "}"}]}], "]"}], "]"}]}]}]], "Input",
 CellChangeTimes->{{3.7322471663986607`*^9, 3.7322471724286604`*^9}, {
  3.764997068081189*^9, 3.764997073466781*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"{", 
   RowBox[{
    RowBox[{"q1", "\[Rule]", 
     FractionBox[
      RowBox[{
       RowBox[{"-", "1"}], "+", "\[Gamma]", "-", 
       RowBox[{"c", " ", "\[Gamma]"}]}], 
      RowBox[{
       RowBox[{"-", "1"}], "+", 
       SuperscriptBox["\[Gamma]", "2"]}]]}], ",", 
    RowBox[{"q2", "\[Rule]", 
     FractionBox[
      RowBox[{
       RowBox[{"-", "1"}], "+", "c", "+", "\[Gamma]"}], 
      RowBox[{
       RowBox[{"-", "1"}], "+", 
       SuperscriptBox["\[Gamma]", "2"]}]]}]}], "}"}], "}"}]], "Output",
 CellChangeTimes->{3.7649970781771746`*^9, 3.76544279041022*^9, 
  3.765773447298209*^9, 3.7658175994704323`*^9, 3.7839200340731335`*^9, 
  3.784439008698989*^9, 3.7844393307774096`*^9, 3.7847049090726357`*^9, 
  3.784875194406088*^9, 3.7851726788174167`*^9, 3.7852270884514103`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", 
   RowBox[{
    RowBox[{
    "For", " ", "completeness", " ", "we", " ", "also", " ", "caracterize", 
     " ", "the", " ", "equilibrium", " ", "with", " ", "limit", " ", 
     RowBox[{"pricing", ":", " ", 
      RowBox[{"for", " ", "c", " ", "sufficiently", " ", "large"}]}]}], ",", 
    " ", 
    RowBox[{"firm", " ", "2", " ", "cannot", " ", 
     RowBox[{"produce", "."}]}]}], "*)"}], "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"FullSimplify", "[", 
     RowBox[{
      RowBox[{"qNE", "[", 
       RowBox[{"[", 
        RowBox[{"2", ",", "2"}], "]"}], "]"}], "/.", "pNE"}], "]"}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{"clim", "=", 
    RowBox[{
     RowBox[{"FullSimplify", "[", 
      RowBox[{"Solve", "[", 
       RowBox[{
        RowBox[{"%", "\[Equal]", "0"}], ",", "c"}], "]"}], "]"}], "[", 
     RowBox[{"[", 
      RowBox[{"1", ",", "1", ",", "2"}], "]"}], "]"}]}], 
   "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{"(*", 
    RowBox[{
    "And", " ", "the", " ", "equilibrium", " ", "limit", " ", "price", " ", 
     "of", " ", "firm", " ", "1", " ", 
     RowBox[{"is", ":"}]}], "*)"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"D", "[", 
      RowBox[{"v", ",", "q2"}], "]"}], "/.", 
     RowBox[{"q2", "\[Rule]", "0"}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"FullSimplify", "[", 
     RowBox[{"Solve", "[", 
      RowBox[{
       RowBox[{"%", "\[Equal]", "c"}], ",", "q1"}], "]"}], "]"}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"v", "-", 
      RowBox[{"p1", " ", "q1"}]}], "/.", 
     RowBox[{"q2", "\[Rule]", "0"}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{"q1mon", "=", 
    RowBox[{
     RowBox[{"FullSimplify", "[", 
      RowBox[{"Solve", "[", 
       RowBox[{
        RowBox[{
         RowBox[{"D", "[", 
          RowBox[{"%", ",", "q1"}], "]"}], "\[Equal]", "0"}], ",", "q1"}], 
       "]"}], "]"}], "[", 
     RowBox[{"[", 
      RowBox[{"1", ",", "1", ",", "2"}], "]"}], "]"}]}], 
   "\[IndentingNewLine]", 
   RowBox[{"p1lim", "=", 
    RowBox[{
     RowBox[{"FullSimplify", "[", 
      RowBox[{"Solve", "[", 
       RowBox[{
        RowBox[{"q1mon", "\[Equal]", 
         RowBox[{"%%%", "[", 
          RowBox[{"[", 
           RowBox[{"1", ",", "1", ",", "2"}], "]"}], "]"}]}], ",", "p1"}], 
       "]"}], "]"}], "[", 
     RowBox[{"[", 
      RowBox[{"1", ",", "1", ",", "2"}], "]"}], "]"}]}], 
   "\[IndentingNewLine]", 
   RowBox[{"Limit", "[", 
    RowBox[{"%", ",", 
     RowBox[{"\[Gamma]", "\[Rule]", "1"}]}], "]"}]}]}]], "Input",
 CellChangeTimes->{{3.783921083572236*^9, 3.783921390511454*^9}, {
  3.7839214307913227`*^9, 3.7839214576475244`*^9}, {3.78392191262236*^9, 
  3.7839219177846184`*^9}, {3.7839264792640414`*^9, 3.78392660193779*^9}}],

Cell[BoxData[
 RowBox[{"1", "+", 
  FractionBox["\[Gamma]", 
   RowBox[{
    RowBox[{"-", "2"}], "+", 
    SuperscriptBox["\[Gamma]", "2"]}]]}]], "Output",
 CellChangeTimes->{{3.7839211257627993`*^9, 3.7839211358779316`*^9}, {
   3.783921182328288*^9, 3.7839212063139906`*^9}, {3.783921271319809*^9, 
   3.783921307847615*^9}, 3.783921354372154*^9, 3.7839213910444903`*^9, 
   3.783921919498784*^9, {3.783926572478829*^9, 3.783926603453802*^9}, 
   3.784439008749061*^9, 3.784439330827236*^9, 3.7847049091234484`*^9, 
   3.784875194482518*^9, 3.7851726788642807`*^9, 3.7852270884826555`*^9}],

Cell[BoxData[
 RowBox[{"1", "-", "p1"}]], "Output",
 CellChangeTimes->{{3.7839211257627993`*^9, 3.7839211358779316`*^9}, {
   3.783921182328288*^9, 3.7839212063139906`*^9}, {3.783921271319809*^9, 
   3.783921307847615*^9}, 3.783921354372154*^9, 3.7839213910444903`*^9, 
   3.783921919498784*^9, {3.783926572478829*^9, 3.783926603453802*^9}, 
   3.784439008749061*^9, 3.784439330827236*^9, 3.7847049091234484`*^9, 
   3.784875194482518*^9, 3.7851726788642807`*^9, 3.7852270884983015`*^9}],

Cell[BoxData[
 FractionBox[
  RowBox[{
   RowBox[{"-", "1"}], "+", "c", "+", "\[Gamma]"}], "\[Gamma]"]], "Output",
 CellChangeTimes->{{3.7839211257627993`*^9, 3.7839211358779316`*^9}, {
   3.783921182328288*^9, 3.7839212063139906`*^9}, {3.783921271319809*^9, 
   3.783921307847615*^9}, 3.783921354372154*^9, 3.7839213910444903`*^9, 
   3.783921919498784*^9, {3.783926572478829*^9, 3.783926603453802*^9}, 
   3.784439008749061*^9, 3.784439330827236*^9, 3.7847049091234484`*^9, 
   3.784875194482518*^9, 3.7851726788642807`*^9, 3.7852270884983015`*^9}],

Cell[BoxData["c"], "Output",
 CellChangeTimes->{{3.7839211257627993`*^9, 3.7839211358779316`*^9}, {
   3.783921182328288*^9, 3.7839212063139906`*^9}, {3.783921271319809*^9, 
   3.783921307847615*^9}, 3.783921354372154*^9, 3.7839213910444903`*^9, 
   3.783921919498784*^9, {3.783926572478829*^9, 3.783926603453802*^9}, 
   3.784439008749061*^9, 3.784439330827236*^9, 3.7847049091234484`*^9, 
   3.784875194482518*^9, 3.7851726788642807`*^9, 3.7852270884983015`*^9}]
}, Open  ]],

Cell[BoxData[
 RowBox[{"(*", 
  RowBox[{
   RowBox[{"Summarizing", ":", " ", 
    RowBox[{
     RowBox[{"for", " ", "c"}], "<", "clim"}]}], ",", " ", 
   RowBox[{
   "the", " ", "equilibrium", " ", "is", " ", "with", " ", "\"\<Bertrand\>\"",
     " ", "prices"}], ",", " ", 
   RowBox[{"for", " ", "larger", " ", "c"}], ",", " ", 
   RowBox[{"it", " ", "is", " ", "with", " ", "limit", " ", 
    RowBox[{"price", "."}]}]}], "*)"}]], "Input",
 CellChangeTimes->{{3.7839266593679705`*^9, 3.7839266993652782`*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell["\<\
Regime with k small and figure 1\
\>", "Subsection",
 CellChangeTimes->{
  3.7649951730415115`*^9, {3.7649966981040525`*^9, 3.76499669970078*^9}, {
   3.7657734924015293`*^9, 3.7657734960477724`*^9}, {3.767530672628781*^9, 
   3.767530674932801*^9}, {3.76753079648746*^9, 3.7675308031835413`*^9}, {
   3.7839200410268073`*^9, 3.783920043505838*^9}, {3.7839261729090366`*^9, 
   3.783926174940245*^9}, {3.7847049405744047`*^9, 3.7847049425683312`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", 
   RowBox[{
    RowBox[{"As", " ", "explained", " ", "in", " ", "the", " ", "text"}], ",",
     " ", 
    RowBox[{
    "when", " ", "the", " ", "additional", " ", "marginal", " ", "cost", " ", 
     "for", " ", "firm", " ", "2"}], ",", " ", "\[Theta]", ",", " ", 
    RowBox[{"is", " ", "sufficiently", " ", "large"}], ",", " ", 
    RowBox[{
    "p2", " ", "guarantees", " ", "that", " ", "the", " ", "demand", " ", 
     "for", " ", "product", " ", "2", " ", "is", " ", "exactly", " ", "equal",
      " ", "to", " ", 
     RowBox[{"k", ".", " ", "This"}], " ", "implies", " ", "the", " ", 
     "following", " ", "best", " ", 
     RowBox[{"reponse", ":"}]}]}], "*)"}], "\[IndentingNewLine]", 
  "\[IndentingNewLine]", 
  RowBox[{"BR2k", "=", 
   RowBox[{
    RowBox[{"FullSimplify", "[", 
     RowBox[{"Solve", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"qNE", "[", 
         RowBox[{"[", 
          RowBox[{"2", ",", "2"}], "]"}], "]"}], "\[Equal]", "k"}], ",", 
       "p2"}], "]"}], "]"}], "[", 
    RowBox[{"[", 
     RowBox[{"1", ",", "1", ",", "2"}], "]"}], "]"}]}]}]], "Input",
 CellChangeTimes->{{3.7839200833468304`*^9, 3.783920184717475*^9}, {
   3.783926724126021*^9, 3.7839268154812713`*^9}, 3.7839277232880645`*^9, {
   3.785227119742773*^9, 3.7852271297798967`*^9}}],

Cell[BoxData[
 RowBox[{"1", "+", 
  RowBox[{
   RowBox[{"(", 
    RowBox[{
     RowBox[{"-", "1"}], "+", "p1"}], ")"}], " ", "\[Gamma]"}], "+", 
  RowBox[{"k", " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{"-", "1"}], "+", 
     SuperscriptBox["\[Gamma]", "2"]}], ")"}]}]}]], "Output",
 CellChangeTimes->{{3.783920151206905*^9, 3.7839201990576277`*^9}, 
   3.7839277255544024`*^9, 3.7844390088089*^9, 3.7844393399860516`*^9, 
   3.784704912857904*^9, 3.784875194608158*^9, 3.785172678911183*^9, 
   3.785227130218332*^9}]
}, Open  ]],

Cell[BoxData[
 RowBox[{"(*", 
  RowBox[{"Now", ",", " ", 
   RowBox[{
    RowBox[{"the", " ", "BR", " ", "of", " ", "firm", " ", "1"}], ":"}]}], 
  "*)"}]], "Input",
 CellChangeTimes->{{3.7322478417726603`*^9, 3.7322478463326607`*^9}, {
   3.7322479559646606`*^9, 3.7322480020536604`*^9}, 3.7839202240218887`*^9, {
   3.7839268227798214`*^9, 3.783926825761592*^9}}],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"P1", "/.", "qNE"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{"BR1", "=", 
  RowBox[{
   RowBox[{"FullSimplify", "[", 
    RowBox[{"Solve", "[", 
     RowBox[{
      RowBox[{
       RowBox[{"D", "[", 
        RowBox[{"%", ",", "p1"}], "]"}], "\[Equal]", "0"}], ",", "p2"}], 
     "]"}], "]"}], "[", 
   RowBox[{"[", 
    RowBox[{"1", ",", "1", ",", "2"}], "]"}], "]"}]}]}], "Input",
 CellChangeTimes->{{3.729494479240835*^9, 3.7294945328538046`*^9}, 
   3.7322478263096604`*^9, {3.7322481679096603`*^9, 3.7322481744696603`*^9}}],

Cell[BoxData[
 FractionBox[
  RowBox[{
   RowBox[{"-", "1"}], "+", 
   RowBox[{"2", " ", "p1"}], "+", "\[Gamma]"}], "\[Gamma]"]], "Output",
 CellChangeTimes->{{3.7294944835865517`*^9, 3.729494533836586*^9}, 
   3.7318230252636604`*^9, 3.7319027302366605`*^9, 3.7322478269236603`*^9, 
   3.7323339103676605`*^9, 3.732859580810916*^9, 3.7328874058439693`*^9, 
   3.7344381005445485`*^9, 3.7344413051884937`*^9, 3.764520461687421*^9, 
   3.764589886302575*^9, 3.7645928840608025`*^9, 3.7646102463598566`*^9, 
   3.764610388957589*^9, 3.7649952240111775`*^9, 3.765442790754707*^9, 
   3.7657734474307947`*^9, 3.7658176011248612`*^9, 3.7839202311961412`*^9, 
   3.78443900882874*^9, 3.78443934008379*^9, 3.784704912922078*^9, 
   3.7848751946459455`*^9, 3.7851726789267635`*^9, 3.7852271351028376`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", 
   RowBox[{"Equilibrium", " ", "in", " ", "this", " ", 
    RowBox[{"regime", ":"}]}], "*)"}], "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"p1eqrat", "=", 
    RowBox[{
     RowBox[{"FullSimplify", "[", 
      RowBox[{"Solve", "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"BR1", "\[Equal]", "BR2k"}], "}"}], ",", 
        RowBox[{"{", "p1", "}"}]}], "]"}], "]"}], "[", 
     RowBox[{"[", 
      RowBox[{"1", ",", "1", ",", "2"}], "]"}], "]"}]}], 
   "\[IndentingNewLine]", 
   RowBox[{"p2eqrat", "=", 
    RowBox[{"FullSimplify", "[", 
     RowBox[{"BR2k", "/.", 
      RowBox[{"p1", "\[Rule]", "%"}]}], "]"}]}]}]}]], "Input",
 CellChangeTimes->{{3.7839202395461483`*^9, 3.7839203348726454`*^9}, 
   3.783927729300392*^9, 3.7844393893398213`*^9, {3.7852271404578085`*^9, 
   3.7852271478584146`*^9}}],

Cell[BoxData[
 RowBox[{"-", 
  FractionBox[
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", "1"}], "+", 
      RowBox[{"k", " ", "\[Gamma]"}]}], ")"}], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", "1"}], "+", 
      SuperscriptBox["\[Gamma]", "2"]}], ")"}]}], 
   RowBox[{
    RowBox[{"-", "2"}], "+", 
    SuperscriptBox["\[Gamma]", "2"]}]]}]], "Output",
 CellChangeTimes->{{3.783920269438282*^9, 3.783920335524685*^9}, 
   3.7839277307506695`*^9, 3.784439008848812*^9, 3.7844393401037817`*^9, 
   3.784439390308835*^9, 3.784704912942051*^9, 3.7848751946815863`*^9, 
   3.7851726789580097`*^9, 3.7852271487034655`*^9}],

Cell[BoxData[
 RowBox[{"1", "-", 
  RowBox[{"2", " ", "k"}], "+", 
  FractionBox[
   RowBox[{
    RowBox[{
     RowBox[{"-", "2"}], " ", "k"}], "+", "\[Gamma]"}], 
   RowBox[{
    RowBox[{"-", "2"}], "+", 
    SuperscriptBox["\[Gamma]", "2"]}]]}]], "Output",
 CellChangeTimes->{{3.783920269438282*^9, 3.783920335524685*^9}, 
   3.7839277307506695`*^9, 3.784439008848812*^9, 3.7844393401037817`*^9, 
   3.784439390308835*^9, 3.784704912942051*^9, 3.7848751946815863`*^9, 
   3.7851726789580097`*^9, 3.7852271487347164`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", 
   RowBox[{
    RowBox[{
    "Now", " ", "we", " ", "derive", " ", "the", " ", "BR", " ", "of", " ", 
     "firm", " ", "2", " ", "when", " ", "facing", " ", "a", " ", "cost", " ",
      "c"}], "+", 
    RowBox[{"\[Theta]", " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
       "not", " ", "considered", " ", "in", " ", "the", " ", "equilibrium"}], 
       ",", " ", 
       RowBox[{
       "as", " ", "we", " ", "focues", " ", "on", " ", "sufficiently", " ", 
        "large", " ", "\[Theta]"}]}], ")"}]}]}], "*)"}], 
  "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"P2", "-", 
      RowBox[{"\[Theta]", " ", "q2"}]}], "/.", "qNE"}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{"BR2\[Theta]", "=", 
    RowBox[{
     RowBox[{"FullSimplify", "[", 
      RowBox[{"Solve", "[", 
       RowBox[{
        RowBox[{
         RowBox[{"D", "[", 
          RowBox[{"%", ",", "p2"}], "]"}], "\[Equal]", "0"}], ",", "p2"}], 
       "]"}], "]"}], "[", 
     RowBox[{"[", 
      RowBox[{"1", ",", "1", ",", "2"}], "]"}], "]"}]}], 
   "\[IndentingNewLine]", 
   RowBox[{"(*", 
    RowBox[{
    "For", " ", "completeness", " ", "also", " ", "what", " ", "would", " ", 
     "be", " ", "equilibrium", " ", "prices"}], "*)"}], "\[IndentingNewLine]", 
   RowBox[{"pNE\[Theta]", "=", 
    RowBox[{
     RowBox[{"FullSimplify", "[", 
      RowBox[{"Solve", "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{"BR1", "\[Equal]", "p2"}], ",", 
          RowBox[{"BR2\[Theta]", "\[Equal]", "p2"}]}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"p1", ",", "p2"}], "}"}]}], "]"}], "]"}], "[", 
     RowBox[{"[", "1", "]"}], "]"}]}]}]}]], "Input",
 CellChangeTimes->{{3.7839274232838717`*^9, 3.7839276002925606`*^9}, {
  3.7852271872385373`*^9, 3.7852271875464287`*^9}}],

Cell[BoxData[
 RowBox[{
  FractionBox["1", "2"], " ", 
  RowBox[{"(", 
   RowBox[{"1", "+", "c", "+", 
    RowBox[{
     RowBox[{"(", 
      RowBox[{
       RowBox[{"-", "1"}], "+", "p1"}], ")"}], " ", "\[Gamma]"}], "+", 
    "\[Theta]"}], ")"}]}]], "Output",
 CellChangeTimes->{{3.78392748041422*^9, 3.7839274949943047`*^9}, {
   3.783927531876897*^9, 3.783927601354608*^9}, 3.7844390089188843`*^9, 
   3.7844393401590223`*^9, 3.7847049130328455`*^9, 3.7848751948038406`*^9, 
   3.7851726790443487`*^9, {3.78522718504479*^9, 3.7852271881922708`*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"p1", "\[Rule]", 
    FractionBox[
     RowBox[{
      RowBox[{"-", "2"}], "+", 
      SuperscriptBox["\[Gamma]", "2"], "-", 
      RowBox[{"\[Gamma]", " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"-", "1"}], "+", "c", "+", "\[Theta]"}], ")"}]}]}], 
     RowBox[{
      RowBox[{"-", "4"}], "+", 
      SuperscriptBox["\[Gamma]", "2"]}]]}], ",", 
   RowBox[{"p2", "\[Rule]", 
    FractionBox[
     RowBox[{
      RowBox[{
       RowBox[{"-", "2"}], " ", "c"}], "+", "\[Gamma]", "+", 
      SuperscriptBox["\[Gamma]", "2"], "-", 
      RowBox[{"2", " ", 
       RowBox[{"(", 
        RowBox[{"1", "+", "\[Theta]"}], ")"}]}]}], 
     RowBox[{
      RowBox[{"-", "4"}], "+", 
      SuperscriptBox["\[Gamma]", "2"]}]]}]}], "}"}]], "Output",
 CellChangeTimes->{{3.78392748041422*^9, 3.7839274949943047`*^9}, {
   3.783927531876897*^9, 3.783927601354608*^9}, 3.7844390089188843`*^9, 
   3.7844393401590223`*^9, 3.7847049130328455`*^9, 3.7848751948038406`*^9, 
   3.7851726790443487`*^9, {3.78522718504479*^9, 3.7852271881922708`*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", 
   RowBox[{
    RowBox[{"Now", " ", "we", " ", "derive", " ", "Figure", " ", "1"}], ":"}],
    "*)"}], "\[IndentingNewLine]", 
  RowBox[{"(*", 
   RowBox[{
   "Inverting", " ", "the", " ", "BR", " ", "in", " ", "order", " ", "to", 
    " ", "plot", " ", "on", " ", "p2"}], "*)"}], "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"BR1inv", "=", 
     RowBox[{
      RowBox[{"FullSimplify", "[", 
       RowBox[{"Solve", "[", 
        RowBox[{
         RowBox[{"BR1", "\[Equal]", "p2"}], ",", "p1"}], "]"}], "]"}], "[", 
      RowBox[{"[", 
       RowBox[{"1", ",", "1", ",", "2"}], "]"}], "]"}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"BR2kinv", "=", 
     RowBox[{
      RowBox[{"FullSimplify", "[", 
       RowBox[{"Solve", "[", 
        RowBox[{
         RowBox[{"BR2k", "\[Equal]", "p2"}], ",", "p1"}], "]"}], "]"}], "[", 
      RowBox[{"[", 
       RowBox[{"1", ",", "1", ",", "2"}], "]"}], "]"}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"BR2Bertinv", "=", 
     RowBox[{
      RowBox[{"FullSimplify", "[", 
       RowBox[{
        RowBox[{"Solve", "[", 
         RowBox[{
          RowBox[{"BR2\[Theta]", "\[Equal]", "p2"}], ",", "p1"}], "]"}], "/.", 
        RowBox[{"\[Theta]", "\[Rule]", "0"}]}], "]"}], "[", 
      RowBox[{"[", 
       RowBox[{"1", ",", "1", ",", "2"}], "]"}], "]"}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"BR2\[Theta]inv", "=", 
     RowBox[{
      RowBox[{"FullSimplify", "[", 
       RowBox[{"Solve", "[", 
        RowBox[{
         RowBox[{"BR2\[Theta]", "\[Equal]", "p2"}], ",", "p1"}], "]"}], "]"}],
       "[", 
      RowBox[{"[", 
       RowBox[{"1", ",", "1", ",", "2"}], "]"}], "]"}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"p2low", "=", 
     RowBox[{
      RowBox[{"FullSimplify", "[", 
       RowBox[{"Solve", "[", 
        RowBox[{
         RowBox[{"BR2kinv", "==", "BR2Bertinv"}], ",", "p2"}], "]"}], "]"}], 
      "[", 
      RowBox[{"[", 
       RowBox[{"1", ",", "1", ",", "2"}], "]"}], "]"}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"p2high", "=", 
     RowBox[{
      RowBox[{"FullSimplify", "[", 
       RowBox[{"Solve", "[", 
        RowBox[{
         RowBox[{"BR2kinv", "==", "BR2\[Theta]inv"}], ",", "p2"}], "]"}], 
       "]"}], "[", 
      RowBox[{"[", 
       RowBox[{"1", ",", "1", ",", "2"}], "]"}], "]"}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"BR2all", "=", 
     RowBox[{"Piecewise", "[", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"BR2Bertinv", ",", 
          RowBox[{"p2", "<", "p2low"}]}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"BR2kinv", ",", 
          RowBox[{"p2high", ">", "p2", "\[GreaterEqual]", "p2low"}]}], "}"}], 
        ",", 
        RowBox[{"{", 
         RowBox[{"BR2\[Theta]inv", ",", 
          RowBox[{"p2high", "<", "p2"}]}], "}"}]}], "}"}], "]"}]}], ";"}], 
   "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{
     "BR1inv", ",", "BR2all", ",", "BR2Bertinv", ",", "BR2\[Theta]inv"}], 
     "}"}], ";"}], "\[IndentingNewLine]", 
   RowBox[{"Manipulate", "[", 
    RowBox[{
     RowBox[{"Plot", "[", 
      RowBox[{"%", ",", 
       RowBox[{"{", 
        RowBox[{"p2", ",", "0", ",", "1"}], "}"}], ",", 
       RowBox[{"PlotStyle", "\[Rule]", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", "Black", "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"Black", ",", "Dashed"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"Blue", ",", "Dotted"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"Blue", ",", "Dotted"}], "}"}]}], "}"}]}], ",", 
       RowBox[{"AxesLabel", "\[Rule]", 
        RowBox[{"{", 
         RowBox[{
         "\"\<\!\(\*SubscriptBox[\(p\), \(2\)]\)\>\"", ",", 
          "\"\<\!\(\*SubscriptBox[\(p\), \(1\)]\)\>\""}], "}"}]}], ",", 
       RowBox[{"PlotLegends", "\[Rule]", 
        RowBox[{"Placed", "[", 
         RowBox[{
          RowBox[{"LineLegend", "[", 
           RowBox[{
            RowBox[{"{", 
             RowBox[{
             "\"\<\!\(\*SubscriptBox[\(BR\), \(1\)]\)\>\"", ",", 
              "\"\<\!\(\*SubscriptBox[\(BR\), \(2\)]\)\>\"", ",", 
              "\"\<\!\(\*SubscriptBox[\(BR\), \(2\)]\)(\!\(\*SubscriptBox[\(c\
\), \(2\)]\))\>\"", ",", 
              "\"\<\!\(\*SubscriptBox[\(BR\), \(2\)]\)(\!\(\*SubscriptBox[\(c\
\), \(2\)]\)+\[Theta])\>\""}], "}"}], ",", 
            RowBox[{"LabelStyle", "\[Rule]", 
             RowBox[{"{", 
              RowBox[{"FontFamily", "\[Rule]", "\"\<Courier\>\""}], "}"}]}]}],
            "]"}], ",", 
          RowBox[{"{", 
           RowBox[{"0.25`", ",", "0.8`"}], "}"}]}], "]"}]}], ",", 
       RowBox[{"Ticks", "\[Rule]", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"0", ",", "1"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"-", "1"}], ",", "1"}], "}"}]}], "}"}]}], ",", 
       RowBox[{"PlotRange", "\[Rule]", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"0", ",", "1.05`"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"0", ",", "1.1`"}], "}"}]}], "}"}]}], ",", 
       RowBox[{"AxesStyle", "\[Rule]", 
        RowBox[{"Arrowheads", "[", 
         RowBox[{"{", 
          RowBox[{"0.`", ",", "0.02`"}], "}"}], "]"}]}]}], "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"c", ",", "0", ",", "1"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"k", ",", "0.4"}], "}"}], ",", "0", ",", "1"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"\[Gamma]", ",", "0.6"}], "}"}], ",", "0", ",", "1"}], "}"}], 
     ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"\[Theta]", ",", "0.45"}], "}"}], ",", "0", ",", "2"}], 
      "}"}]}], "]"}]}]}]], "Input",
 CellChangeTimes->{{3.7839286368052588`*^9, 3.783928784161552*^9}, {
   3.7839289358773284`*^9, 3.783928956413577*^9}, {3.7839290428704624`*^9, 
   3.7839290679706144`*^9}, {3.7839291125742025`*^9, 3.7839292328044667`*^9}, 
   3.783929313531213*^9}],

Cell[BoxData[
 TagBox[
  StyleBox[
   DynamicModuleBox[{$CellContext`c$$ = 0, $CellContext`k$$ = 
    0.4, $CellContext`\[Gamma]$$ = 0.6, $CellContext`\[Theta]$$ = 0.45, 
    Typeset`show$$ = True, Typeset`bookmarkList$$ = {}, 
    Typeset`bookmarkMode$$ = "Menu", Typeset`animator$$, Typeset`animvar$$ = 
    1, Typeset`name$$ = "\"untitled\"", Typeset`specs$$ = {{
      Hold[$CellContext`c$$], 0, 1}, {{
       Hold[$CellContext`k$$], 0.4}, 0, 1}, {{
       Hold[$CellContext`\[Gamma]$$], 0.6}, 0, 1}, {{
       Hold[$CellContext`\[Theta]$$], 0.45}, 0, 2}}, Typeset`size$$ = {
    486., {158., 166.}}, Typeset`update$$ = 0, Typeset`initDone$$, 
    Typeset`skipInitDone$$ = True, $CellContext`c$36175$$ = 
    0, $CellContext`k$36176$$ = 0, $CellContext`\[Gamma]$36177$$ = 
    0, $CellContext`\[Theta]$36178$$ = 0}, 
    DynamicBox[Manipulate`ManipulateBoxes[
     1, StandardForm, 
      "Variables" :> {$CellContext`c$$ = 0, $CellContext`k$$ = 
        0.4, $CellContext`\[Gamma]$$ = 0.6, $CellContext`\[Theta]$$ = 0.45}, 
      "ControllerVariables" :> {
        Hold[$CellContext`c$$, $CellContext`c$36175$$, 0], 
        Hold[$CellContext`k$$, $CellContext`k$36176$$, 0], 
        Hold[$CellContext`\[Gamma]$$, $CellContext`\[Gamma]$36177$$, 0], 
        Hold[$CellContext`\[Theta]$$, $CellContext`\[Theta]$36178$$, 0]}, 
      "OtherVariables" :> {
       Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$, 
        Typeset`animator$$, Typeset`animvar$$, Typeset`name$$, 
        Typeset`specs$$, Typeset`size$$, Typeset`update$$, Typeset`initDone$$,
         Typeset`skipInitDone$$}, "Body" :> 
      Plot[{Rational[1, 2] (
          1 + (-1 + $CellContext`p2) $CellContext`\[Gamma]$$), 
         Piecewise[{{$CellContext`\[Gamma]$$^(-1) (-1 - $CellContext`c$$ + 
             2 $CellContext`p2 + $CellContext`\[Gamma]$$), $CellContext`p2 < \
$CellContext`c$$ + $CellContext`k$$ - $CellContext`k$$ \
$CellContext`\[Gamma]$$^2}, {
           1 + (-1 + $CellContext`k$$ + \
$CellContext`p2)/$CellContext`\[Gamma]$$ - $CellContext`k$$ $CellContext`\
\[Gamma]$$, 
            
            Inequality[$CellContext`c$$ + $CellContext`k$$ - $CellContext`k$$ \
$CellContext`\[Gamma]$$^2 + $CellContext`\[Theta]$$, Greater, $CellContext`p2,
              GreaterEqual, $CellContext`c$$ + $CellContext`k$$ - \
$CellContext`k$$ $CellContext`\[Gamma]$$^2]}, {-$CellContext`\[Gamma]$$^(-1) (
             1 + $CellContext`c$$ - 
             2 $CellContext`p2 - $CellContext`\[Gamma]$$ + $CellContext`\
\[Theta]$$), $CellContext`c$$ + $CellContext`k$$ - $CellContext`k$$ \
$CellContext`\[Gamma]$$^2 + $CellContext`\[Theta]$$ < $CellContext`p2}}, 
          0], $CellContext`\[Gamma]$$^(-1) (-1 - $CellContext`c$$ + 
          2 $CellContext`p2 + $CellContext`\[Gamma]$$), \
-$CellContext`\[Gamma]$$^(-1) (1 + $CellContext`c$$ - 
          2 $CellContext`p2 - $CellContext`\[Gamma]$$ + \
$CellContext`\[Theta]$$)}, {$CellContext`p2, 0, 1}, 
        PlotStyle -> {{Black}, {Black, Dashed}, {Blue, Dotted}, {
          Blue, Dotted}}, 
        AxesLabel -> {
         "\!\(\*SubscriptBox[\(p\), \(2\)]\)", 
          "\!\(\*SubscriptBox[\(p\), \(1\)]\)"}, PlotLegends -> Placed[
          
          LineLegend[{
           "\!\(\*SubscriptBox[\(BR\), \(1\)]\)", 
            "\!\(\*SubscriptBox[\(BR\), \(2\)]\)", 
            "\!\(\*SubscriptBox[\(BR\), \(2\)]\)(\!\(\*SubscriptBox[\(c\), \
\(2\)]\))", 
            "\!\(\*SubscriptBox[\(BR\), \(2\)]\)(\!\(\*SubscriptBox[\(c\), \
\(2\)]\)+\[Theta])"}, LabelStyle -> {FontFamily -> "Courier"}], {0.25, 0.8}], 
        Ticks -> {{0, 1}, {-1, 1}}, PlotRange -> {{0, 1.05}, {0, 1.1}}, 
        AxesStyle -> Arrowheads[{0., 0.02}]], 
      "Specifications" :> {{$CellContext`c$$, 0, 1}, {{$CellContext`k$$, 0.4},
          0, 1}, {{$CellContext`\[Gamma]$$, 0.6}, 0, 
         1}, {{$CellContext`\[Theta]$$, 0.45}, 0, 2}}, "Options" :> {}, 
      "DefaultOptions" :> {}],
     ImageSizeCache->{551., {280., 287.}},
     SingleEvaluation->True],
    Deinitialization:>None,
    DynamicModuleValues:>{},
    SynchronousInitialization->True,
    UnsavedVariables:>{Typeset`initDone$$},
    UntrackedVariables:>{Typeset`size$$}], "Manipulate",
   Deployed->True,
   StripOnInput->False],
  Manipulate`InterpretManipulate[1]]], "Output",
 CellChangeTimes->{{3.7839286913525453`*^9, 3.783928784419055*^9}, 
   3.783928958096954*^9, 3.7839290692626877`*^9, {3.7839291077313848`*^9, 
   3.7839292330942235`*^9}, 3.7844390090087223`*^9, 3.7844393402491665`*^9, 
   3.7847049131483574`*^9, 3.784875195003028*^9, 3.7851726791408405`*^9, 
   3.785227194184787*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", 
   RowBox[{
    RowBox[{"Now", " ", "we", " ", "derive", " ", "Figure", " ", "1"}], ":"}],
    "*)"}], "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"parameters", "=", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"c", "\[Rule]", "0"}], ",", 
       RowBox[{"k", "\[Rule]", "0.4"}], ",", 
       RowBox[{"\[Gamma]", "\[Rule]", "0.6"}], ",", 
       RowBox[{"\[Theta]", "\[Rule]", "0.45"}]}], "}"}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"{", 
      RowBox[{
      "BR1inv", ",", "BR2all", ",", "BR2Bertinv", ",", "BR2\[Theta]inv"}], 
      "}"}], "/.", "parameters"}], ";"}], "\[IndentingNewLine]", 
   RowBox[{"Figure1", "=", 
    RowBox[{"Plot", "[", 
     RowBox[{"%", ",", 
      RowBox[{"{", 
       RowBox[{"p2", ",", "0", ",", "1"}], "}"}], ",", 
      RowBox[{"PlotStyle", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", "Black", "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"Black", ",", "Dashed"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"Red", ",", "Dotted"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"Blue", ",", "Dotted"}], "}"}]}], "}"}]}], ",", 
      RowBox[{"AxesLabel", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
        "\"\<\!\(\*SubscriptBox[\(p\), \(2\)]\)\>\"", ",", 
         "\"\<\!\(\*SubscriptBox[\(p\), \(1\)]\)\>\""}], "}"}]}], ",", 
      "\[IndentingNewLine]", 
      RowBox[{"Epilog", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"Text", "[", 
          RowBox[{"\"\<1\>\"", ",", 
           RowBox[{"{", 
            RowBox[{"1.01", ",", 
             RowBox[{"-", "0.04"}]}], "}"}]}], "]"}], ",", 
         RowBox[{"Text", "[", 
          RowBox[{"\"\<0\>\"", ",", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{"-", "0.01"}], ",", 
             RowBox[{"-", "0.04"}]}], "}"}]}], "]"}], ",", 
         "\[IndentingNewLine]", 
         RowBox[{"Text", "[", 
          RowBox[{"\"\<\!\(\*SubscriptBox[\(BR\), \(2\)]\)(c)\>\"", ",", 
           RowBox[{"{", 
            RowBox[{"0.4", ",", "0.86"}], "}"}]}], "]"}], ",", 
         "\[IndentingNewLine]", 
         RowBox[{"Text", "[", 
          RowBox[{
          "\"\<\!\(\*SubscriptBox[\(BR\), \(2\)]\)(c+\[Theta])\>\"", ",", 
           RowBox[{"{", 
            RowBox[{"0.55", ",", "0.15"}], "}"}]}], "]"}], ",", 
         "\[IndentingNewLine]", 
         RowBox[{"Text", "[", 
          RowBox[{"\"\<\!\(\*SubscriptBox[\(BR\), \(1\)]\)\>\"", ",", 
           RowBox[{"{", 
            RowBox[{"0.7", ",", "0.45"}], "}"}]}], "]"}], ",", 
         "\[IndentingNewLine]", 
         RowBox[{"Text", "[", 
          RowBox[{"\"\<\!\(\*SubscriptBox[\(BR\), \(2\)]\)\>\"", ",", 
           RowBox[{"{", 
            RowBox[{"0.47", ",", "0.62"}], "}"}]}], "]"}]}], 
        "\[IndentingNewLine]", "}"}]}], ",", 
      RowBox[{"Ticks", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"0", ",", "1"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"-", "1"}], ",", "1"}], "}"}]}], "}"}]}], ",", 
      RowBox[{"PlotRange", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"0", ",", "1.05`"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"0", ",", "1.1`"}], "}"}]}], "}"}]}], ",", 
      RowBox[{"AxesStyle", "\[Rule]", 
       RowBox[{"Arrowheads", "[", 
        RowBox[{"{", 
         RowBox[{"0.`", ",", "0.02`"}], "}"}], "]"}]}]}], "]"}]}], 
   "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"SetDirectory", "[", 
     RowBox[{"NotebookDirectory", "[", "]"}], "]"}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"SetDirectory", "[", 
     RowBox[{"ParentDirectory", "[", "]"}], "]"}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"SetDirectory", "[", "\"\<Figures\>\"", "]"}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"Export", "[", 
     RowBox[{"\"\<Figure1.pdf\>\"", ",", "Figure1"}], "]"}], 
    ";"}]}]}]], "Input",
 CellChangeTimes->{{3.783927687053748*^9, 3.783927710697919*^9}, {
  3.783927742592409*^9, 3.783927990902012*^9}, {3.7839280380618916`*^9, 
  3.783928136260579*^9}, {3.783928210171118*^9, 3.7839282747765646`*^9}, {
  3.783928380601592*^9, 3.783928609429513*^9}, {3.783929278251204*^9, 
  3.783929368849799*^9}, {3.78392940361204*^9, 3.7839294135237703`*^9}, {
  3.78392949055527*^9, 3.7839295031821375`*^9}, {3.7840074935332346`*^9, 
  3.7840075042978992`*^9}, {3.784704985843395*^9, 3.7847049960306005`*^9}, {
  3.7847051152041407`*^9, 3.784705132489243*^9}, {3.7847051764232826`*^9, 
  3.7847052075979996`*^9}, {3.7847052448992224`*^9, 3.7847053898662558`*^9}}],

Cell[BoxData[
 GraphicsBox[{{{}, {}, 
    {GrayLevel[0], LineBox[CompressedData["
1:eJwVzXk4lAkAx3FX5SgaXTtCO6rpwNZKs0n1U7S5SialA0mSRW2qXZVKI9Qq
8exS7ru2eJqRo7TOxcOOe2YwQ2NepjGN81VLYtuZbf/4Pp8/vzS/H5lnNNTU
1Ny+9L/OZxS82uHDu4ov1TxJSeFCy97oAkG1RmyGSXhGOhdbspLTS6gO8G8K
d8vJ4sKlTVicQfXA8pXbPj19zIWn/0zVr1R/XKkrcip/wUX/pjv2cdTLsKPk
jvVwuche5hYTS41COzvKaukcFyztknW/UBMxNuxU/eB4M44ey+FMvs9HqfxT
b7V5C/RULK99phx40CfphmQL1rpPKOrvlcK3ZvXDBHYrwtptkDz1Gp8k4TrO
N9uwopQiUVevQdBuYzbdrh0vpfatHTvqELRx8Mguww7UBWWsPDbWgK4QKY01
0IFp+k6D5+eaoDe7LP7SwU5ozBYuXrm2GVNKV4OG8k4wVL4vD335ONLXr6cb
8dAaZd3euLEDzGs0fsZVHj4/e8/f79eJAKr06IpXPKxKGJ19NtGJfIql0mqQ
h9EZQtK9mQ/fZnFd724+8kcqmvUfCODfmKmTWcCHvsnvpEzWBVPy5mAYRYD7
P5QFZK/pgYONJvN0qAAf7QplgRFCFDWmOIT0CnDZqqF0eb0IsT91dcRs7wLB
brjHo/Wh4CytvzqvC/8EdaVtuPYGETH3wxfqdcN89wJlQIUYtY1pxcHB3diX
Szv7YoUETs5VwQpBN8JMTpoNehHYRUZW/by1BxZjh/WE+wegqA3INkrqwRKD
Se2GuQGIur3miT/3QKsmjbM6fRCMhTMaHG8hgq0renVcpOiLzovMahSi0Mkv
u/qjFNYW5397bCnC9KjRYvnDt5j7W7yjKk6EskP7NBMdZJiv8g78MC1ChGN0
Vqlchlvmty1sPHtB63cW5UUPgR3VyEp62Yvt30UlUq3kWE0zPmZg2gd/W8It
7pEcOrGrTk8c74OXacesukAOLWIZN/VmH6ab46QXWO9gOUCrsH/Xh2Qtn8vM
NQrUafD3Kh3fYImkLFejQYGFzOxT7U/fYN4NlodN6DAyZLdUFYvFUHvmw5Ea
jiA1eR6jIlSMi6mcOMO6EUji0yeEfWJUmd/VppwfhajEfZvunn5QnC9aROqP
YedsgdGB3H6ILTsFVyvHMMJaHsHRlaAoE2tkPuPQtKBfNwuRwJvDoJgox8HT
8NAtbJHgVnQOS1wwAblxopH7FgLPFSZp+q4kAo9eqddOJHA3I9pXcoAE0/xg
dnkSAX/m+Fq2O4kdynU3Ah8RMK6sLNrvSYKSL2T8lUogNv5E430/Eq9JRsGd
HAKBjJT3uldJ6N2ZTpjPIWAWtdRxwRMS7LKLPlrNBJTbri8SPiWRfNfZtrSF
QO/4W/6TQhKRJ8y+8m8jkOBZ4v39CxJH1Pm8+k4Cqo3MS9GVJFSu3+69LSQg
5sVnagpIuMtIc40hAuUxM6cF3SRsXzVpF8sJJNqe3JAnIkGPzRo6pSDg8vib
0j0SEnOb3LL+HCXwx5U2LmuYRF4425D1gcBDy63x7mMk4g7EkJunCIRK0z1o
JIkwmk/rwDSB9a4hRO0UCZemRTF2swS01LvyE2ZIMFKH/CbnCAyU2Qb5zpH4
+lwVsj8TqAzK27T5XxK6dknGB5UEHq3Sm1apSEwZnptVqQj8B3DEjg0=
      "]]}, 
    {GrayLevel[0], Dashing[{Small, Small}], LineBox[CompressedData["
1:eJwBAQL+/SFib1JlAgAAAB8AAAACAAAAmpmZmZmZyT8AAAAAAAAAAAL5qxAb
Jco/VuDTI04QjT82/2C2U67MPxBQMRUuirQ/TE3AgkW4zD+jWFcSesy0P2Ob
H083wsw/PGF9D8YOtT+QN97nGtbMP2hyyQlek7U/6W9bGeL9zD+6lGH+jZy2
P5zgVXxwTc0/Y9mR5+2uuD8BwkpCjezNP69i8rmt07w/GBCqDn/2zT9Iaxi3
+RW9Py5eCdtwAM4/23M+tEVYvT9a+sdzVBTOPwCFiq7d3L0/tDJFpRs8zj9Y
pyKjDea+P2ajPwiqi84//nUpxjZ8wD/MhDTOxirPP6e6Wa+WjsI/Og/LApE1
zz8WiE8JjrLCP6iZYTdbQM8/hFVFY4XWwj+Dro6g71XPP17wMBd0HsM/Otjo
chiBzz8WJgh/Ua7DP6grnRdq188/hJG2TgzOxD8WtjNMNOLPP/NerKgD8sQ/
hEDKgP7szz9iLKIC+xXFP7Cq+3RJAdA/P8eNtuldxT+Lvyje3RbQP/P8ZB7H
7cU/QumCsAZC0D9iaBPugQ3HP3kuzsprR9A/0DUJSHkxxz+wcxnl0EzQPz8D
/6FwVcc/57hk/zVS0D+u0PT7Z3nHPx7+rxmbV9A/HJ7qVV+dxz9VQ/szAF3Q
P4tr4K9Wwcc/O97HWhRd0D/eHt8H3cHHPxC28VM=
      "]], LineBox[CompressedData["
1:eJwVinlMUwcAhxHLISYOQVGIXMoEJipWJgOcPwHHNdxA6UIN042UgpNDFClz
xKMCDuXUoiQFquBEORRdUQeKE1BakO0VEEotpYW+h6PvcagDHcSN/fHly5d8
zrEpe+KMjYyMAhb4363dxQmd8QRcCpemzs104L3VkHBzEgH1MVOHWXMZPKPd
ykVHCIhiFnW9tpOBX370/nsBgZDAecGEhwx9rhZ0m5CA1PK1goyQoWG7Nye6
dOGvHcruK5Vh7LQw5VE5gfALSjZRI4NDR3fu2ioCRj/2Dnc9lCEvktdC1xM4
HCT3adPKkMAvdj3dtvDrpMwdNzkciwzvb04QYK3K4xQ+kKPl+5M3774hkJi5
7u03cjn2b7XmNr8joNQ1XXBQyVHW7/vgubEC1+r++rN+To7V9ufSJ20U2BUQ
HPZ8RyesatzeeEGBrCRjLHnaCZP2OPpxoQKs9gy3M4ouGGaHNS88e8BKjZtL
H+/GtfHmzmUFvbg322X6hZ8Cy+yrJ/X6Piy/+mHiZnov8g428q+49KPA6YlF
/vkXmNlZq084OYAd7AZ1dvcA0tjtUps2JSztNo/MvxrE8K328wpnFVaLVOW5
W9SY+6FP7H78JYIzJA9SUzTY4G/2gd+sRrjt8cWJgVoEVzrH31mlQcHjJpOa
OB0E9gfW6mKGoY1oc65OG4EHzVk6sFuLoMvRTOSJUVh/NGXe/o8WHetZorMV
erAei2+vK9OBe1UQlVlL4pBX8+CSL0dgErdoau4PCrWhsVdaZkbwdGiVnzsz
hr8NdpbUpVGU+M9IVr57hca9wYtFu/Q4NTE+nGc7jpMh2RIppcdPOdU+ba4G
OA+FKauySeT2TgVUe9I41+p3m/MzidFI4QeXT2m8rvbIMTtPwo+wbqr0odF6
ZJnXoSIShufbtlQE0OCZ9xSyxSS+epbpWBJF48ZWbvCTBhIrfzOfF2bQ2HQu
/p7mJQlJhVPj/t9pXEqJzi/SkJhdc/ewup3Gv1GhvAAdiUhxoMc+OQ3CcYPV
dYqEcSm/itNDI7VxIilpmgSvuK44XE9Dqj328bwpBfesz5J9zRn4emeJbNkU
fj0Y4WoTwaA/1nZbuReF+2ahw0FRDI4W3Bpw8qbw6Bf/y4JoBnWk0s5tO4Vn
OrbZ4HcMHEQbr24LoqDirhwTpzIwnu6v37uPglGY6rrzRQYVaxK/HoihwHrV
s3/PZQZ+IYum9x2gYJHTZXNGzCBNssErlkdhRevDHH0VA2r3qabDyRRcfSX8
aimDrhr3jnwhhYhPeOs39jNI6G9JWJ5NgSOL0XyrYsAyjrIoOUuBy+dcKtAw
2ME9sbssjwKvMsh0imKgyrKedCykkLATLU4GBoKGG0VVxRSSNd7pkZMMVqg/
Z7uKKKRlem4SvmFwhtN5cWqhlUFPCcVbBv8BGSwi5g==
      "]], 
     LineBox[{{0.7063188775510204, 0.9377295918367345}, {0.7065058182733682, 
      0.938352727577894}, {0.7071196328012699, 0.9403987760042328}, {
      0.7083472618570732, 0.9444908728569106}, {0.708654169121024, 
      0.9455138970700798}, {0.7089610763849749, 0.9465369212832494}, {
      0.7095748909128765, 0.9485829697095882}, {0.7108025199686798, 
      0.952675066562266}, {0.7132577780802865, 0.9608592602676214}, {
      0.7135904830800273, 0.9619682769334241}, {0.7139231880797682, 
      0.9630772935992271}, {0.7145885980792499, 0.9652953269308329}, {
      0.7159194180782132, 0.969731393594044}, {0.71858105807614, 
      0.9786035269204667}, {0.7239043380719936, 0.9963477935733119}, {
      0.7345508980637009, 1.031836326879003}, {0.7544338486478805, 
      1.0981128288262685`}, {0.755, 1.1}}]}, 
    {RGBColor[1, 0, 0], Dashing[{0, Small}], 
     LineBox[{{0.2, 0.}, {0.20425737680483996`, 0.014191256016133174`}, {
      0.22407003789157337`, 0.08023345963857786}, {0.24349293774233727`, 
      0.1449764591411242}, {0.26456689268366235`, 0.2152229756122078}, {
      0.2842306782257526, 0.2807689274191753}, {0.305545518858404, 
      0.3518183961946799}, {0.32647059825508584`, 0.4215686608502861}, {
      0.34598550825253294`, 0.48661836084177645`}, {0.3671514733405411, 
      0.5571715778018037}, {0.3869072690293145, 0.623024230097715}, {
      0.408314119808649, 0.6943803993621633}, {0.429331209352014, 
      0.7644373645067134}, {0.44893812949614426`, 0.8297937649871475}, {
      0.47019610473083556`, 0.9006536824361185}, {0.4900439105662921, 
      0.9668130352209736}, {0.5095019551657791, 1.0316731838859303`}, {0.53, 
      1.1}}]}, 
    {RGBColor[0, 0, 1], Dashing[{0, Small}], LineBox[CompressedData["
1:eJxTTMoPSmViYGAQBmIQbWIMArftGaDgd9aV2ZpVt+1fT9JxDpvYa6/tyP4v
bfcd+3sp3NaxuVvs3Rcppm8Uv2df/6Rr/TyPw/blsvFKD2Pu24vkn+9vP3Da
XudNKPd13wf2yhdtvr1ju2QvzP+B48ivB/bq/K8nHG2/Zs+yf/Z65TkP7fN+
7pg0Y/ct+2yT3Tc5vR/Zy3A8YJjued9+tWfSgn3fHtn3fZ0jpvbwof3X11IC
z6Y9tjfYG/ng37fH9luD3ZmnuDyxZxV3Tnhr+cy+3qN1/pZnT+z/uO0Rjgp7
Ya941+vG4tan9hIP/dSUMl7ZW5m3TJE0emafzcv3/v+yN/Yxcud/Ml5+Zn+H
P/Z19P539l9P9T4qaHxu7xz05lxa0wf7GSxxJUEqL+xXsH86eG/iR3vNmP5D
XzVe2M+aCQIf7QG9JJZX
      "]]}, {}}, {{}, {}, {}, {}, {}, {}}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesLabel->{
    FormBox[
    "\"\\!\\(\\*SubscriptBox[\\(p\\), \\(2\\)]\\)\"", TraditionalForm], 
    FormBox[
    "\"\\!\\(\\*SubscriptBox[\\(p\\), \\(1\\)]\\)\"", TraditionalForm]},
  AxesOrigin->{0, 0},
  AxesStyle->Arrowheads[{0., 0.02}],
  Epilog->{
    InsetBox[
     FormBox["\"1\"", TraditionalForm], {1.01, -0.04}], 
    InsetBox[
     FormBox["\"0\"", TraditionalForm], {-0.01, -0.04}], 
    InsetBox[
     FormBox[
     "\"\\!\\(\\*SubscriptBox[\\(BR\\), \\(2\\)]\\)(c)\"", TraditionalForm], {
     0.4, 0.86}], 
    InsetBox[
     FormBox[
     "\"\\!\\(\\*SubscriptBox[\\(BR\\), \\(2\\)]\\)(c+\[Theta])\"", 
      TraditionalForm], {0.55, 0.15}], 
    InsetBox[
     FormBox[
     "\"\\!\\(\\*SubscriptBox[\\(BR\\), \\(1\\)]\\)\"", TraditionalForm], {
     0.7, 0.45}], 
    InsetBox[
     FormBox[
     "\"\\!\\(\\*SubscriptBox[\\(BR\\), \\(2\\)]\\)\"", TraditionalForm], {
     0.47, 0.62}]},
  Method->{},
  PlotRange->{{0, 1.05}, {0, 1.1}},
  PlotRangeClipping->True,
  PlotRangePadding->{Automatic, Automatic},
  Ticks->{{{0, 
      FormBox["0", TraditionalForm]}, {1, 
      FormBox["1", TraditionalForm]}}, {{-1, 
      FormBox[
       RowBox[{"-", "1"}], TraditionalForm]}, {1, 
      FormBox["1", TraditionalForm]}}}]], "Output",
 CellChangeTimes->{{3.7839279596980524`*^9, 3.7839279913355255`*^9}, 
   3.7839280390036907`*^9, {3.7839281039590316`*^9, 3.7839281367905426`*^9}, 
   3.7839282234919233`*^9, 3.7839282547745633`*^9, {3.7839284829001737`*^9, 
   3.783928513716754*^9}, {3.7839285989916735`*^9, 3.783928609785637*^9}, 
   3.78392936944531*^9, 3.7839294143793664`*^9, {3.7839294911398644`*^9, 
   3.783929503374869*^9}, 3.784007504918603*^9, 3.784439009058933*^9, 
   3.7844393403689537`*^9, 3.784704913317602*^9, 3.7847051334527583`*^9, {
   3.784705204720009*^9, 3.784705208039777*^9}, 3.784705249133439*^9, 
   3.7847052867806435`*^9, {3.784705321503215*^9, 3.7847053900359464`*^9}, 
   3.7847057161155505`*^9, 3.784875195164843*^9, 3.785172679177743*^9, 
   3.785227202033148*^9, 3.785227339810483*^9}]
}, Open  ]],

Cell[BoxData[
 RowBox[{"(*", 
  RowBox[{"Note", ":", " ", 
   RowBox[{
    RowBox[{"setting", " ", "\[Theta]"}], ">", 
    RowBox[{"1", " ", "guarantees", " ", "that", " ", "the", " ", "q2"}], 
    "\[LessEqual]", 
    RowBox[{"k", "."}]}]}], "*)"}]], "Input",
 CellChangeTimes->{{3.783929690155798*^9, 3.783929717175535*^9}, {
  3.785227439391624*^9, 3.785227441486602*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell["\<\
Effects of exclusivity on Welfare, Profitability and Figure 2\
\>", "Subsection",
 CellChangeTimes->{
  3.7649951730415115`*^9, {3.7649966981040525`*^9, 3.76499669970078*^9}, {
   3.7657734924015293`*^9, 3.7657734960477724`*^9}, {3.767530672628781*^9, 
   3.767530674932801*^9}, {3.76753079648746*^9, 3.7675308031835413`*^9}, {
   3.7839200410268073`*^9, 3.783920043505838*^9}, {3.7839261729090366`*^9, 
   3.783926174940245*^9}, {3.7839494008470387`*^9, 3.783949405075785*^9}, {
   3.78394945212452*^9, 3.78394945660301*^9}, {3.784442289441074*^9, 
   3.7844422996278396`*^9}, {3.7847054279867373`*^9, 3.784705436188487*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", 
   RowBox[{"Now", ",", " ", 
    RowBox[{"in", " ", "the", " ", "space", " ", 
     RowBox[{"(", 
      RowBox[{"c", ",", "k"}], ")"}]}], ",", " ", 
    RowBox[{"we", " ", "identify", " ", "the", " ", "two", " ", "regions"}], 
    ",", " ", 
    RowBox[{"k", " ", "small", " ", "and", " ", "k", " ", "large"}], ",", " ", 
    RowBox[{
     RowBox[{"when", " ", "c"}], "<", 
     RowBox[{
      RowBox[{"clim", ".", " ", "This"}], " ", "is", " ", "simply", " ", 
      "given", " ", "by", " ", "the", " ", "condition", " ", "q2NE"}], 
     "\[Equal]", "k"}]}], "*)"}], "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"cq2k", "=", 
    RowBox[{
     RowBox[{"FullSimplify", "[", 
      RowBox[{"Solve", "[", 
       RowBox[{
        RowBox[{
         RowBox[{"k", "\[Equal]", 
          RowBox[{"qNE", "[", 
           RowBox[{"[", 
            RowBox[{"2", ",", "2"}], "]"}], "]"}]}], "/.", "pNE"}], ",", 
        "c"}], "]"}], "]"}], "[", 
     RowBox[{"[", 
      RowBox[{"1", ",", "1", ",", "2"}], "]"}], "]"}]}], 
   "\[IndentingNewLine]", 
   RowBox[{"Collect", "[", 
    RowBox[{
     RowBox[{"Solve", "[", 
      RowBox[{
       RowBox[{"%", "\[Equal]", "c"}], ",", "k"}], "]"}], ",", "c", ",", 
     "FullSimplify"}], "]"}]}]}]], "Input",
 CellChangeTimes->{{3.7839295599877987`*^9, 3.783929595762176*^9}, {
  3.7839296392114277`*^9, 3.783929674244076*^9}, {3.783929780836734*^9, 
  3.783929797994877*^9}, {3.783945306647581*^9, 3.783945341085681*^9}, {
  3.783946164203225*^9, 3.7839461744816914`*^9}, {3.784705857882411*^9, 
  3.7847058660922804`*^9}, {3.7847059234671545`*^9, 3.7847059410766716`*^9}}],

Cell[BoxData[
 RowBox[{"1", "-", 
  RowBox[{"3", " ", "k"}], "+", 
  RowBox[{"k", " ", 
   SuperscriptBox["\[Gamma]", "2"]}], "+", 
  FractionBox[
   RowBox[{
    RowBox[{
     RowBox[{"-", "2"}], " ", "k"}], "+", "\[Gamma]"}], 
   RowBox[{
    RowBox[{"-", "2"}], "+", 
    SuperscriptBox["\[Gamma]", "2"]}]]}]], "Output",
 CellChangeTimes->{
  3.78394534415781*^9, 3.783946174806821*^9, 3.7844390139070435`*^9, 
   3.784439420282177*^9, 3.784704918692356*^9, 3.784705866306587*^9, {
   3.784705934859783*^9, 3.7847059416999235`*^9}, 3.78487519848744*^9, 
   3.785172681230443*^9, 3.7852274484342422`*^9}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"{", 
   RowBox[{"k", "\[Rule]", 
    RowBox[{
     FractionBox["1", 
      RowBox[{"2", "+", "\[Gamma]", "-", 
       SuperscriptBox["\[Gamma]", "2"]}]], "+", 
     FractionBox[
      RowBox[{"c", " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"-", "2"}], "+", 
         SuperscriptBox["\[Gamma]", "2"]}], ")"}]}], 
      RowBox[{"4", "-", 
       RowBox[{"5", " ", 
        SuperscriptBox["\[Gamma]", "2"]}], "+", 
       SuperscriptBox["\[Gamma]", "4"]}]]}]}], "}"}], "}"}]], "Output",
 CellChangeTimes->{
  3.78394534415781*^9, 3.783946174806821*^9, 3.7844390139070435`*^9, 
   3.784439420282177*^9, 3.784704918692356*^9, 3.784705866306587*^9, {
   3.784705934859783*^9, 3.7847059416999235`*^9}, 3.78487519848744*^9, 
   3.785172681230443*^9, 3.785227448446185*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", 
   RowBox[{
   "We", " ", "also", " ", "keep", " ", "track", " ", "of", " ", "the", " ", 
    "two", " ", "Exclusivity", " ", 
    RowBox[{"prices", ":"}]}], "*)"}], "\[IndentingNewLine]", 
  RowBox[{"cpe1constr", "=", 
   RowBox[{
    RowBox[{"FullSimplify", "[", 
     RowBox[{"Solve", "[", 
      RowBox[{
       RowBox[{"kpe1constr", "\[Equal]", "k"}], ",", "c"}], "]"}], "]"}], "[", 
    RowBox[{"[", 
     RowBox[{"1", ",", "1", ",", "2"}], "]"}], "]"}]}]}]], "Input",
 CellChangeTimes->{{3.784706970651472*^9, 3.7847070086446295`*^9}, 
   3.784707139623869*^9}],

Cell[BoxData[
 RowBox[{"1", "-", 
  FractionBox["1", 
   RowBox[{"8", " ", "k"}]], "-", 
  FractionBox["k", "2"]}]], "Output",
 CellChangeTimes->{{3.7847069979106092`*^9, 3.784707008956004*^9}, 
   3.7848751985409613`*^9, 3.7851726812616873`*^9, 3.78522745154519*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", 
   RowBox[{"A", " ", "first", " ", "check", " ", "on", " ", 
    RowBox[{"welfare", ":"}]}], "*)"}], "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"cpe1constr", ";"}], "\[IndentingNewLine]", 
   RowBox[{"cq2k", ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"vertline", "=", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"0.5", ",", "0"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"0.5", ",", "1"}], "}"}]}], "}"}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"FullSimplify", "[", 
     RowBox[{
      RowBox[{
       RowBox[{"v", "-", 
        RowBox[{"p2", " ", "q2"}], "-", 
        RowBox[{"p1", " ", "q1"}]}], "/.", "qNE"}], "/.", "pNE"}], "]"}], 
    ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"FullSimplify", "[", 
     RowBox[{
      RowBox[{
       RowBox[{"v", "-", 
        RowBox[{"p2", " ", "q2"}], "-", 
        RowBox[{"p1", " ", "q1"}]}], "/.", "qNE"}], "/.", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"p1", "->", "p1eqrat"}], ",", 
        RowBox[{"p2", "->", "p2eqrat"}]}], "}"}]}], "]"}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"FullSimplify", "[", 
     RowBox[{
      RowBox[{"ve1", "-", 
       RowBox[{"1", "/", "4"}]}], "/.", 
      RowBox[{"q1", "\[Rule]", 
       RowBox[{"1", "/", "2"}]}]}], "]"}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"FullSimplify", "[", 
     RowBox[{
      RowBox[{
       RowBox[{"ve1", "-", 
        RowBox[{"p1", " ", "q1"}]}], "/.", 
       RowBox[{"q1", "\[Rule]", 
        RowBox[{"1", "-", "p1"}]}]}], "/.", 
      RowBox[{"p1", "->", "p1econstr"}]}], "]"}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{"Manipulate", "[", 
    RowBox[{
     RowBox[{"Show", "[", 
      RowBox[{
       RowBox[{"RegionPlot", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{
            RowBox[{"%%%%", "-", "%"}], "<", "0"}], ",", 
           RowBox[{
            RowBox[{"%%%", "-", "%"}], "<", "0"}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"k", ",", "0", ",", "1"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"c", ",", "0", ",", "1.1"}], "}"}]}], "]"}], ",", 
       "\[IndentingNewLine]", 
       RowBox[{"Graphics", "[", 
        RowBox[{"{", 
         RowBox[{"Dotted", ",", 
          RowBox[{"Line", "[", "%%%%%", "]"}]}], "}"}], "]"}], ",", 
       "\[IndentingNewLine]", 
       RowBox[{"Plot", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"%%%%%%", ",", "%%%%%%%"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"k", ",", "0", ",", "1"}], "}"}]}], "]"}]}], 
      "\[IndentingNewLine]", "\[IndentingNewLine]", "]"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"\[Gamma]", ",", "0.4"}], "}"}], ",", "0", ",", "1"}], 
      "}"}]}], "]"}]}]}]], "Input",
 CellChangeTimes->{{3.78394492290628*^9, 3.7839450941615057`*^9}, {
   3.783945157106001*^9, 3.7839451598235846`*^9}, {3.783945370008314*^9, 
   3.78394538183701*^9}, {3.783946184983162*^9, 3.783946195060707*^9}, {
   3.784707020294676*^9, 3.784707057663744*^9}, 3.7847071434131665`*^9, {
   3.7852274677863503`*^9, 3.785227479386325*^9}}],

Cell[BoxData[
 TagBox[
  StyleBox[
   DynamicModuleBox[{$CellContext`\[Gamma]$$ = 0.4, Typeset`show$$ = True, 
    Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", 
    Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = 
    "\"untitled\"", Typeset`specs$$ = {{{
       Hold[$CellContext`\[Gamma]$$], 0.4}, 0, 1}}, Typeset`size$$ = {
    486., {238., 246.}}, Typeset`update$$ = 0, Typeset`initDone$$, 
    Typeset`skipInitDone$$ = True, $CellContext`\[Gamma]$38329$$ = 0}, 
    DynamicBox[Manipulate`ManipulateBoxes[
     1, StandardForm, "Variables" :> {$CellContext`\[Gamma]$$ = 0.4}, 
      "ControllerVariables" :> {
        Hold[$CellContext`\[Gamma]$$, $CellContext`\[Gamma]$38329$$, 0]}, 
      "OtherVariables" :> {
       Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$, 
        Typeset`animator$$, Typeset`animvar$$, Typeset`name$$, 
        Typeset`specs$$, Typeset`size$$, Typeset`update$$, Typeset`initDone$$,
         Typeset`skipInitDone$$}, "Body" :> Show[
        RegionPlot[{
         Rational[
             1, 2] (-4 + $CellContext`\[Gamma]$$^2)^(-2) (-1 + $CellContext`\
\[Gamma]$$^2)^(-1) ((-4) (2 + (-2 + $CellContext`c) $CellContext`c) + 
             3 (2 + (-2 + $CellContext`c) $CellContext`c) $CellContext`\
\[Gamma]$$^2 - 2 (-1 + $CellContext`c) $CellContext`\[Gamma]$$^3) - 
           Rational[-1, 2] $CellContext`k (-2 + 
            2 $CellContext`c + $CellContext`k) < 0, 
          Rational[1, 2] (-2 + $CellContext`\[Gamma]$$^2)^(-2) (
             1 + $CellContext`k (-1 + $CellContext`\[Gamma]$$^2) ((-2) \
$CellContext`\[Gamma]$$ + $CellContext`k (-4 + 3 $CellContext`\[Gamma]$$^2))) - 
           Rational[-1, 2] $CellContext`k (-2 + 
            2 $CellContext`c + $CellContext`k) < 0}, {$CellContext`k, 0, 
          1}, {$CellContext`c, 0, 1.1}], 
        Graphics[{Dotted, 
          Line[{{0.5, 0}, {0.5, 1}}]}], 
        Plot[{
         1 - 3 $CellContext`k + $CellContext`k $CellContext`\[Gamma]$$^2 + \
((-2) $CellContext`k + $CellContext`\[Gamma]$$)/(-2 + \
$CellContext`\[Gamma]$$^2), 1 + Rational[-1, 8]/$CellContext`k + 
          Rational[-1, 2] $CellContext`k}, {$CellContext`k, 0, 1}]], 
      "Specifications" :> {{{$CellContext`\[Gamma]$$, 0.4}, 0, 1}}, 
      "Options" :> {}, "DefaultOptions" :> {}],
     ImageSizeCache->{551., {301., 308.}},
     SingleEvaluation->True],
    Deinitialization:>None,
    DynamicModuleValues:>{},
    SynchronousInitialization->True,
    UnsavedVariables:>{Typeset`initDone$$},
    UntrackedVariables:>{Typeset`size$$}], "Manipulate",
   Deployed->True,
   StripOnInput->False],
  Manipulate`InterpretManipulate[1]]], "Output",
 CellChangeTimes->{
  3.783944939132619*^9, {3.7839450714759703`*^9, 3.7839450948083076`*^9}, 
   3.7839451603693295`*^9, 3.7839453833217573`*^9, {3.7839461924831047`*^9, 
   3.7839461953008647`*^9}, 3.7844390184389267`*^9, 3.7844394223489933`*^9, 
   3.7847049188395667`*^9, 3.784707020851157*^9, 3.7847070582596793`*^9, 
   3.784707144028658*^9, 3.7848751986539497`*^9, 3.785172681324168*^9, 
   3.785227480283563*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", 
   RowBox[{
   "Defining", " ", "the", " ", "relevan", " ", "boundaries", " ", "for", " ",
     "welfare"}], "*)"}], "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"FullSimplify", "[", 
     RowBox[{
      RowBox[{
       RowBox[{"v", "-", 
        RowBox[{"p2", " ", "q2"}], "-", 
        RowBox[{"p1", " ", "q1"}]}], "/.", "qNE"}], "/.", "pNE"}], "]"}], 
    ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"FullSimplify", "[", 
     RowBox[{
      RowBox[{
       RowBox[{"v", "-", 
        RowBox[{"p2", " ", "q2"}], "-", 
        RowBox[{"p1", " ", "q1"}]}], "/.", "qNE"}], "/.", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"p1", "->", "p1eqrat"}], ",", 
        RowBox[{"p2", "->", "p2eqrat"}]}], "}"}]}], "]"}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"FullSimplify", "[", 
     RowBox[{
      RowBox[{"ve1", "-", 
       RowBox[{"1", "/", "4"}]}], "/.", 
      RowBox[{"q1", "\[Rule]", 
       RowBox[{"1", "/", "2"}]}]}], "]"}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"FullSimplify", "[", 
     RowBox[{
      RowBox[{
       RowBox[{"ve1", "-", 
        RowBox[{"p1", " ", "q1"}]}], "/.", 
       RowBox[{"q1", "\[Rule]", 
        RowBox[{"1", "-", "p1"}]}]}], "/.", 
      RowBox[{"p1", "->", "p1econstr"}]}], "]"}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{"cWelfBoundA", "=", 
    RowBox[{
     RowBox[{"FullSimplify", "[", 
      RowBox[{
       RowBox[{"Solve", "[", 
        RowBox[{
         RowBox[{
          RowBox[{"%%%%", "-", "%"}], "\[Equal]", "0"}], ",", "c"}], "]"}], 
       ",", 
       RowBox[{
        RowBox[{
         RowBox[{"-", "4"}], "+", 
         SuperscriptBox["\[Gamma]", "2"]}], ">", "0"}]}], "]"}], "[", 
     RowBox[{"[", 
      RowBox[{"2", ",", "1", ",", "2"}], "]"}], "]"}]}], 
   "\[IndentingNewLine]", 
   RowBox[{"cWelfBoundB", "=", 
    RowBox[{
     RowBox[{"FullSimplify", "[", 
      RowBox[{
       RowBox[{"Solve", "[", 
        RowBox[{
         RowBox[{
          RowBox[{"%%%%", "-", "%%"}], "\[Equal]", "0"}], ",", "c"}], "]"}], 
       ",", 
       RowBox[{
        RowBox[{
         RowBox[{"-", "4"}], "+", 
         SuperscriptBox["\[Gamma]", "2"]}], ">", "0"}]}], "]"}], "[", 
     RowBox[{"[", 
      RowBox[{"1", ",", "1", ",", "2"}], "]"}], "]"}]}]}]}]], "Input",
 CellChangeTimes->{{3.7839457017992887`*^9, 3.7839457450097685`*^9}, {
  3.7839458209827514`*^9, 3.7839459275789976`*^9}, {3.7839460780648937`*^9, 
  3.7839460986831384`*^9}, {3.783946133341247*^9, 3.7839461340941515`*^9}, {
  3.7844395398695154`*^9, 3.784439543349169*^9}, {3.784440224026718*^9, 
  3.7844402293791265`*^9}, {3.7852274858951225`*^9, 3.785227496271136*^9}}],

Cell[BoxData[
 FractionBox[
  RowBox[{
   RowBox[{"-", "4"}], "+", 
   RowBox[{"16", " ", "k"}], "+", 
   RowBox[{"3", " ", 
    SuperscriptBox["\[Gamma]", "2"]}], "-", 
   RowBox[{"24", " ", "k", " ", 
    SuperscriptBox["\[Gamma]", "2"]}], "+", 
   SuperscriptBox["\[Gamma]", "3"], "+", 
   RowBox[{"9", " ", "k", " ", 
    SuperscriptBox["\[Gamma]", "4"]}], "-", 
   RowBox[{"k", " ", 
    SuperscriptBox["\[Gamma]", "6"]}], "+", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", "4"}], "+", 
      SuperscriptBox["\[Gamma]", "2"]}], ")"}], " ", 
    SqrtBox[
     RowBox[{
      RowBox[{"(", 
       RowBox[{
        RowBox[{"-", "1"}], "+", 
        SuperscriptBox["\[Gamma]", "2"]}], ")"}], " ", 
      RowBox[{"(", 
       RowBox[{"1", "-", 
        RowBox[{"2", " ", "k", " ", 
         SuperscriptBox["\[Gamma]", "3"]}], "+", 
        RowBox[{
         SuperscriptBox["k", "2"], " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"-", "12"}], "+", 
           RowBox[{"21", " ", 
            SuperscriptBox["\[Gamma]", "2"]}], "-", 
           RowBox[{"9", " ", 
            SuperscriptBox["\[Gamma]", "4"]}], "+", 
           SuperscriptBox["\[Gamma]", "6"]}], ")"}]}]}], ")"}]}]]}]}], 
  RowBox[{
   RowBox[{"-", "4"}], "+", 
   RowBox[{"3", " ", 
    SuperscriptBox["\[Gamma]", "2"]}]}]]], "Output",
 CellChangeTimes->{{3.7839457108716564`*^9, 3.783945746368225*^9}, {
   3.7839458379288225`*^9, 3.7839458598392878`*^9}, 3.7839458970352926`*^9, 
   3.783945929517723*^9, 3.7839461362644844`*^9, 3.7844390253744316`*^9, 
   3.7844394273544626`*^9, 3.784439544129113*^9, 3.784440234211974*^9, 
   3.784704920237645*^9, 3.784875200790674*^9, 3.7851726825947623`*^9, 
   3.785227498120981*^9}],

Cell[BoxData[
 RowBox[{
  FractionBox["1", "2"], " ", 
  RowBox[{"(", 
   RowBox[{"2", "+", 
    FractionBox[
     RowBox[{
      RowBox[{"-", "1"}], "+", 
      RowBox[{"2", " ", "k", " ", "\[Gamma]", " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"-", "1"}], "+", 
         SuperscriptBox["\[Gamma]", "2"]}], ")"}]}], "+", 
      RowBox[{
       SuperscriptBox["k", "2"], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"-", "8"}], "+", 
         RowBox[{"11", " ", 
          SuperscriptBox["\[Gamma]", "2"]}], "-", 
         RowBox[{"4", " ", 
          SuperscriptBox["\[Gamma]", "4"]}]}], ")"}]}]}], 
     RowBox[{"k", " ", 
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{
         RowBox[{"-", "2"}], "+", 
         SuperscriptBox["\[Gamma]", "2"]}], ")"}], "2"]}]]}], 
   ")"}]}]], "Output",
 CellChangeTimes->{{3.7839457108716564`*^9, 3.783945746368225*^9}, {
   3.7839458379288225`*^9, 3.7839458598392878`*^9}, 3.7839458970352926`*^9, 
   3.783945929517723*^9, 3.7839461362644844`*^9, 3.7844390253744316`*^9, 
   3.7844394273544626`*^9, 3.784439544129113*^9, 3.784440234211974*^9, 
   3.784704920237645*^9, 3.784875200790674*^9, 3.7851726825947623`*^9, 
   3.7852274983084373`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", 
   RowBox[{
   "Plotting", " ", "the", " ", "boundaries", " ", "for", " ", "welfare"}], 
   "*)"}], "\[IndentingNewLine]", 
  RowBox[{"cmin", "\[IndentingNewLine]", 
   RowBox[{"clim", ";"}], "\[IndentingNewLine]", 
   RowBox[{"cpe1constr", ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"FullSimplify", "[", 
      RowBox[{
       RowBox[{"Solve", "[", 
        RowBox[{
         RowBox[{"cWelfBoundB", "==", "cq2k"}], ",", "k"}], "]"}], ",", 
       RowBox[{
        RowBox[{
         RowBox[{"-", "2"}], "+", 
         SuperscriptBox["\[Gamma]", "2"]}], ">", "0"}]}], "]"}], "[", 
     RowBox[{"[", 
      RowBox[{"2", ",", "1", ",", "2"}], "]"}], "]"}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"FullSimplify", "[", 
      RowBox[{
       RowBox[{"Solve", "[", 
        RowBox[{
         RowBox[{"cq2k", "\[Equal]", "0"}], ",", "k"}], "]"}], ",", 
       RowBox[{
        RowBox[{
         RowBox[{"-", "2"}], "+", 
         SuperscriptBox["\[Gamma]", "2"]}], ">", "0"}]}], "]"}], "[", 
     RowBox[{"[", 
      RowBox[{"1", ",", "1", ",", "2"}], "]"}], "]"}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"Piecewise", "[", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"cWelfBoundB", ",", 
         RowBox[{"cWelfBoundB", "<", "cq2k"}]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"cWelfBoundA", ",", 
         RowBox[{"cWelfBoundB", ">", "cq2k"}]}], "}"}]}], "}"}], "]"}], ";"}],
    "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{"Manipulate", "[", 
    RowBox[{
     RowBox[{"Show", "[", 
      RowBox[{
       RowBox[{"Plot", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"%", ",", "%%%%", ",", "%%%%%", ",", "%%%%%%"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"k", ",", "0", ",", "1"}], "}"}]}], "]"}], ",", 
       "\[IndentingNewLine]", 
       RowBox[{"Plot", "[", 
        RowBox[{
         RowBox[{"1", "-", 
          RowBox[{"3", " ", "k"}], "+", 
          RowBox[{"k", " ", 
           SuperscriptBox["\[Gamma]", "2"]}], "+", 
          FractionBox[
           RowBox[{
            RowBox[{
             RowBox[{"-", "2"}], " ", "k"}], "+", "\[Gamma]"}], 
           RowBox[{
            RowBox[{"-", "2"}], "+", 
            SuperscriptBox["\[Gamma]", "2"]}]]}], ",", 
         RowBox[{"{", 
          RowBox[{"k", ",", "%%%", ",", "%%"}], "}"}]}], "]"}]}], 
      "\[IndentingNewLine]", "\[IndentingNewLine]", "]"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"\[Gamma]", ",", "0.4"}], "}"}], ",", "0", ",", "1"}], 
      "}"}]}], "]"}]}]}]], "Input",
 CellChangeTimes->{{3.7839460464978395`*^9, 3.7839460672403307`*^9}, {
   3.783946255721278*^9, 3.7839463290790567`*^9}, {3.7839464140402193`*^9, 
   3.7839464300478373`*^9}, {3.783946571455001*^9, 3.78394657284339*^9}, {
   3.7839466568063183`*^9, 3.78394665932594*^9}, {3.7839467170720263`*^9, 
   3.78394676791906*^9}, {3.783946848611112*^9, 3.7839468527165804`*^9}, {
   3.7839469003577027`*^9, 3.7839469238383555`*^9}, {3.783946984444248*^9, 
   3.7839470049772806`*^9}, {3.7839470394972305`*^9, 3.783947090386306*^9}, {
   3.783947178110667*^9, 3.7839471852579536`*^9}, {3.783950852019664*^9, 
   3.783950858031265*^9}, {3.7850619015611134`*^9, 3.785061914946823*^9}, 
   3.7851727438586903`*^9, {3.7851728210481215`*^9, 3.7851728249993734`*^9}, {
   3.785172987880968*^9, 3.785172995344406*^9}, {3.7852275192715683`*^9, 
   3.785227541227469*^9}, 3.7852275791946926`*^9}],

Cell[BoxData[
 RowBox[{"-", 
  FractionBox[
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", "1"}], "+", "k"}], ")"}], "2"], 
   RowBox[{"2", " ", "k"}]]}]], "Output",
 CellChangeTimes->{{3.783946266123272*^9, 3.7839462982002068`*^9}, 
   3.7839463293950863`*^9, 3.783946434017706*^9, 3.7839465734250736`*^9, 
   3.783946659966264*^9, {3.783946717417883*^9, 3.783946768076621*^9}, 
   3.783946853226644*^9, 3.78394692648402*^9, 3.7839470057223206`*^9, {
   3.7839470400231752`*^9, 3.783947054688126*^9}, 3.7839470913198085`*^9, 
   3.783947185727548*^9, 3.7839508582414083`*^9, {3.7844390420547185`*^9, 
   3.784439047901802*^9}, 3.7844394404320555`*^9, 3.784704920935235*^9, 
   3.784875201499705*^9, 3.7850619157749434`*^9, 3.78517268304644*^9, 
   3.7851727443750014`*^9, 3.785172825518182*^9, 3.7851729360486383`*^9, {
   3.785172983328563*^9, 3.785172995826226*^9}, 3.7852275419375367`*^9, {
   3.785227579701536*^9, 3.785227604810665*^9}}],

Cell[BoxData[
 TagBox[
  StyleBox[
   DynamicModuleBox[{$CellContext`\[Gamma]$$ = 0.4, Typeset`show$$ = True, 
    Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", 
    Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = 
    "\"untitled\"", Typeset`specs$$ = {{{
       Hold[$CellContext`\[Gamma]$$], 0.4}, 0, 1}}, Typeset`size$$ = {
    486., {139., 148.}}, Typeset`update$$ = 0, Typeset`initDone$$, 
    Typeset`skipInitDone$$ = True, $CellContext`\[Gamma]$45150$$ = 0}, 
    DynamicBox[Manipulate`ManipulateBoxes[
     1, StandardForm, "Variables" :> {$CellContext`\[Gamma]$$ = 0.4}, 
      "ControllerVariables" :> {
        Hold[$CellContext`\[Gamma]$$, $CellContext`\[Gamma]$45150$$, 0]}, 
      "OtherVariables" :> {
       Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$, 
        Typeset`animator$$, Typeset`animvar$$, Typeset`name$$, 
        Typeset`specs$$, Typeset`size$$, Typeset`update$$, Typeset`initDone$$,
         Typeset`skipInitDone$$}, "Body" :> Show[
        Plot[{
          
          Piecewise[{{
            Rational[1, 2] (
              2 + $CellContext`k^(-1) (-2 + $CellContext`\[Gamma]$$^2)^(-2) \
(-1 + 2 $CellContext`k $CellContext`\[Gamma]$$ (-1 + \
$CellContext`\[Gamma]$$^2) + $CellContext`k^2 (-8 + 
                  11 $CellContext`\[Gamma]$$^2 - 
                  4 $CellContext`\[Gamma]$$^4))), 
             Rational[1, 2] (
               2 + $CellContext`k^(-1) (-2 + $CellContext`\[Gamma]$$^2)^(-2) \
(-1 + 2 $CellContext`k $CellContext`\[Gamma]$$ (-1 + \
$CellContext`\[Gamma]$$^2) + $CellContext`k^2 (-8 + 
                   11 $CellContext`\[Gamma]$$^2 - 
                   4 $CellContext`\[Gamma]$$^4))) < 
             1 - 3 $CellContext`k + $CellContext`k $CellContext`\[Gamma]$$^2 + \
((-2) $CellContext`k + $CellContext`\[Gamma]$$)/(-2 + \
$CellContext`\[Gamma]$$^2)}, {(-4 + 3 $CellContext`\[Gamma]$$^2)^(-1) (-4 + 
              16 $CellContext`k + 3 $CellContext`\[Gamma]$$^2 - 
              24 $CellContext`k $CellContext`\[Gamma]$$^2 + $CellContext`\
\[Gamma]$$^3 + 
              9 $CellContext`k $CellContext`\[Gamma]$$^4 - $CellContext`k \
$CellContext`\[Gamma]$$^6 + (-4 + $CellContext`\[Gamma]$$^2) ((-1 + \
$CellContext`\[Gamma]$$^2) (1 - 
                  2 $CellContext`k $CellContext`\[Gamma]$$^3 + \
$CellContext`k^2 (-12 + 21 $CellContext`\[Gamma]$$^2 - 
                    9 $CellContext`\[Gamma]$$^4 + \
$CellContext`\[Gamma]$$^6)))^Rational[1, 2]), 
             Rational[1, 2] (
               2 + $CellContext`k^(-1) (-2 + $CellContext`\[Gamma]$$^2)^(-2) \
(-1 + 2 $CellContext`k $CellContext`\[Gamma]$$ (-1 + \
$CellContext`\[Gamma]$$^2) + $CellContext`k^2 (-8 + 
                   11 $CellContext`\[Gamma]$$^2 - 
                   4 $CellContext`\[Gamma]$$^4))) > 
             1 - 3 $CellContext`k + $CellContext`k $CellContext`\[Gamma]$$^2 + \
((-2) $CellContext`k + $CellContext`\[Gamma]$$)/(-2 + \
$CellContext`\[Gamma]$$^2)}}, 0], 1 + Rational[-1, 8]/$CellContext`k + 
          Rational[-1, 2] $CellContext`k, 
          1 + $CellContext`\[Gamma]$$/(-2 + $CellContext`\[Gamma]$$^2), 
          Rational[-1, 
            2] (-1 + $CellContext`k)^2/$CellContext`k}, {$CellContext`k, 0, 
          1}], 
        Plot[
        1 - 3 $CellContext`k + $CellContext`k $CellContext`\[Gamma]$$^2 + \
((-2) $CellContext`k + $CellContext`\[Gamma]$$)/(-2 + \
$CellContext`\[Gamma]$$^2), {$CellContext`k, (-8 + 
            17 $CellContext`\[Gamma]$$^2 - 10 $CellContext`\[Gamma]$$^4 + 
            2 $CellContext`\[Gamma]$$^6)^(-1) ($CellContext`\[Gamma]$$ + (2 - 
              2 $CellContext`\[Gamma]$$^2)^
             Rational[1, 2] (-2 + $CellContext`\[Gamma]$$^2)), (
           2 + $CellContext`\[Gamma]$$ - $CellContext`\[Gamma]$$^2)^(-1)}]], 
      "Specifications" :> {{{$CellContext`\[Gamma]$$, 0.4}, 0, 1}}, 
      "Options" :> {}, "DefaultOptions" :> {}],
     ImageSizeCache->{551., {202., 209.}},
     SingleEvaluation->True],
    Deinitialization:>None,
    DynamicModuleValues:>{},
    SynchronousInitialization->True,
    UnsavedVariables:>{Typeset`initDone$$},
    UntrackedVariables:>{Typeset`size$$}], "Manipulate",
   Deployed->True,
   StripOnInput->False],
  Manipulate`InterpretManipulate[1]]], "Output",
 CellChangeTimes->{{3.783946266123272*^9, 3.7839462982002068`*^9}, 
   3.7839463293950863`*^9, 3.783946434017706*^9, 3.7839465734250736`*^9, 
   3.783946659966264*^9, {3.783946717417883*^9, 3.783946768076621*^9}, 
   3.783946853226644*^9, 3.78394692648402*^9, 3.7839470057223206`*^9, {
   3.7839470400231752`*^9, 3.783947054688126*^9}, 3.7839470913198085`*^9, 
   3.783947185727548*^9, 3.7839508582414083`*^9, {3.7844390420547185`*^9, 
   3.784439047901802*^9}, 3.7844394404320555`*^9, 3.784704920935235*^9, 
   3.784875201499705*^9, 3.7850619157749434`*^9, 3.78517268304644*^9, 
   3.7851727443750014`*^9, 3.785172825518182*^9, 3.7851729360486383`*^9, {
   3.785172983328563*^9, 3.785172995826226*^9}, 3.7852275419375367`*^9, {
   3.785227579701536*^9, 3.785227604857527*^9}}]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", 
   RowBox[{
    RowBox[{"This", " ", "is", " ", "the", " ", "welfare", " ", 
     RowBox[{"effect", ":", " ", 
      RowBox[{
      "above", " ", "the", " ", "blue", " ", "line", " ", "welfare", " ", 
       "is", " ", "reduced", " ", "by", " ", 
       RowBox[{
       "exclusivity", ".", "\[IndentingNewLine]", "\[IndentingNewLine]", 
        "Notice"}], " ", "that", " ", "when", " ", "the", " ", "change", " ", 
       "in", " ", "welfare", " ", "takes", " ", "place", " ", "we", " ", 
       "are", " ", "always", " ", "in", " ", "the", " ", "region", " ", 
       "where", " ", "for", " ", "exclusivity", " ", "we", " ", "have", " ", 
       "the", " ", "constrained", " ", "case"}]}]}], ",", " ", 
    RowBox[{
    "that", " ", "is", " ", "below", " ", "the", " ", "Red", " ", "line"}]}], 
   "*)"}], " "}]], "Input",
 CellChangeTimes->{{3.7839471011884737`*^9, 3.7839471532807827`*^9}, {
  3.7839471903719454`*^9, 3.7839471977943964`*^9}, {3.7839472764029884`*^9, 
  3.7839473115911903`*^9}, {3.783947409262697*^9, 3.7839474104761267`*^9}, {
  3.78394746651081*^9, 3.7839474736086893`*^9}, {3.7839508968424644`*^9, 
  3.783950944674906*^9}, {3.7852276253743343`*^9, 3.7852276254833*^9}}],

Cell[BoxData[
 RowBox[{"(*", 
  RowBox[{
  "Now", " ", "the", " ", "analysis", " ", "of", " ", "profitability"}], 
  "*)"}]], "Input",
 CellChangeTimes->{
  3.784441358690903*^9, {3.7852276442793875`*^9, 3.7852276521941586`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"FullSimplify", "[", 
  RowBox[{
   RowBox[{"P1", "/.", "qNE"}], "/.", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"p1", "->", "p1eqrat"}], ",", 
     RowBox[{"p2", "->", "p2eqrat"}]}], "}"}]}], "]"}], "\[IndentingNewLine]", 
 RowBox[{"FullSimplify", "[", 
  RowBox[{
   RowBox[{"P1", "/.", "qNE"}], "/.", "pNE"}], "]"}], "\[IndentingNewLine]", 
 RowBox[{"FullSimplify", "[", 
  RowBox[{
   RowBox[{"P1", "/.", 
    RowBox[{"q1", "\[Rule]", "q1mon"}]}], "/.", 
   RowBox[{"p1", "\[Rule]", "p1econstr"}]}], 
  "]"}], "\[IndentingNewLine]"}], "Input",
 CellChangeTimes->{{3.7844391137936573`*^9, 3.784439131499275*^9}, {
  3.7844392000626817`*^9, 3.7844392003312235`*^9}, {3.784439235564191*^9, 
  3.784439269187692*^9}, {3.7844394699150295`*^9, 3.7844394793080206`*^9}, {
  3.784440588995435*^9, 3.7844406251472244`*^9}, {3.7844411629510255`*^9, 
  3.78444116309719*^9}, {3.78444133738426*^9, 3.784441341489227*^9}}],

Cell[BoxData[
 RowBox[{"-", 
  FractionBox[
   RowBox[{
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{
       RowBox[{"-", "1"}], "+", 
       RowBox[{"k", " ", "\[Gamma]"}]}], ")"}], "2"], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", "1"}], "+", 
      SuperscriptBox["\[Gamma]", "2"]}], ")"}]}], 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", "2"}], "+", 
      SuperscriptBox["\[Gamma]", "2"]}], ")"}], "2"]]}]], "Output",
 CellChangeTimes->{
  3.7844391203843875`*^9, {3.7844392541173096`*^9, 3.7844392715752373`*^9}, {
   3.7844394448688602`*^9, 3.78443947983661*^9}, {3.7844405893975854`*^9, 
   3.7844406254264154`*^9}, 3.7844411635375814`*^9, 3.7847049209658127`*^9, 
   3.7848752016297092`*^9, 3.7851726830620637`*^9}],

Cell[BoxData[
 RowBox[{"-", 
  FractionBox[
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", "2"}], "+", "\[Gamma]", "-", 
      RowBox[{"c", " ", "\[Gamma]"}], "+", 
      SuperscriptBox["\[Gamma]", "2"]}], ")"}], "2"], 
   RowBox[{
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{
       RowBox[{"-", "4"}], "+", 
       SuperscriptBox["\[Gamma]", "2"]}], ")"}], "2"], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", "1"}], "+", 
      SuperscriptBox["\[Gamma]", "2"]}], ")"}]}]]}]], "Output",
 CellChangeTimes->{
  3.7844391203843875`*^9, {3.7844392541173096`*^9, 3.7844392715752373`*^9}, {
   3.7844394448688602`*^9, 3.78443947983661*^9}, {3.7844405893975854`*^9, 
   3.7844406254264154`*^9}, 3.7844411635375814`*^9, 3.7847049209658127`*^9, 
   3.7848752016297092`*^9, 3.7851726830776863`*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"k", " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{"-", "2"}], "+", 
     RowBox[{"2", " ", "c"}], "+", "k"}], ")"}]}], "+", 
  SqrtBox[
   RowBox[{
    RowBox[{"-", "k"}], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", "2"}], "+", 
      RowBox[{"2", " ", "c"}], "+", "k"}], ")"}]}]]}]], "Output",
 CellChangeTimes->{
  3.7844391203843875`*^9, {3.7844392541173096`*^9, 3.7844392715752373`*^9}, {
   3.7844394448688602`*^9, 3.78443947983661*^9}, {3.7844405893975854`*^9, 
   3.7844406254264154`*^9}, 3.7844411635375814`*^9, 3.7847049209658127`*^9, 
   3.7848752016297092`*^9, 3.7851726831089277`*^9}]
}, Open  ]],

Cell[BoxData[
 RowBox[{"(*", 
  RowBox[{
   RowBox[{
   "Since", " ", "Mathematica", " ", "does", " ", "not", " ", "solve", " ", 
    "directly", " ", "the", " ", "equality", " ", "between", " ", "profit", 
    " ", "with", " ", "exclusivity", " ", "the", " ", "constrained", " ", 
    "case", " ", "and", " ", "with", " ", "CR", " ", "Bertrand", " ", 
    "case"}], ",", " ", 
   RowBox[{
    RowBox[{
    "we", " ", "proceed", " ", "solving", " ", "with", " ", "manual", " ", 
     "manipulation", " ", 
     RowBox[{"(", 
      RowBox[{
      "then", " ", "we", " ", "check", " ", "the", " ", "solution", " ", "is",
        " ", "the", " ", "correct", " ", "one"}], ")"}]}], ":"}]}], 
  "*)"}]], "Input",
 CellChangeTimes->{{3.7844411681569395`*^9, 3.7844412334213805`*^9}, {
  3.7852276594904165`*^9, 3.7852276629164286`*^9}}],

Cell[BoxData[{
 RowBox[{
  RowBox[{"tmpc", "=", 
   RowBox[{"Solve", "[", 
    RowBox[{
     RowBox[{
      RowBox[{
       RowBox[{"-", "k"}], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"-", "2"}], "+", 
         RowBox[{"2", " ", "c"}], "+", "k"}], ")"}]}], "\[Equal]", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         RowBox[{"-", 
          FractionBox[
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", "2"}], "+", "\[Gamma]", "-", 
              RowBox[{"c", " ", "\[Gamma]"}], "+", 
              SuperscriptBox["\[Gamma]", "2"]}], ")"}], "2"], 
           RowBox[{
            SuperscriptBox[
             RowBox[{"(", 
              RowBox[{
               RowBox[{"-", "4"}], "+", 
               SuperscriptBox["\[Gamma]", "2"]}], ")"}], "2"], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", "1"}], "+", 
              SuperscriptBox["\[Gamma]", "2"]}], ")"}]}]]}], "-", 
         RowBox[{"k", " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"-", "2"}], "+", 
            RowBox[{"2", " ", "c"}], "+", "k"}], ")"}]}]}], ")"}], "^", 
       "2"}]}], ",", "c"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"cprofitA", "=", 
   RowBox[{"tmpc", "[", 
    RowBox[{"[", 
     RowBox[{"1", ",", "1", ",", "2"}], "]"}], "]"}]}], ";"}]}], "Input",
 CellChangeTimes->{{3.784440627979134*^9, 3.7844407105031757`*^9}, {
   3.7844408743194885`*^9, 3.7844408744727764`*^9}, {3.7844412372659626`*^9, 
   3.784441249223667*^9}, {3.784441285226386*^9, 3.7844412980561304`*^9}, 
   3.7844413489920187`*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", 
   RowBox[{
   "Defining", " ", "the", " ", "second", " ", "boundary", " ", "of", " ", 
    "profitability"}], "*)"}], "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"FullSimplify", "[", 
     RowBox[{
      RowBox[{"P1", "/.", "qNE"}], "/.", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"p1", "->", "p1eqrat"}], ",", 
        RowBox[{"p2", "->", "p2eqrat"}]}], "}"}]}], "]"}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"FullSimplify", "[", 
     RowBox[{
      RowBox[{"P1", "/.", "qNE"}], "/.", "pNE"}], "]"}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"FullSimplify", "[", 
     RowBox[{
      RowBox[{"P1", "/.", 
       RowBox[{"q1", "\[Rule]", "q1mon"}]}], "/.", 
      RowBox[{"p1", "\[Rule]", "p1econstr"}]}], "]"}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"tmpc2", "=", 
     RowBox[{"FullSimplify", "[", 
      RowBox[{"Solve", "[", 
       RowBox[{
        RowBox[{
         RowBox[{"%", "-", "%%%"}], "\[Equal]", "0"}], ",", "c"}], "]"}], 
      "]"}]}], ";"}]}]}]], "Input",
 CellChangeTimes->{{3.7844420210328846`*^9, 3.7844420491757283`*^9}, {
  3.7844421029395313`*^9, 3.7844421224862213`*^9}}],

Cell[BoxData[
 RowBox[{"(*", "PROFITABILITY", "*)"}]], "Input",
 CellChangeTimes->{{3.7839495270239234`*^9, 3.7839495310626736`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"clim", ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"{", 
   RowBox[{"cprofitA", ",", 
    RowBox[{"tmpc2", "[", 
     RowBox[{"[", 
      RowBox[{"1", ",", "1", ",", "2"}], "]"}], "]"}]}], "}"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"FullSimplify", "[", 
   RowBox[{
    RowBox[{"P1", "/.", "qNE"}], "/.", "pNE"}], "]"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"FullSimplify", "[", 
   RowBox[{
    RowBox[{"P1", "/.", 
     RowBox[{"q1", "\[Rule]", "q1mon"}]}], "/.", 
    RowBox[{"p1", "\[Rule]", "p1mon"}]}], "]"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"FullSimplify", "[", 
    RowBox[{
     RowBox[{"P1", "/.", 
      RowBox[{"q1", "\[Rule]", "q1mon"}]}], "/.", 
     RowBox[{"p1", "\[Rule]", "p1econstr"}]}], "]"}], ";"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{"cpe1constr", ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"FullSimplify", "[", 
    RowBox[{
     RowBox[{"Solve", "[", 
      RowBox[{
       RowBox[{"cWelfBoundB", "==", "cq2k"}], ",", "k"}], "]"}], ",", 
     RowBox[{
      RowBox[{
       RowBox[{"-", "2"}], "+", 
       SuperscriptBox["\[Gamma]", "2"]}], ">", "0"}]}], "]"}], "[", 
   RowBox[{"[", 
    RowBox[{"2", ",", "1", ",", "2"}], "]"}], "]"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"FullSimplify", "[", 
     RowBox[{
      RowBox[{"Solve", "[", 
       RowBox[{
        RowBox[{"cq2k", "\[Equal]", "0"}], ",", "k"}], "]"}], ",", 
      RowBox[{
       RowBox[{
        RowBox[{"-", "2"}], "+", 
        SuperscriptBox["\[Gamma]", "2"]}], ">", "0"}]}], "]"}], "[", 
    RowBox[{"[", 
     RowBox[{"1", ",", "1", ",", "2"}], "]"}], "]"}], ";"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"cWelfare", "=", 
    RowBox[{"Piecewise", "[", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"cWelfBoundB", ",", 
         RowBox[{"cWelfBoundB", "<", "cq2k"}]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"cWelfBoundA", ",", 
         RowBox[{"cWelfBoundB", ">", "cq2k"}]}], "}"}]}], "}"}], "]"}]}], 
   ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{"Manipulate", "[", 
  RowBox[{
   RowBox[{"Show", "[", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"RegionPlot", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"%%%%%", ">", "%%%%%%%"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"k", ",", "0", ",", "1"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"c", ",", 
         RowBox[{"-", "0.1"}], ",", "1.1"}], "}"}], ",", 
       RowBox[{"BoundaryStyle", "\[Rule]", 
        RowBox[{"{", "Red", "}"}]}]}], "]"}], ",", "\[IndentingNewLine]", 
     RowBox[{"Plot", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"%", ",", "%%%%", ",", "%%%%%%%%", ",", 
         RowBox[{"1", "-", "k"}]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"k", ",", "0", ",", "1"}], "}"}]}], "]"}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{"Plot", "[", 
      RowBox[{"%%%%%%%%", ",", 
       RowBox[{"{", 
        RowBox[{"k", ",", "0", ",", "1"}], "}"}], ",", 
       RowBox[{"PlotStyle", "\[Rule]", 
        RowBox[{"{", "Green", "}"}]}]}], "]"}]}], "\[IndentingNewLine]", 
    "\[IndentingNewLine]", "]"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"\[Gamma]", ",", "0.4"}], "}"}], ",", "0", ",", "1"}], "}"}]}], 
  "]"}]}], "Input",
 CellChangeTimes->{{3.78394996401275*^9, 3.7839500358216844`*^9}, {
   3.7839500779846573`*^9, 3.7839501016312885`*^9}, {3.783950735813637*^9, 
   3.7839507686007323`*^9}, {3.7840136680100484`*^9, 
   3.7840137947453136`*^9}, {3.7840138297533913`*^9, 3.784013872287488*^9}, {
   3.7840148071528196`*^9, 3.7840148080187407`*^9}, {3.7840148457833443`*^9, 
   3.7840148508330555`*^9}, {3.7840178585758657`*^9, 3.784017866096531*^9}, {
   3.784440748726335*^9, 3.784440930941655*^9}, 3.784441304160719*^9, {
   3.784441684245516*^9, 3.7844417009090033`*^9}, {3.7844420658651743`*^9, 
   3.784442095635047*^9}, {3.7844421510182943`*^9, 3.7844422191500463`*^9}, {
   3.7848755715410943`*^9, 3.784875572723234*^9}, 3.785227687177411*^9}],

Cell[BoxData[
 TagBox[
  StyleBox[
   DynamicModuleBox[{$CellContext`\[Gamma]$$ = 0.4, Typeset`show$$ = True, 
    Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", 
    Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = 
    "\"untitled\"", Typeset`specs$$ = {{{
       Hold[$CellContext`\[Gamma]$$], 0.4}, 0, 1}}, Typeset`size$$ = {
    486., {238., 246.}}, Typeset`update$$ = 0, Typeset`initDone$$, 
    Typeset`skipInitDone$$ = True, $CellContext`\[Gamma]$46859$$ = 0}, 
    DynamicBox[Manipulate`ManipulateBoxes[
     1, StandardForm, "Variables" :> {$CellContext`\[Gamma]$$ = 0.4}, 
      "ControllerVariables" :> {
        Hold[$CellContext`\[Gamma]$$, $CellContext`\[Gamma]$46859$$, 0]}, 
      "OtherVariables" :> {
       Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$, 
        Typeset`animator$$, Typeset`animvar$$, Typeset`name$$, 
        Typeset`specs$$, Typeset`size$$, Typeset`update$$, Typeset`initDone$$,
         Typeset`skipInitDone$$}, "Body" :> Show[
        RegionPlot[{$CellContext`k (-2 + 
             2 $CellContext`c + $CellContext`k) + (-$CellContext`k (-2 + 
              2 $CellContext`c + $CellContext`k))^
            Rational[
             1, 2] > -(-4 + $CellContext`\[Gamma]$$^2)^(-2) (-1 + \
$CellContext`\[Gamma]$$^2)^(-1) (-2 + $CellContext`\[Gamma]$$ - \
$CellContext`c $CellContext`\[Gamma]$$ + $CellContext`\[Gamma]$$^2)^2}, \
{$CellContext`k, 0, 1}, {$CellContext`c, -0.1, 1.1}, BoundaryStyle -> {Red}], 
        Plot[{
          
          Piecewise[{{
            Rational[1, 2] (
              2 + $CellContext`k^(-1) (-2 + $CellContext`\[Gamma]$$^2)^(-2) \
(-1 + 2 $CellContext`k $CellContext`\[Gamma]$$ (-1 + \
$CellContext`\[Gamma]$$^2) + $CellContext`k^2 (-8 + 
                  11 $CellContext`\[Gamma]$$^2 - 
                  4 $CellContext`\[Gamma]$$^4))), 
             Rational[1, 2] (
               2 + $CellContext`k^(-1) (-2 + $CellContext`\[Gamma]$$^2)^(-2) \
(-1 + 2 $CellContext`k $CellContext`\[Gamma]$$ (-1 + \
$CellContext`\[Gamma]$$^2) + $CellContext`k^2 (-8 + 
                   11 $CellContext`\[Gamma]$$^2 - 
                   4 $CellContext`\[Gamma]$$^4))) < 
             1 - 
              3 $CellContext`k + $CellContext`k $CellContext`\[Gamma]$$^2 + \
((-2) $CellContext`k + $CellContext`\[Gamma]$$)/(-2 + \
$CellContext`\[Gamma]$$^2)}, {(-4 + 3 $CellContext`\[Gamma]$$^2)^(-1) (-4 + 
              16 $CellContext`k + 3 $CellContext`\[Gamma]$$^2 - 
              24 $CellContext`k $CellContext`\[Gamma]$$^2 + $CellContext`\
\[Gamma]$$^3 + 
              9 $CellContext`k $CellContext`\[Gamma]$$^4 - $CellContext`k \
$CellContext`\[Gamma]$$^6 + (-4 + $CellContext`\[Gamma]$$^2) ((-1 + \
$CellContext`\[Gamma]$$^2) (1 - 
                  2 $CellContext`k $CellContext`\[Gamma]$$^3 + \
$CellContext`k^2 (-12 + 21 $CellContext`\[Gamma]$$^2 - 
                    9 $CellContext`\[Gamma]$$^4 + \
$CellContext`\[Gamma]$$^6)))^Rational[1, 2]), 
             Rational[1, 2] (
               2 + $CellContext`k^(-1) (-2 + $CellContext`\[Gamma]$$^2)^(-2) \
(-1 + 2 $CellContext`k $CellContext`\[Gamma]$$ (-1 + \
$CellContext`\[Gamma]$$^2) + $CellContext`k^2 (-8 + 
                   11 $CellContext`\[Gamma]$$^2 - 
                   4 $CellContext`\[Gamma]$$^4))) > 
             1 - 3 $CellContext`k + $CellContext`k $CellContext`\[Gamma]$$^2 + \
((-2) $CellContext`k + $CellContext`\[Gamma]$$)/(-2 + \
$CellContext`\[Gamma]$$^2)}}, 0], 1 + Rational[-1, 8]/$CellContext`k + 
          Rational[-1, 
             2] $CellContext`k, {-$CellContext`\[Gamma]$$^(-2) ((-16) \
$CellContext`k + 2 $CellContext`\[Gamma]$$ - $CellContext`\[Gamma]$$^2 + 
             24 $CellContext`k $CellContext`\[Gamma]$$^2 - $CellContext`\
\[Gamma]$$^3 - 
             9 $CellContext`k $CellContext`\[Gamma]$$^4 + $CellContext`k \
$CellContext`\[Gamma]$$^6) + 
           Rational[-1, 2] (
              4 $CellContext`\[Gamma]$$^(-4) ((-16) $CellContext`k + 
                 2 $CellContext`\[Gamma]$$ - $CellContext`\[Gamma]$$^2 + 
                 24 $CellContext`k $CellContext`\[Gamma]$$^2 - $CellContext`\
\[Gamma]$$^3 - 
                 9 $CellContext`k $CellContext`\[Gamma]$$^4 + $CellContext`k \
$CellContext`\[Gamma]$$^6)^2 + 
              Rational[-4, 3] $CellContext`\[Gamma]$$^(-4) (
                512 $CellContext`k^2 - 
                128 $CellContext`k $CellContext`\[Gamma]$$ + 
                12 $CellContext`\[Gamma]$$^2 + 
                96 $CellContext`k $CellContext`\[Gamma]$$^2 - 
                1552 $CellContext`k^2 $CellContext`\[Gamma]$$^2 - 
                12 $CellContext`\[Gamma]$$^3 + 
                256 $CellContext`k $CellContext`\[Gamma]$$^3 - 
                9 $CellContext`\[Gamma]$$^4 - 
                144 $CellContext`k $CellContext`\[Gamma]$$^4 + 
                1752 $CellContext`k^2 $CellContext`\[Gamma]$$^4 + 
                6 $CellContext`\[Gamma]$$^5 - 
                168 $CellContext`k $CellContext`\[Gamma]$$^5 + 
                3 $CellContext`\[Gamma]$$^6 + 
                54 $CellContext`k $CellContext`\[Gamma]$$^6 - 
                937 $CellContext`k^2 $CellContext`\[Gamma]$$^6 + 
                44 $CellContext`k $CellContext`\[Gamma]$$^7 - 
                6 $CellContext`k $CellContext`\[Gamma]$$^8 + 
                259 $CellContext`k^2 $CellContext`\[Gamma]$$^8 - 
                4 $CellContext`k $CellContext`\[Gamma]$$^9 - 
                36 $CellContext`k^2 $CellContext`\[Gamma]$$^10 + 
                2 $CellContext`k^2 $CellContext`\[Gamma]$$^12) + 
              Rational[4, 3] 
               2^Rational[1, 3] $CellContext`\[Gamma]$$^(-4) (
                262144 $CellContext`k^4 - 
                131072 $CellContext`k^3 $CellContext`\[Gamma]$$ + 
                40960 $CellContext`k^2 $CellContext`\[Gamma]$$^2 - 
                1540096 $CellContext`k^4 $CellContext`\[Gamma]$$^2 - 
                3072 $CellContext`k $CellContext`\[Gamma]$$^3 + 
                647168 $CellContext`k^3 $CellContext`\[Gamma]$$^3 - 
                175360 $CellContext`k^2 $CellContext`\[Gamma]$$^4 + 
                3982336 $CellContext`k^4 $CellContext`\[Gamma]$$^4 + 
                10752 $CellContext`k $CellContext`\[Gamma]$$^5 - 
                1372160 $CellContext`k^3 $CellContext`\[Gamma]$$^5 + 
                313600 $CellContext`k^2 $CellContext`\[Gamma]$$^6 - 
                5985280 $CellContext`k^4 $CellContext`\[Gamma]$$^6 - 
                14976 $CellContext`k $CellContext`\[Gamma]$$^7 + 
                1643520 $CellContext`k^3 $CellContext`\[Gamma]$$^7 - 
                306656 $CellContext`k^2 $CellContext`\[Gamma]$$^8 + 
                5821824 $CellContext`k^4 $CellContext`\[Gamma]$$^8 + 
                10752 $CellContext`k $CellContext`\[Gamma]$$^9 - 
                1232384 $CellContext`k^3 $CellContext`\[Gamma]$$^9 + 
                180848 $CellContext`k^2 $CellContext`\[Gamma]$$^10 - 
                3864512 $CellContext`k^4 $CellContext`\[Gamma]$$^10 - 
                4332 $CellContext`k $CellContext`\[Gamma]$$^11 + 
                605920 $CellContext`k^3 $CellContext`\[Gamma]$$^11 - 
                66989 $CellContext`k^2 $CellContext`\[Gamma]$$^12 + 
                1798596 $CellContext`k^4 $CellContext`\[Gamma]$$^12 + 
                990 $CellContext`k $CellContext`\[Gamma]$$^13 - 
                198480 $CellContext`k^3 $CellContext`\[Gamma]$$^13 + 
                15664 $CellContext`k^2 $CellContext`\[Gamma]$$^14 - 
                592896 $CellContext`k^4 $CellContext`\[Gamma]$$^14 - 
                120 $CellContext`k $CellContext`\[Gamma]$$^15 + 
                42928 $CellContext`k^3 $CellContext`\[Gamma]$$^15 - 
                2239 $CellContext`k^2 $CellContext`\[Gamma]$$^16 + 
                137776 $CellContext`k^4 $CellContext`\[Gamma]$$^16 + 
                6 $CellContext`k $CellContext`\[Gamma]$$^17 - 
                5888 $CellContext`k^3 $CellContext`\[Gamma]$$^17 + 
                178 $CellContext`k^2 $CellContext`\[Gamma]$$^18 - 
                22072 $CellContext`k^4 $CellContext`\[Gamma]$$^18 + 
                464 $CellContext`k^3 $CellContext`\[Gamma]$$^19 - 
                6 $CellContext`k^2 $CellContext`\[Gamma]$$^20 + 
                2320 $CellContext`k^4 $CellContext`\[Gamma]$$^20 - 
                16 $CellContext`k^3 $CellContext`\[Gamma]$$^21 - 
                144 $CellContext`k^4 $CellContext`\[Gamma]$$^22 + 
                4 $CellContext`k^4 $CellContext`\[Gamma]$$^24) (
                 16 (512 $CellContext`k^2 - 
                    128 $CellContext`k $CellContext`\[Gamma]$$ + 
                    12 $CellContext`\[Gamma]$$^2 + 
                    96 $CellContext`k $CellContext`\[Gamma]$$^2 - 
                    1552 $CellContext`k^2 $CellContext`\[Gamma]$$^2 - 
                    12 $CellContext`\[Gamma]$$^3 + 
                    256 $CellContext`k $CellContext`\[Gamma]$$^3 - 
                    9 $CellContext`\[Gamma]$$^4 - 
                    144 $CellContext`k $CellContext`\[Gamma]$$^4 + 
                    1752 $CellContext`k^2 $CellContext`\[Gamma]$$^4 + 
                    6 $CellContext`\[Gamma]$$^5 - 
                    168 $CellContext`k $CellContext`\[Gamma]$$^5 + 
                    3 $CellContext`\[Gamma]$$^6 + 
                    54 $CellContext`k $CellContext`\[Gamma]$$^6 - 
                    937 $CellContext`k^2 $CellContext`\[Gamma]$$^6 + 
                    44 $CellContext`k $CellContext`\[Gamma]$$^7 - 
                    6 $CellContext`k $CellContext`\[Gamma]$$^8 + 
                    259 $CellContext`k^2 $CellContext`\[Gamma]$$^8 - 
                    4 $CellContext`k $CellContext`\[Gamma]$$^9 - 
                    36 $CellContext`k^2 $CellContext`\[Gamma]$$^10 + 
                    2 $CellContext`k^2 $CellContext`\[Gamma]$$^12)^3 - 
                 144 ((-16) $CellContext`k $CellContext`\[Gamma]$$^2 + 
                  2 $CellContext`\[Gamma]$$^3 - $CellContext`\[Gamma]$$^4 + 
                  24 $CellContext`k $CellContext`\[Gamma]$$^4 - $CellContext`\
\[Gamma]$$^5 - 
                  9 $CellContext`k $CellContext`\[Gamma]$$^6 + $CellContext`k \
$CellContext`\[Gamma]$$^8) (512 $CellContext`k^2 - 
                  128 $CellContext`k $CellContext`\[Gamma]$$ + 
                  12 $CellContext`\[Gamma]$$^2 + 
                  96 $CellContext`k $CellContext`\[Gamma]$$^2 - 
                  1552 $CellContext`k^2 $CellContext`\[Gamma]$$^2 - 
                  12 $CellContext`\[Gamma]$$^3 + 
                  256 $CellContext`k $CellContext`\[Gamma]$$^3 - 
                  9 $CellContext`\[Gamma]$$^4 - 
                  144 $CellContext`k $CellContext`\[Gamma]$$^4 + 
                  1752 $CellContext`k^2 $CellContext`\[Gamma]$$^4 + 
                  6 $CellContext`\[Gamma]$$^5 - 
                  168 $CellContext`k $CellContext`\[Gamma]$$^5 + 
                  3 $CellContext`\[Gamma]$$^6 + 
                  54 $CellContext`k $CellContext`\[Gamma]$$^6 - 
                  937 $CellContext`k^2 $CellContext`\[Gamma]$$^6 + 
                  44 $CellContext`k $CellContext`\[Gamma]$$^7 - 
                  6 $CellContext`k $CellContext`\[Gamma]$$^8 + 
                  259 $CellContext`k^2 $CellContext`\[Gamma]$$^8 - 
                  4 $CellContext`k $CellContext`\[Gamma]$$^9 - 
                  36 $CellContext`k^2 $CellContext`\[Gamma]$$^10 + 
                  2 $CellContext`k^2 $CellContext`\[Gamma]$$^12) (
                  128 $CellContext`k - 1024 $CellContext`k^2 + 
                  512 $CellContext`k^3 + 16 $CellContext`\[Gamma]$$ + 
                  256 $CellContext`k $CellContext`\[Gamma]$$ - 
                  64 $CellContext`k^2 $CellContext`\[Gamma]$$ - 
                  24 $CellContext`\[Gamma]$$^2 - 
                  544 $CellContext`k $CellContext`\[Gamma]$$^2 + 
                  3104 $CellContext`k^2 $CellContext`\[Gamma]$$^2 - 
                  1536 $CellContext`k^3 $CellContext`\[Gamma]$$^2 - 
                  12 $CellContext`\[Gamma]$$^3 - 
                  512 $CellContext`k $CellContext`\[Gamma]$$^3 + 
                  128 $CellContext`k^2 $CellContext`\[Gamma]$$^3 + 
                  22 $CellContext`\[Gamma]$$^4 + 
                  712 $CellContext`k $CellContext`\[Gamma]$$^4 - 
                  3504 $CellContext`k^2 $CellContext`\[Gamma]$$^4 + 
                  1728 $CellContext`k^3 $CellContext`\[Gamma]$$^4 + 
                  6 $CellContext`\[Gamma]$$^5 + 
                  336 $CellContext`k $CellContext`\[Gamma]$$^5 - 
                  84 $CellContext`k^2 $CellContext`\[Gamma]$$^5 - 
                  6 $CellContext`\[Gamma]$$^6 - 
                  390 $CellContext`k $CellContext`\[Gamma]$$^6 + 
                  1874 $CellContext`k^2 $CellContext`\[Gamma]$$^6 - 
                  928 $CellContext`k^3 $CellContext`\[Gamma]$$^6 - 
                  2 $CellContext`\[Gamma]$$^7 - 
                  88 $CellContext`k $CellContext`\[Gamma]$$^7 + 
                  22 $CellContext`k^2 $CellContext`\[Gamma]$$^7 + 
                  109 $CellContext`k $CellContext`\[Gamma]$$^8 - 
                  518 $CellContext`k^2 $CellContext`\[Gamma]$$^8 + 
                  258 $CellContext`k^3 $CellContext`\[Gamma]$$^8 + 
                  8 $CellContext`k $CellContext`\[Gamma]$$^9 - 
                  2 $CellContext`k^2 $CellContext`\[Gamma]$$^9 - 
                  16 $CellContext`k $CellContext`\[Gamma]$$^10 + 
                  72 $CellContext`k^2 $CellContext`\[Gamma]$$^10 - 
                  36 $CellContext`k^3 $CellContext`\[Gamma]$$^10 + \
$CellContext`k $CellContext`\[Gamma]$$^12 - 
                  4 $CellContext`k^2 $CellContext`\[Gamma]$$^12 + 
                  2 $CellContext`k^3 $CellContext`\[Gamma]$$^12) + 
                 108 $CellContext`\[Gamma]$$^4 (128 $CellContext`k - 
                    1024 $CellContext`k^2 + 512 $CellContext`k^3 + 
                    16 $CellContext`\[Gamma]$$ + 
                    256 $CellContext`k $CellContext`\[Gamma]$$ - 
                    64 $CellContext`k^2 $CellContext`\[Gamma]$$ - 
                    24 $CellContext`\[Gamma]$$^2 - 
                    544 $CellContext`k $CellContext`\[Gamma]$$^2 + 
                    3104 $CellContext`k^2 $CellContext`\[Gamma]$$^2 - 
                    1536 $CellContext`k^3 $CellContext`\[Gamma]$$^2 - 
                    12 $CellContext`\[Gamma]$$^3 - 
                    512 $CellContext`k $CellContext`\[Gamma]$$^3 + 
                    128 $CellContext`k^2 $CellContext`\[Gamma]$$^3 + 
                    22 $CellContext`\[Gamma]$$^4 + 
                    712 $CellContext`k $CellContext`\[Gamma]$$^4 - 
                    3504 $CellContext`k^2 $CellContext`\[Gamma]$$^4 + 
                    1728 $CellContext`k^3 $CellContext`\[Gamma]$$^4 + 
                    6 $CellContext`\[Gamma]$$^5 + 
                    336 $CellContext`k $CellContext`\[Gamma]$$^5 - 
                    84 $CellContext`k^2 $CellContext`\[Gamma]$$^5 - 
                    6 $CellContext`\[Gamma]$$^6 - 
                    390 $CellContext`k $CellContext`\[Gamma]$$^6 + 
                    1874 $CellContext`k^2 $CellContext`\[Gamma]$$^6 - 
                    928 $CellContext`k^3 $CellContext`\[Gamma]$$^6 - 
                    2 $CellContext`\[Gamma]$$^7 - 
                    88 $CellContext`k $CellContext`\[Gamma]$$^7 + 
                    22 $CellContext`k^2 $CellContext`\[Gamma]$$^7 + 
                    109 $CellContext`k $CellContext`\[Gamma]$$^8 - 
                    518 $CellContext`k^2 $CellContext`\[Gamma]$$^8 + 
                    258 $CellContext`k^3 $CellContext`\[Gamma]$$^8 + 
                    8 $CellContext`k $CellContext`\[Gamma]$$^9 - 
                    2 $CellContext`k^2 $CellContext`\[Gamma]$$^9 - 
                    16 $CellContext`k $CellContext`\[Gamma]$$^10 + 
                    72 $CellContext`k^2 $CellContext`\[Gamma]$$^10 - 
                    36 $CellContext`k^3 $CellContext`\[Gamma]$$^10 + \
$CellContext`k $CellContext`\[Gamma]$$^12 - 
                    4 $CellContext`k^2 $CellContext`\[Gamma]$$^12 + 
                    2 $CellContext`k^3 $CellContext`\[Gamma]$$^12)^2 + 
                 432 ((-16) $CellContext`k $CellContext`\[Gamma]$$^2 + 
                    2 $CellContext`\[Gamma]$$^3 - $CellContext`\[Gamma]$$^4 + 
                    24 $CellContext`k $CellContext`\[Gamma]$$^4 - \
$CellContext`\[Gamma]$$^5 - 
                    9 $CellContext`k $CellContext`\[Gamma]$$^6 + \
$CellContext`k $CellContext`\[Gamma]$$^8)^2 (16 - 256 $CellContext`k + 
                   1152 $CellContext`k^2 - 1024 $CellContext`k^3 + 
                   256 $CellContext`k^4 - 32 $CellContext`\[Gamma]$$ - 
                   256 $CellContext`k $CellContext`\[Gamma]$$ + 
                   128 $CellContext`k^2 $CellContext`\[Gamma]$$ - 
                   8 $CellContext`\[Gamma]$$^2 + 
                   960 $CellContext`k $CellContext`\[Gamma]$$^2 - 
                   3552 $CellContext`k^2 $CellContext`\[Gamma]$$^2 + 
                   3072 $CellContext`k^3 $CellContext`\[Gamma]$$^2 - 
                   768 $CellContext`k^4 $CellContext`\[Gamma]$$^2 + 
                   40 $CellContext`\[Gamma]$$^3 + 
                   512 $CellContext`k $CellContext`\[Gamma]$$^3 - 
                   256 $CellContext`k^2 $CellContext`\[Gamma]$$^3 + \
$CellContext`\[Gamma]$$^4 - 1232 $CellContext`k $CellContext`\[Gamma]$$^4 + 
                   4072 $CellContext`k^2 $CellContext`\[Gamma]$$^4 - 
                   3456 $CellContext`k^3 $CellContext`\[Gamma]$$^4 + 
                   864 $CellContext`k^4 $CellContext`\[Gamma]$$^4 - 
                   20 $CellContext`\[Gamma]$$^5 - 
                   336 $CellContext`k $CellContext`\[Gamma]$$^5 + 
                   168 $CellContext`k^2 $CellContext`\[Gamma]$$^5 - 
                   2 $CellContext`\[Gamma]$$^6 + 
                   708 $CellContext`k $CellContext`\[Gamma]$$^6 - 
                   2210 $CellContext`k^2 $CellContext`\[Gamma]$$^6 + 
                   1856 $CellContext`k^3 $CellContext`\[Gamma]$$^6 - 
                   464 $CellContext`k^4 $CellContext`\[Gamma]$$^6 + 
                   4 $CellContext`\[Gamma]$$^7 + 
                   88 $CellContext`k $CellContext`\[Gamma]$$^7 - 
                   44 $CellContext`k^2 $CellContext`\[Gamma]$$^7 + \
$CellContext`\[Gamma]$$^8 - 210 $CellContext`k $CellContext`\[Gamma]$$^8 + 
                   621 $CellContext`k^2 $CellContext`\[Gamma]$$^8 - 
                   516 $CellContext`k^3 $CellContext`\[Gamma]$$^8 + 
                   129 $CellContext`k^4 $CellContext`\[Gamma]$$^8 - 
                   8 $CellContext`k $CellContext`\[Gamma]$$^9 + 
                   4 $CellContext`k^2 $CellContext`\[Gamma]$$^9 + 
                   32 $CellContext`k $CellContext`\[Gamma]$$^10 - 
                   88 $CellContext`k^2 $CellContext`\[Gamma]$$^10 + 
                   72 $CellContext`k^3 $CellContext`\[Gamma]$$^10 - 
                   18 $CellContext`k^4 $CellContext`\[Gamma]$$^10 - 
                   2 $CellContext`k $CellContext`\[Gamma]$$^12 + 
                   5 $CellContext`k^2 $CellContext`\[Gamma]$$^12 - 
                   4 $CellContext`k^3 $CellContext`\[Gamma]$$^12 + \
$CellContext`k^4 $CellContext`\[Gamma]$$^12) - 
                 144 $CellContext`\[Gamma]$$^4 (512 $CellContext`k^2 - 
                  128 $CellContext`k $CellContext`\[Gamma]$$ + 
                  12 $CellContext`\[Gamma]$$^2 + 
                  96 $CellContext`k $CellContext`\[Gamma]$$^2 - 
                  1552 $CellContext`k^2 $CellContext`\[Gamma]$$^2 - 
                  12 $CellContext`\[Gamma]$$^3 + 
                  256 $CellContext`k $CellContext`\[Gamma]$$^3 - 
                  9 $CellContext`\[Gamma]$$^4 - 
                  144 $CellContext`k $CellContext`\[Gamma]$$^4 + 
                  1752 $CellContext`k^2 $CellContext`\[Gamma]$$^4 + 
                  6 $CellContext`\[Gamma]$$^5 - 
                  168 $CellContext`k $CellContext`\[Gamma]$$^5 + 
                  3 $CellContext`\[Gamma]$$^6 + 
                  54 $CellContext`k $CellContext`\[Gamma]$$^6 - 
                  937 $CellContext`k^2 $CellContext`\[Gamma]$$^6 + 
                  44 $CellContext`k $CellContext`\[Gamma]$$^7 - 
                  6 $CellContext`k $CellContext`\[Gamma]$$^8 + 
                  259 $CellContext`k^2 $CellContext`\[Gamma]$$^8 - 
                  4 $CellContext`k $CellContext`\[Gamma]$$^9 - 
                  36 $CellContext`k^2 $CellContext`\[Gamma]$$^10 + 
                  2 $CellContext`k^2 $CellContext`\[Gamma]$$^12) (16 - 
                  256 $CellContext`k + 1152 $CellContext`k^2 - 
                  1024 $CellContext`k^3 + 256 $CellContext`k^4 - 
                  32 $CellContext`\[Gamma]$$ - 
                  256 $CellContext`k $CellContext`\[Gamma]$$ + 
                  128 $CellContext`k^2 $CellContext`\[Gamma]$$ - 
                  8 $CellContext`\[Gamma]$$^2 + 
                  960 $CellContext`k $CellContext`\[Gamma]$$^2 - 
                  3552 $CellContext`k^2 $CellContext`\[Gamma]$$^2 + 
                  3072 $CellContext`k^3 $CellContext`\[Gamma]$$^2 - 
                  768 $CellContext`k^4 $CellContext`\[Gamma]$$^2 + 
                  40 $CellContext`\[Gamma]$$^3 + 
                  512 $CellContext`k $CellContext`\[Gamma]$$^3 - 
                  256 $CellContext`k^2 $CellContext`\[Gamma]$$^3 + \
$CellContext`\[Gamma]$$^4 - 1232 $CellContext`k $CellContext`\[Gamma]$$^4 + 
                  4072 $CellContext`k^2 $CellContext`\[Gamma]$$^4 - 
                  3456 $CellContext`k^3 $CellContext`\[Gamma]$$^4 + 
                  864 $CellContext`k^4 $CellContext`\[Gamma]$$^4 - 
                  20 $CellContext`\[Gamma]$$^5 - 
                  336 $CellContext`k $CellContext`\[Gamma]$$^5 + 
                  168 $CellContext`k^2 $CellContext`\[Gamma]$$^5 - 
                  2 $CellContext`\[Gamma]$$^6 + 
                  708 $CellContext`k $CellContext`\[Gamma]$$^6 - 
                  2210 $CellContext`k^2 $CellContext`\[Gamma]$$^6 + 
                  1856 $CellContext`k^3 $CellContext`\[Gamma]$$^6 - 
                  464 $CellContext`k^4 $CellContext`\[Gamma]$$^6 + 
                  4 $CellContext`\[Gamma]$$^7 + 
                  88 $CellContext`k $CellContext`\[Gamma]$$^7 - 
                  44 $CellContext`k^2 $CellContext`\[Gamma]$$^7 + \
$CellContext`\[Gamma]$$^8 - 210 $CellContext`k $CellContext`\[Gamma]$$^8 + 
                  621 $CellContext`k^2 $CellContext`\[Gamma]$$^8 - 
                  516 $CellContext`k^3 $CellContext`\[Gamma]$$^8 + 
                  129 $CellContext`k^4 $CellContext`\[Gamma]$$^8 - 
                  8 $CellContext`k $CellContext`\[Gamma]$$^9 + 
                  4 $CellContext`k^2 $CellContext`\[Gamma]$$^9 + 
                  32 $CellContext`k $CellContext`\[Gamma]$$^10 - 
                  88 $CellContext`k^2 $CellContext`\[Gamma]$$^10 + 
                  72 $CellContext`k^3 $CellContext`\[Gamma]$$^10 - 
                  18 $CellContext`k^4 $CellContext`\[Gamma]$$^10 - 
                  2 $CellContext`k $CellContext`\[Gamma]$$^12 + 
                  5 $CellContext`k^2 $CellContext`\[Gamma]$$^12 - 
                  4 $CellContext`k^3 $CellContext`\[Gamma]$$^12 + \
$CellContext`k^4 $CellContext`\[Gamma]$$^12) + ((-4) (
                    1048576 $CellContext`k^4 - 
                    524288 $CellContext`k^3 $CellContext`\[Gamma]$$ + 
                    163840 $CellContext`k^2 $CellContext`\[Gamma]$$^2 - 
                    6160384 $CellContext`k^4 $CellContext`\[Gamma]$$^2 - 
                    12288 $CellContext`k $CellContext`\[Gamma]$$^3 + 
                    2588672 $CellContext`k^3 $CellContext`\[Gamma]$$^3 - 
                    701440 $CellContext`k^2 $CellContext`\[Gamma]$$^4 + 
                    15929344 $CellContext`k^4 $CellContext`\[Gamma]$$^4 + 
                    43008 $CellContext`k $CellContext`\[Gamma]$$^5 - 
                    5488640 $CellContext`k^3 $CellContext`\[Gamma]$$^5 + 
                    1254400 $CellContext`k^2 $CellContext`\[Gamma]$$^6 - 
                    23941120 $CellContext`k^4 $CellContext`\[Gamma]$$^6 - 
                    59904 $CellContext`k $CellContext`\[Gamma]$$^7 + 
                    6574080 $CellContext`k^3 $CellContext`\[Gamma]$$^7 - 
                    1226624 $CellContext`k^2 $CellContext`\[Gamma]$$^8 + 
                    23287296 $CellContext`k^4 $CellContext`\[Gamma]$$^8 + 
                    43008 $CellContext`k $CellContext`\[Gamma]$$^9 - 
                    4929536 $CellContext`k^3 $CellContext`\[Gamma]$$^9 + 
                    723392 $CellContext`k^2 $CellContext`\[Gamma]$$^10 - 
                    15458048 $CellContext`k^4 $CellContext`\[Gamma]$$^10 - 
                    17328 $CellContext`k $CellContext`\[Gamma]$$^11 + 
                    2423680 $CellContext`k^3 $CellContext`\[Gamma]$$^11 - 
                    267956 $CellContext`k^2 $CellContext`\[Gamma]$$^12 + 
                    7194384 $CellContext`k^4 $CellContext`\[Gamma]$$^12 + 
                    3960 $CellContext`k $CellContext`\[Gamma]$$^13 - 
                    793920 $CellContext`k^3 $CellContext`\[Gamma]$$^13 + 
                    62656 $CellContext`k^2 $CellContext`\[Gamma]$$^14 - 
                    2371584 $CellContext`k^4 $CellContext`\[Gamma]$$^14 - 
                    480 $CellContext`k $CellContext`\[Gamma]$$^15 + 
                    171712 $CellContext`k^3 $CellContext`\[Gamma]$$^15 - 
                    8956 $CellContext`k^2 $CellContext`\[Gamma]$$^16 + 
                    551104 $CellContext`k^4 $CellContext`\[Gamma]$$^16 + 
                    24 $CellContext`k $CellContext`\[Gamma]$$^17 - 
                    23552 $CellContext`k^3 $CellContext`\[Gamma]$$^17 + 
                    712 $CellContext`k^2 $CellContext`\[Gamma]$$^18 - 
                    88288 $CellContext`k^4 $CellContext`\[Gamma]$$^18 + 
                    1856 $CellContext`k^3 $CellContext`\[Gamma]$$^19 - 
                    24 $CellContext`k^2 $CellContext`\[Gamma]$$^20 + 
                    9280 $CellContext`k^4 $CellContext`\[Gamma]$$^20 - 
                    64 $CellContext`k^3 $CellContext`\[Gamma]$$^21 - 
                    576 $CellContext`k^4 $CellContext`\[Gamma]$$^22 + 
                    16 $CellContext`k^4 $CellContext`\[Gamma]$$^24)^3 + (
                    16 (512 $CellContext`k^2 - 
                    128 $CellContext`k $CellContext`\[Gamma]$$ + 
                    12 $CellContext`\[Gamma]$$^2 + 
                    96 $CellContext`k $CellContext`\[Gamma]$$^2 - 
                    1552 $CellContext`k^2 $CellContext`\[Gamma]$$^2 - 
                    12 $CellContext`\[Gamma]$$^3 + 
                    256 $CellContext`k $CellContext`\[Gamma]$$^3 - 
                    9 $CellContext`\[Gamma]$$^4 - 
                    144 $CellContext`k $CellContext`\[Gamma]$$^4 + 
                    1752 $CellContext`k^2 $CellContext`\[Gamma]$$^4 + 
                    6 $CellContext`\[Gamma]$$^5 - 
                    168 $CellContext`k $CellContext`\[Gamma]$$^5 + 
                    3 $CellContext`\[Gamma]$$^6 + 
                    54 $CellContext`k $CellContext`\[Gamma]$$^6 - 
                    937 $CellContext`k^2 $CellContext`\[Gamma]$$^6 + 
                    44 $CellContext`k $CellContext`\[Gamma]$$^7 - 
                    6 $CellContext`k $CellContext`\[Gamma]$$^8 + 
                    259 $CellContext`k^2 $CellContext`\[Gamma]$$^8 - 
                    4 $CellContext`k $CellContext`\[Gamma]$$^9 - 
                    36 $CellContext`k^2 $CellContext`\[Gamma]$$^10 + 
                    2 $CellContext`k^2 $CellContext`\[Gamma]$$^12)^3 - 
                    144 ((-16) $CellContext`k $CellContext`\[Gamma]$$^2 + 
                    2 $CellContext`\[Gamma]$$^3 - $CellContext`\[Gamma]$$^4 + 
                    24 $CellContext`k $CellContext`\[Gamma]$$^4 - \
$CellContext`\[Gamma]$$^5 - 
                    9 $CellContext`k $CellContext`\[Gamma]$$^6 + \
$CellContext`k $CellContext`\[Gamma]$$^8) (512 $CellContext`k^2 - 
                    128 $CellContext`k $CellContext`\[Gamma]$$ + 
                    12 $CellContext`\[Gamma]$$^2 + 
                    96 $CellContext`k $CellContext`\[Gamma]$$^2 - 
                    1552 $CellContext`k^2 $CellContext`\[Gamma]$$^2 - 
                    12 $CellContext`\[Gamma]$$^3 + 
                    256 $CellContext`k $CellContext`\[Gamma]$$^3 - 
                    9 $CellContext`\[Gamma]$$^4 - 
                    144 $CellContext`k $CellContext`\[Gamma]$$^4 + 
                    1752 $CellContext`k^2 $CellContext`\[Gamma]$$^4 + 
                    6 $CellContext`\[Gamma]$$^5 - 
                    168 $CellContext`k $CellContext`\[Gamma]$$^5 + 
                    3 $CellContext`\[Gamma]$$^6 + 
                    54 $CellContext`k $CellContext`\[Gamma]$$^6 - 
                    937 $CellContext`k^2 $CellContext`\[Gamma]$$^6 + 
                    44 $CellContext`k $CellContext`\[Gamma]$$^7 - 
                    6 $CellContext`k $CellContext`\[Gamma]$$^8 + 
                    259 $CellContext`k^2 $CellContext`\[Gamma]$$^8 - 
                    4 $CellContext`k $CellContext`\[Gamma]$$^9 - 
                    36 $CellContext`k^2 $CellContext`\[Gamma]$$^10 + 
                    2 $CellContext`k^2 $CellContext`\[Gamma]$$^12) (
                    128 $CellContext`k - 1024 $CellContext`k^2 + 
                    512 $CellContext`k^3 + 16 $CellContext`\[Gamma]$$ + 
                    256 $CellContext`k $CellContext`\[Gamma]$$ - 
                    64 $CellContext`k^2 $CellContext`\[Gamma]$$ - 
                    24 $CellContext`\[Gamma]$$^2 - 
                    544 $CellContext`k $CellContext`\[Gamma]$$^2 + 
                    3104 $CellContext`k^2 $CellContext`\[Gamma]$$^2 - 
                    1536 $CellContext`k^3 $CellContext`\[Gamma]$$^2 - 
                    12 $CellContext`\[Gamma]$$^3 - 
                    512 $CellContext`k $CellContext`\[Gamma]$$^3 + 
                    128 $CellContext`k^2 $CellContext`\[Gamma]$$^3 + 
                    22 $CellContext`\[Gamma]$$^4 + 
                    712 $CellContext`k $CellContext`\[Gamma]$$^4 - 
                    3504 $CellContext`k^2 $CellContext`\[Gamma]$$^4 + 
                    1728 $CellContext`k^3 $CellContext`\[Gamma]$$^4 + 
                    6 $CellContext`\[Gamma]$$^5 + 
                    336 $CellContext`k $CellContext`\[Gamma]$$^5 - 
                    84 $CellContext`k^2 $CellContext`\[Gamma]$$^5 - 
                    6 $CellContext`\[Gamma]$$^6 - 
                    390 $CellContext`k $CellContext`\[Gamma]$$^6 + 
                    1874 $CellContext`k^2 $CellContext`\[Gamma]$$^6 - 
                    928 $CellContext`k^3 $CellContext`\[Gamma]$$^6 - 
                    2 $CellContext`\[Gamma]$$^7 - 
                    88 $CellContext`k $CellContext`\[Gamma]$$^7 + 
                    22 $CellContext`k^2 $CellContext`\[Gamma]$$^7 + 
                    109 $CellContext`k $CellContext`\[Gamma]$$^8 - 
                    518 $CellContext`k^2 $CellContext`\[Gamma]$$^8 + 
                    258 $CellContext`k^3 $CellContext`\[Gamma]$$^8 + 
                    8 $CellContext`k $CellContext`\[Gamma]$$^9 - 
                    2 $CellContext`k^2 $CellContext`\[Gamma]$$^9 - 
                    16 $CellContext`k $CellContext`\[Gamma]$$^10 + 
                    72 $CellContext`k^2 $CellContext`\[Gamma]$$^10 - 
                    36 $CellContext`k^3 $CellContext`\[Gamma]$$^10 + \
$CellContext`k $CellContext`\[Gamma]$$^12 - 
                    4 $CellContext`k^2 $CellContext`\[Gamma]$$^12 + 
                    2 $CellContext`k^3 $CellContext`\[Gamma]$$^12) + 
                    108 $CellContext`\[Gamma]$$^4 (128 $CellContext`k - 
                    1024 $CellContext`k^2 + 512 $CellContext`k^3 + 
                    16 $CellContext`\[Gamma]$$ + 
                    256 $CellContext`k $CellContext`\[Gamma]$$ - 
                    64 $CellContext`k^2 $CellContext`\[Gamma]$$ - 
                    24 $CellContext`\[Gamma]$$^2 - 
                    544 $CellContext`k $CellContext`\[Gamma]$$^2 + 
                    3104 $CellContext`k^2 $CellContext`\[Gamma]$$^2 - 
                    1536 $CellContext`k^3 $CellContext`\[Gamma]$$^2 - 
                    12 $CellContext`\[Gamma]$$^3 - 
                    512 $CellContext`k $CellContext`\[Gamma]$$^3 + 
                    128 $CellContext`k^2 $CellContext`\[Gamma]$$^3 + 
                    22 $CellContext`\[Gamma]$$^4 + 
                    712 $CellContext`k $CellContext`\[Gamma]$$^4 - 
                    3504 $CellContext`k^2 $CellContext`\[Gamma]$$^4 + 
                    1728 $CellContext`k^3 $CellContext`\[Gamma]$$^4 + 
                    6 $CellContext`\[Gamma]$$^5 + 
                    336 $CellContext`k $CellContext`\[Gamma]$$^5 - 
                    84 $CellContext`k^2 $CellContext`\[Gamma]$$^5 - 
                    6 $CellContext`\[Gamma]$$^6 - 
                    390 $CellContext`k $CellContext`\[Gamma]$$^6 + 
                    1874 $CellContext`k^2 $CellContext`\[Gamma]$$^6 - 
                    928 $CellContext`k^3 $CellContext`\[Gamma]$$^6 - 
                    2 $CellContext`\[Gamma]$$^7 - 
                    88 $CellContext`k $CellContext`\[Gamma]$$^7 + 
                    22 $CellContext`k^2 $CellContext`\[Gamma]$$^7 + 
                    109 $CellContext`k $CellContext`\[Gamma]$$^8 - 
                    518 $CellContext`k^2 $CellContext`\[Gamma]$$^8 + 
                    258 $CellContext`k^3 $CellContext`\[Gamma]$$^8 + 
                    8 $CellContext`k $CellContext`\[Gamma]$$^9 - 
                    2 $CellContext`k^2 $CellContext`\[Gamma]$$^9 - 
                    16 $CellContext`k $CellContext`\[Gamma]$$^10 + 
                    72 $CellContext`k^2 $CellContext`\[Gamma]$$^10 - 
                    36 $CellContext`k^3 $CellContext`\[Gamma]$$^10 + \
$CellContext`k $CellContext`\[Gamma]$$^12 - 
                    4 $CellContext`k^2 $CellContext`\[Gamma]$$^12 + 
                    2 $CellContext`k^3 $CellContext`\[Gamma]$$^12)^2 + 
                    432 ((-16) $CellContext`k $CellContext`\[Gamma]$$^2 + 
                    2 $CellContext`\[Gamma]$$^3 - $CellContext`\[Gamma]$$^4 + 
                    24 $CellContext`k $CellContext`\[Gamma]$$^4 - \
$CellContext`\[Gamma]$$^5 - 
                    9 $CellContext`k $CellContext`\[Gamma]$$^6 + \
$CellContext`k $CellContext`\[Gamma]$$^8)^2 (16 - 256 $CellContext`k + 
                    1152 $CellContext`k^2 - 1024 $CellContext`k^3 + 
                    256 $CellContext`k^4 - 32 $CellContext`\[Gamma]$$ - 
                    256 $CellContext`k $CellContext`\[Gamma]$$ + 
                    128 $CellContext`k^2 $CellContext`\[Gamma]$$ - 
                    8 $CellContext`\[Gamma]$$^2 + 
                    960 $CellContext`k $CellContext`\[Gamma]$$^2 - 
                    3552 $CellContext`k^2 $CellContext`\[Gamma]$$^2 + 
                    3072 $CellContext`k^3 $CellContext`\[Gamma]$$^2 - 
                    768 $CellContext`k^4 $CellContext`\[Gamma]$$^2 + 
                    40 $CellContext`\[Gamma]$$^3 + 
                    512 $CellContext`k $CellContext`\[Gamma]$$^3 - 
                    256 $CellContext`k^2 $CellContext`\[Gamma]$$^3 + \
$CellContext`\[Gamma]$$^4 - 1232 $CellContext`k $CellContext`\[Gamma]$$^4 + 
                    4072 $CellContext`k^2 $CellContext`\[Gamma]$$^4 - 
                    3456 $CellContext`k^3 $CellContext`\[Gamma]$$^4 + 
                    864 $CellContext`k^4 $CellContext`\[Gamma]$$^4 - 
                    20 $CellContext`\[Gamma]$$^5 - 
                    336 $CellContext`k $CellContext`\[Gamma]$$^5 + 
                    168 $CellContext`k^2 $CellContext`\[Gamma]$$^5 - 
                    2 $CellContext`\[Gamma]$$^6 + 
                    708 $CellContext`k $CellContext`\[Gamma]$$^6 - 
                    2210 $CellContext`k^2 $CellContext`\[Gamma]$$^6 + 
                    1856 $CellContext`k^3 $CellContext`\[Gamma]$$^6 - 
                    464 $CellContext`k^4 $CellContext`\[Gamma]$$^6 + 
                    4 $CellContext`\[Gamma]$$^7 + 
                    88 $CellContext`k $CellContext`\[Gamma]$$^7 - 
                    44 $CellContext`k^2 $CellContext`\[Gamma]$$^7 + \
$CellContext`\[Gamma]$$^8 - 210 $CellContext`k $CellContext`\[Gamma]$$^8 + 
                    621 $CellContext`k^2 $CellContext`\[Gamma]$$^8 - 
                    516 $CellContext`k^3 $CellContext`\[Gamma]$$^8 + 
                    129 $CellContext`k^4 $CellContext`\[Gamma]$$^8 - 
                    8 $CellContext`k $CellContext`\[Gamma]$$^9 + 
                    4 $CellContext`k^2 $CellContext`\[Gamma]$$^9 + 
                    32 $CellContext`k $CellContext`\[Gamma]$$^10 - 
                    88 $CellContext`k^2 $CellContext`\[Gamma]$$^10 + 
                    72 $CellContext`k^3 $CellContext`\[Gamma]$$^10 - 
                    18 $CellContext`k^4 $CellContext`\[Gamma]$$^10 - 
                    2 $CellContext`k $CellContext`\[Gamma]$$^12 + 
                    5 $CellContext`k^2 $CellContext`\[Gamma]$$^12 - 
                    4 $CellContext`k^3 $CellContext`\[Gamma]$$^12 + \
$CellContext`k^4 $CellContext`\[Gamma]$$^12) - 
                    144 $CellContext`\[Gamma]$$^4 (512 $CellContext`k^2 - 
                    128 $CellContext`k $CellContext`\[Gamma]$$ + 
                    12 $CellContext`\[Gamma]$$^2 + 
                    96 $CellContext`k $CellContext`\[Gamma]$$^2 - 
                    1552 $CellContext`k^2 $CellContext`\[Gamma]$$^2 - 
                    12 $CellContext`\[Gamma]$$^3 + 
                    256 $CellContext`k $CellContext`\[Gamma]$$^3 - 
                    9 $CellContext`\[Gamma]$$^4 - 
                    144 $CellContext`k $CellContext`\[Gamma]$$^4 + 
                    1752 $CellContext`k^2 $CellContext`\[Gamma]$$^4 + 
                    6 $CellContext`\[Gamma]$$^5 - 
                    168 $CellContext`k $CellContext`\[Gamma]$$^5 + 
                    3 $CellContext`\[Gamma]$$^6 + 
                    54 $CellContext`k $CellContext`\[Gamma]$$^6 - 
                    937 $CellContext`k^2 $CellContext`\[Gamma]$$^6 + 
                    44 $CellContext`k $CellContext`\[Gamma]$$^7 - 
                    6 $CellContext`k $CellContext`\[Gamma]$$^8 + 
                    259 $CellContext`k^2 $CellContext`\[Gamma]$$^8 - 
                    4 $CellContext`k $CellContext`\[Gamma]$$^9 - 
                    36 $CellContext`k^2 $CellContext`\[Gamma]$$^10 + 
                    2 $CellContext`k^2 $CellContext`\[Gamma]$$^12) (16 - 
                    256 $CellContext`k + 1152 $CellContext`k^2 - 
                    1024 $CellContext`k^3 + 256 $CellContext`k^4 - 
                    32 $CellContext`\[Gamma]$$ - 
                    256 $CellContext`k $CellContext`\[Gamma]$$ + 
                    128 $CellContext`k^2 $CellContext`\[Gamma]$$ - 
                    8 $CellContext`\[Gamma]$$^2 + 
                    960 $CellContext`k $CellContext`\[Gamma]$$^2 - 
                    3552 $CellContext`k^2 $CellContext`\[Gamma]$$^2 + 
                    3072 $CellContext`k^3 $CellContext`\[Gamma]$$^2 - 
                    768 $CellContext`k^4 $CellContext`\[Gamma]$$^2 + 
                    40 $CellContext`\[Gamma]$$^3 + 
                    512 $CellContext`k $CellContext`\[Gamma]$$^3 - 
                    256 $CellContext`k^2 $CellContext`\[Gamma]$$^3 + \
$CellContext`\[Gamma]$$^4 - 1232 $CellContext`k $CellContext`\[Gamma]$$^4 + 
                    4072 $CellContext`k^2 $CellContext`\[Gamma]$$^4 - 
                    3456 $CellContext`k^3 $CellContext`\[Gamma]$$^4 + 
                    864 $CellContext`k^4 $CellContext`\[Gamma]$$^4 - 
                    20 $CellContext`\[Gamma]$$^5 - 
                    336 $CellContext`k $CellContext`\[Gamma]$$^5 + 
                    168 $CellContext`k^2 $CellContext`\[Gamma]$$^5 - 
                    2 $CellContext`\[Gamma]$$^6 + 
                    708 $CellContext`k $CellContext`\[Gamma]$$^6 - 
                    2210 $CellContext`k^2 $CellContext`\[Gamma]$$^6 + 
                    1856 $CellContext`k^3 $CellContext`\[Gamma]$$^6 - 
                    464 $CellContext`k^4 $CellContext`\[Gamma]$$^6 + 
                    4 $CellContext`\[Gamma]$$^7 + 
                    88 $CellContext`k $CellContext`\[Gamma]$$^7 - 
                    44 $CellContext`k^2 $CellContext`\[Gamma]$$^7 + \
$CellContext`\[Gamma]$$^8 - 210 $CellContext`k $CellContext`\[Gamma]$$^8 + 
                    621 $CellContext`k^2 $CellContext`\[Gamma]$$^8 - 
                    516 $CellContext`k^3 $CellContext`\[Gamma]$$^8 + 
                    129 $CellContext`k^4 $CellContext`\[Gamma]$$^8 - 
                    8 $CellContext`k $CellContext`\[Gamma]$$^9 + 
                    4 $CellContext`k^2 $CellContext`\[Gamma]$$^9 + 
                    32 $CellContext`k $CellContext`\[Gamma]$$^10 - 
                    88 $CellContext`k^2 $CellContext`\[Gamma]$$^10 + 
                    72 $CellContext`k^3 $CellContext`\[Gamma]$$^10 - 
                    18 $CellContext`k^4 $CellContext`\[Gamma]$$^10 - 
                    2 $CellContext`k $CellContext`\[Gamma]$$^12 + 
                    5 $CellContext`k^2 $CellContext`\[Gamma]$$^12 - 
                    4 $CellContext`k^3 $CellContext`\[Gamma]$$^12 + \
$CellContext`k^4 $CellContext`\[Gamma]$$^12))^2)^Rational[1, 2])^
                Rational[-1, 3] + 
              Rational[1, 3] 
               2^Rational[-1, 3] $CellContext`\[Gamma]$$^(-4) (
                 16 (512 $CellContext`k^2 - 
                    128 $CellContext`k $CellContext`\[Gamma]$$ + 
                    12 $CellContext`\[Gamma]$$^2 + 
                    96 $CellContext`k $CellContext`\[Gamma]$$^2 - 
                    1552 $CellContext`k^2 $CellContext`\[Gamma]$$^2 - 
                    12 $CellContext`\[Gamma]$$^3 + 
                    256 $CellContext`k $CellContext`\[Gamma]$$^3 - 
                    9 $CellContext`\[Gamma]$$^4 - 
                    144 $CellContext`k $CellContext`\[Gamma]$$^4 + 
                    1752 $CellContext`k^2 $CellContext`\[Gamma]$$^4 + 
                    6 $CellContext`\[Gamma]$$^5 - 
                    168 $CellContext`k $CellContext`\[Gamma]$$^5 + 
                    3 $CellContext`\[Gamma]$$^6 + 
                    54 $CellContext`k $CellContext`\[Gamma]$$^6 - 
                    937 $CellContext`k^2 $CellContext`\[Gamma]$$^6 + 
                    44 $CellContext`k $CellContext`\[Gamma]$$^7 - 
                    6 $CellContext`k $CellContext`\[Gamma]$$^8 + 
                    259 $CellContext`k^2 $CellContext`\[Gamma]$$^8 - 
                    4 $CellContext`k $CellContext`\[Gamma]$$^9 - 
                    36 $CellContext`k^2 $CellContext`\[Gamma]$$^10 + 
                    2 $CellContext`k^2 $CellContext`\[Gamma]$$^12)^3 - 
                 144 ((-16) $CellContext`k $CellContext`\[Gamma]$$^2 + 
                  2 $CellContext`\[Gamma]$$^3 - $CellContext`\[Gamma]$$^4 + 
                  24 $CellContext`k $CellContext`\[Gamma]$$^4 - $CellContext`\
\[Gamma]$$^5 - 
                  9 $CellContext`k $CellContext`\[Gamma]$$^6 + $CellContext`k \
$CellContext`\[Gamma]$$^8) (512 $CellContext`k^2 - 
                  128 $CellContext`k $CellContext`\[Gamma]$$ + 
                  12 $CellContext`\[Gamma]$$^2 + 
                  96 $CellContext`k $CellContext`\[Gamma]$$^2 - 
                  1552 $CellContext`k^2 $CellContext`\[Gamma]$$^2 - 
                  12 $CellContext`\[Gamma]$$^3 + 
                  256 $CellContext`k $CellContext`\[Gamma]$$^3 - 
                  9 $CellContext`\[Gamma]$$^4 - 
                  144 $CellContext`k $CellContext`\[Gamma]$$^4 + 
                  1752 $CellContext`k^2 $CellContext`\[Gamma]$$^4 + 
                  6 $CellContext`\[Gamma]$$^5 - 
                  168 $CellContext`k $CellContext`\[Gamma]$$^5 + 
                  3 $CellContext`\[Gamma]$$^6 + 
                  54 $CellContext`k $CellContext`\[Gamma]$$^6 - 
                  937 $CellContext`k^2 $CellContext`\[Gamma]$$^6 + 
                  44 $CellContext`k $CellContext`\[Gamma]$$^7 - 
                  6 $CellContext`k $CellContext`\[Gamma]$$^8 + 
                  259 $CellContext`k^2 $CellContext`\[Gamma]$$^8 - 
                  4 $CellContext`k $CellContext`\[Gamma]$$^9 - 
                  36 $CellContext`k^2 $CellContext`\[Gamma]$$^10 + 
                  2 $CellContext`k^2 $CellContext`\[Gamma]$$^12) (
                  128 $CellContext`k - 1024 $CellContext`k^2 + 
                  512 $CellContext`k^3 + 16 $CellContext`\[Gamma]$$ + 
                  256 $CellContext`k $CellContext`\[Gamma]$$ - 
                  64 $CellContext`k^2 $CellContext`\[Gamma]$$ - 
                  24 $CellContext`\[Gamma]$$^2 - 
                  544 $CellContext`k $CellContext`\[Gamma]$$^2 + 
                  3104 $CellContext`k^2 $CellContext`\[Gamma]$$^2 - 
                  1536 $CellContext`k^3 $CellContext`\[Gamma]$$^2 - 
                  12 $CellContext`\[Gamma]$$^3 - 
                  512 $CellContext`k $CellContext`\[Gamma]$$^3 + 
                  128 $CellContext`k^2 $CellContext`\[Gamma]$$^3 + 
                  22 $CellContext`\[Gamma]$$^4 + 
                  712 $CellContext`k $CellContext`\[Gamma]$$^4 - 
                  3504 $CellContext`k^2 $CellContext`\[Gamma]$$^4 + 
                  1728 $CellContext`k^3 $CellContext`\[Gamma]$$^4 + 
                  6 $CellContext`\[Gamma]$$^5 + 
                  336 $CellContext`k $CellContext`\[Gamma]$$^5 - 
                  84 $CellContext`k^2 $CellContext`\[Gamma]$$^5 - 
                  6 $CellContext`\[Gamma]$$^6 - 
                  390 $CellContext`k $CellContext`\[Gamma]$$^6 + 
                  1874 $CellContext`k^2 $CellContext`\[Gamma]$$^6 - 
                  928 $CellContext`k^3 $CellContext`\[Gamma]$$^6 - 
                  2 $CellContext`\[Gamma]$$^7 - 
                  88 $CellContext`k $CellContext`\[Gamma]$$^7 + 
                  22 $CellContext`k^2 $CellContext`\[Gamma]$$^7 + 
                  109 $CellContext`k $CellContext`\[Gamma]$$^8 - 
                  518 $CellContext`k^2 $CellContext`\[Gamma]$$^8 + 
                  258 $CellContext`k^3 $CellContext`\[Gamma]$$^8 + 
                  8 $CellContext`k $CellContext`\[Gamma]$$^9 - 
                  2 $CellContext`k^2 $CellContext`\[Gamma]$$^9 - 
                  16 $CellContext`k $CellContext`\[Gamma]$$^10 + 
                  72 $CellContext`k^2 $CellContext`\[Gamma]$$^10 - 
                  36 $CellContext`k^3 $CellContext`\[Gamma]$$^10 + \
$CellContext`k $CellContext`\[Gamma]$$^12 - 
                  4 $CellContext`k^2 $CellContext`\[Gamma]$$^12 + 
                  2 $CellContext`k^3 $CellContext`\[Gamma]$$^12) + 
                 108 $CellContext`\[Gamma]$$^4 (128 $CellContext`k - 
                    1024 $CellContext`k^2 + 512 $CellContext`k^3 + 
                    16 $CellContext`\[Gamma]$$ + 
                    256 $CellContext`k $CellContext`\[Gamma]$$ - 
                    64 $CellContext`k^2 $CellContext`\[Gamma]$$ - 
                    24 $CellContext`\[Gamma]$$^2 - 
                    544 $CellContext`k $CellContext`\[Gamma]$$^2 + 
                    3104 $CellContext`k^2 $CellContext`\[Gamma]$$^2 - 
                    1536 $CellContext`k^3 $CellContext`\[Gamma]$$^2 - 
                    12 $CellContext`\[Gamma]$$^3 - 
                    512 $CellContext`k $CellContext`\[Gamma]$$^3 + 
                    128 $CellContext`k^2 $CellContext`\[Gamma]$$^3 + 
                    22 $CellContext`\[Gamma]$$^4 + 
                    712 $CellContext`k $CellContext`\[Gamma]$$^4 - 
                    3504 $CellContext`k^2 $CellContext`\[Gamma]$$^4 + 
                    1728 $CellContext`k^3 $CellContext`\[Gamma]$$^4 + 
                    6 $CellContext`\[Gamma]$$^5 + 
                    336 $CellContext`k $CellContext`\[Gamma]$$^5 - 
                    84 $CellContext`k^2 $CellContext`\[Gamma]$$^5 - 
                    6 $CellContext`\[Gamma]$$^6 - 
                    390 $CellContext`k $CellContext`\[Gamma]$$^6 + 
                    1874 $CellContext`k^2 $CellContext`\[Gamma]$$^6 - 
                    928 $CellContext`k^3 $CellContext`\[Gamma]$$^6 - 
                    2 $CellContext`\[Gamma]$$^7 - 
                    88 $CellContext`k $CellContext`\[Gamma]$$^7 + 
                    22 $CellContext`k^2 $CellContext`\[Gamma]$$^7 + 
                    109 $CellContext`k $CellContext`\[Gamma]$$^8 - 
                    518 $CellContext`k^2 $CellContext`\[Gamma]$$^8 + 
                    258 $CellContext`k^3 $CellContext`\[Gamma]$$^8 + 
                    8 $CellContext`k $CellContext`\[Gamma]$$^9 - 
                    2 $CellContext`k^2 $CellContext`\[Gamma]$$^9 - 
                    16 $CellContext`k $CellContext`\[Gamma]$$^10 + 
                    72 $CellContext`k^2 $CellContext`\[Gamma]$$^10 - 
                    36 $CellContext`k^3 $CellContext`\[Gamma]$$^10 + \
$CellContext`k $CellContext`\[Gamma]$$^12 - 
                    4 $CellContext`k^2 $CellContext`\[Gamma]$$^12 + 
                    2 $CellContext`k^3 $CellContext`\[Gamma]$$^12)^2 + 
                 432 ((-16) $CellContext`k $CellContext`\[Gamma]$$^2 + 
                    2 $CellContext`\[Gamma]$$^3 - $CellContext`\[Gamma]$$^4 + 
                    24 $CellContext`k $CellContext`\[Gamma]$$^4 - \
$CellContext`\[Gamma]$$^5 - 
                    9 $CellContext`k $CellContext`\[Gamma]$$^6 + \
$CellContext`k $CellContext`\[Gamma]$$^8)^2 (16 - 256 $CellContext`k + 
                   1152 $CellContext`k^2 - 1024 $CellContext`k^3 + 
                   256 $CellContext`k^4 - 32 $CellContext`\[Gamma]$$ - 
                   256 $CellContext`k $CellContext`\[Gamma]$$ + 
                   128 $CellContext`k^2 $CellContext`\[Gamma]$$ - 
                   8 $CellContext`\[Gamma]$$^2 + 
                   960 $CellContext`k $CellContext`\[Gamma]$$^2 - 
                   3552 $CellContext`k^2 $CellContext`\[Gamma]$$^2 + 
                   3072 $CellContext`k^3 $CellContext`\[Gamma]$$^2 - 
                   768 $CellContext`k^4 $CellContext`\[Gamma]$$^2 + 
                   40 $CellContext`\[Gamma]$$^3 + 
                   512 $CellContext`k $CellContext`\[Gamma]$$^3 - 
                   256 $CellContext`k^2 $CellContext`\[Gamma]$$^3 + \
$CellContext`\[Gamma]$$^4 - 1232 $CellContext`k $CellContext`\[Gamma]$$^4 + 
                   4072 $CellContext`k^2 $CellContext`\[Gamma]$$^4 - 
                   3456 $CellContext`k^3 $CellContext`\[Gamma]$$^4 + 
                   864 $CellContext`k^4 $CellContext`\[Gamma]$$^4 - 
                   20 $CellContext`\[Gamma]$$^5 - 
                   336 $CellContext`k $CellContext`\[Gamma]$$^5 + 
                   168 $CellContext`k^2 $CellContext`\[Gamma]$$^5 - 
                   2 $CellContext`\[Gamma]$$^6 + 
                   708 $CellContext`k $CellContext`\[Gamma]$$^6 - 
                   2210 $CellContext`k^2 $CellContext`\[Gamma]$$^6 + 
                   1856 $CellContext`k^3 $CellContext`\[Gamma]$$^6 - 
                   464 $CellContext`k^4 $CellContext`\[Gamma]$$^6 + 
                   4 $CellContext`\[Gamma]$$^7 + 
                   88 $CellContext`k $CellContext`\[Gamma]$$^7 - 
                   44 $CellContext`k^2 $CellContext`\[Gamma]$$^7 + \
$CellContext`\[Gamma]$$^8 - 210 $CellContext`k $CellContext`\[Gamma]$$^8 + 
                   621 $CellContext`k^2 $CellContext`\[Gamma]$$^8 - 
                   516 $CellContext`k^3 $CellContext`\[Gamma]$$^8 + 
                   129 $CellContext`k^4 $CellContext`\[Gamma]$$^8 - 
                   8 $CellContext`k $CellContext`\[Gamma]$$^9 + 
                   4 $CellContext`k^2 $CellContext`\[Gamma]$$^9 + 
                   32 $CellContext`k $CellContext`\[Gamma]$$^10 - 
                   88 $CellContext`k^2 $CellContext`\[Gamma]$$^10 + 
                   72 $CellContext`k^3 $CellContext`\[Gamma]$$^10 - 
                   18 $CellContext`k^4 $CellContext`\[Gamma]$$^10 - 
                   2 $CellContext`k $CellContext`\[Gamma]$$^12 + 
                   5 $CellContext`k^2 $CellContext`\[Gamma]$$^12 - 
                   4 $CellContext`k^3 $CellContext`\[Gamma]$$^12 + \
$CellContext`k^4 $CellContext`\[Gamma]$$^12) - 
                 144 $CellContext`\[Gamma]$$^4 (512 $CellContext`k^2 - 
                  128 $CellContext`k $CellContext`\[Gamma]$$ + 
                  12 $CellContext`\[Gamma]$$^2 + 
                  96 $CellContext`k $CellContext`\[Gamma]$$^2 - 
                  1552 $CellContext`k^2 $CellContext`\[Gamma]$$^2 - 
                  12 $CellContext`\[Gamma]$$^3 + 
                  256 $CellContext`k $CellContext`\[Gamma]$$^3 - 
                  9 $CellContext`\[Gamma]$$^4 - 
                  144 $CellContext`k $CellContext`\[Gamma]$$^4 + 
                  1752 $CellContext`k^2 $CellContext`\[Gamma]$$^4 + 
                  6 $CellContext`\[Gamma]$$^5 - 
                  168 $CellContext`k $CellContext`\[Gamma]$$^5 + 
                  3 $CellContext`\[Gamma]$$^6 + 
                  54 $CellContext`k $CellContext`\[Gamma]$$^6 - 
                  937 $CellContext`k^2 $CellContext`\[Gamma]$$^6 + 
                  44 $CellContext`k $CellContext`\[Gamma]$$^7 - 
                  6 $CellContext`k $CellContext`\[Gamma]$$^8 + 
                  259 $CellContext`k^2 $CellContext`\[Gamma]$$^8 - 
                  4 $CellContext`k $CellContext`\[Gamma]$$^9 - 
                  36 $CellContext`k^2 $CellContext`\[Gamma]$$^10 + 
                  2 $CellContext`k^2 $CellContext`\[Gamma]$$^12) (16 - 
                  256 $CellContext`k + 1152 $CellContext`k^2 - 
                  1024 $CellContext`k^3 + 256 $CellContext`k^4 - 
                  32 $CellContext`\[Gamma]$$ - 
                  256 $CellContext`k $CellContext`\[Gamma]$$ + 
                  128 $CellContext`k^2 $CellContext`\[Gamma]$$ - 
                  8 $CellContext`\[Gamma]$$^2 + 
                  960 $CellContext`k $CellContext`\[Gamma]$$^2 - 
                  3552 $CellContext`k^2 $CellContext`\[Gamma]$$^2 + 
                  3072 $CellContext`k^3 $CellContext`\[Gamma]$$^2 - 
                  768 $CellContext`k^4 $CellContext`\[Gamma]$$^2 + 
                  40 $CellContext`\[Gamma]$$^3 + 
                  512 $CellContext`k $CellContext`\[Gamma]$$^3 - 
                  256 $CellContext`k^2 $CellContext`\[Gamma]$$^3 + \
$CellContext`\[Gamma]$$^4 - 1232 $CellContext`k $CellContext`\[Gamma]$$^4 + 
                  4072 $CellContext`k^2 $CellContext`\[Gamma]$$^4 - 
                  3456 $CellContext`k^3 $CellContext`\[Gamma]$$^4 + 
                  864 $CellContext`k^4 $CellContext`\[Gamma]$$^4 - 
                  20 $CellContext`\[Gamma]$$^5 - 
                  336 $CellContext`k $CellContext`\[Gamma]$$^5 + 
                  168 $CellContext`k^2 $CellContext`\[Gamma]$$^5 - 
                  2 $CellContext`\[Gamma]$$^6 + 
                  708 $CellContext`k $CellContext`\[Gamma]$$^6 - 
                  2210 $CellContext`k^2 $CellContext`\[Gamma]$$^6 + 
                  1856 $CellContext`k^3 $CellContext`\[Gamma]$$^6 - 
                  464 $CellContext`k^4 $CellContext`\[Gamma]$$^6 + 
                  4 $CellContext`\[Gamma]$$^7 + 
                  88 $CellContext`k $CellContext`\[Gamma]$$^7 - 
                  44 $CellContext`k^2 $CellContext`\[Gamma]$$^7 + \
$CellContext`\[Gamma]$$^8 - 210 $CellContext`k $CellContext`\[Gamma]$$^8 + 
                  621 $CellContext`k^2 $CellContext`\[Gamma]$$^8 - 
                  516 $CellContext`k^3 $CellContext`\[Gamma]$$^8 + 
                  129 $CellContext`k^4 $CellContext`\[Gamma]$$^8 - 
                  8 $CellContext`k $CellContext`\[Gamma]$$^9 + 
                  4 $CellContext`k^2 $CellContext`\[Gamma]$$^9 + 
                  32 $CellContext`k $CellContext`\[Gamma]$$^10 - 
                  88 $CellContext`k^2 $CellContext`\[Gamma]$$^10 + 
                  72 $CellContext`k^3 $CellContext`\[Gamma]$$^10 - 
                  18 $CellContext`k^4 $CellContext`\[Gamma]$$^10 - 
                  2 $CellContext`k $CellContext`\[Gamma]$$^12 + 
                  5 $CellContext`k^2 $CellContext`\[Gamma]$$^12 - 
                  4 $CellContext`k^3 $CellContext`\[Gamma]$$^12 + \
$CellContext`k^4 $CellContext`\[Gamma]$$^12) + ((-4) (
                    1048576 $CellContext`k^4 - 
                    524288 $CellContext`k^3 $CellContext`\[Gamma]$$ + 
                    163840 $CellContext`k^2 $CellContext`\[Gamma]$$^2 - 
                    6160384 $CellContext`k^4 $CellContext`\[Gamma]$$^2 - 
                    12288 $CellContext`k $CellContext`\[Gamma]$$^3 + 
                    2588672 $CellContext`k^3 $CellContext`\[Gamma]$$^3 - 
                    701440 $CellContext`k^2 $CellContext`\[Gamma]$$^4 + 
                    15929344 $CellContext`k^4 $CellContext`\[Gamma]$$^4 + 
                    43008 $CellContext`k $CellContext`\[Gamma]$$^5 - 
                    5488640 $CellContext`k^3 $CellContext`\[Gamma]$$^5 + 
                    1254400 $CellContext`k^2 $CellContext`\[Gamma]$$^6 - 
                    23941120 $CellContext`k^4 $CellContext`\[Gamma]$$^6 - 
                    59904 $CellContext`k $CellContext`\[Gamma]$$^7 + 
                    6574080 $CellContext`k^3 $CellContext`\[Gamma]$$^7 - 
                    1226624 $CellContext`k^2 $CellContext`\[Gamma]$$^8 + 
                    23287296 $CellContext`k^4 $CellContext`\[Gamma]$$^8 + 
                    43008 $CellContext`k $CellContext`\[Gamma]$$^9 - 
                    4929536 $CellContext`k^3 $CellContext`\[Gamma]$$^9 + 
                    723392 $CellContext`k^2 $CellContext`\[Gamma]$$^10 - 
                    15458048 $CellContext`k^4 $CellContext`\[Gamma]$$^10 - 
                    17328 $CellContext`k $CellContext`\[Gamma]$$^11 + 
                    2423680 $CellContext`k^3 $CellContext`\[Gamma]$$^11 - 
                    267956 $CellContext`k^2 $CellContext`\[Gamma]$$^12 + 
                    7194384 $CellContext`k^4 $CellContext`\[Gamma]$$^12 + 
                    3960 $CellContext`k $CellContext`\[Gamma]$$^13 - 
                    793920 $CellContext`k^3 $CellContext`\[Gamma]$$^13 + 
                    62656 $CellContext`k^2 $CellContext`\[Gamma]$$^14 - 
                    2371584 $CellContext`k^4 $CellContext`\[Gamma]$$^14 - 
                    480 $CellContext`k $CellContext`\[Gamma]$$^15 + 
                    171712 $CellContext`k^3 $CellContext`\[Gamma]$$^15 - 
                    8956 $CellContext`k^2 $CellContext`\[Gamma]$$^16 + 
                    551104 $CellContext`k^4 $CellContext`\[Gamma]$$^16 + 
                    24 $CellContext`k $CellContext`\[Gamma]$$^17 - 
                    23552 $CellContext`k^3 $CellContext`\[Gamma]$$^17 + 
                    712 $CellContext`k^2 $CellContext`\[Gamma]$$^18 - 
                    88288 $CellContext`k^4 $CellContext`\[Gamma]$$^18 + 
                    1856 $CellContext`k^3 $CellContext`\[Gamma]$$^19 - 
                    24 $CellContext`k^2 $CellContext`\[Gamma]$$^20 + 
                    9280 $CellContext`k^4 $CellContext`\[Gamma]$$^20 - 
                    64 $CellContext`k^3 $CellContext`\[Gamma]$$^21 - 
                    576 $CellContext`k^4 $CellContext`\[Gamma]$$^22 + 
                    16 $CellContext`k^4 $CellContext`\[Gamma]$$^24)^3 + (
                    16 (512 $CellContext`k^2 - 
                    128 $CellContext`k $CellContext`\[Gamma]$$ + 
                    12 $CellContext`\[Gamma]$$^2 + 
                    96 $CellContext`k $CellContext`\[Gamma]$$^2 - 
                    1552 $CellContext`k^2 $CellContext`\[Gamma]$$^2 - 
                    12 $CellContext`\[Gamma]$$^3 + 
                    256 $CellContext`k $CellContext`\[Gamma]$$^3 - 
                    9 $CellContext`\[Gamma]$$^4 - 
                    144 $CellContext`k $CellContext`\[Gamma]$$^4 + 
                    1752 $CellContext`k^2 $CellContext`\[Gamma]$$^4 + 
                    6 $CellContext`\[Gamma]$$^5 - 
                    168 $CellContext`k $CellContext`\[Gamma]$$^5 + 
                    3 $CellContext`\[Gamma]$$^6 + 
                    54 $CellContext`k $CellContext`\[Gamma]$$^6 - 
                    937 $CellContext`k^2 $CellContext`\[Gamma]$$^6 + 
                    44 $CellContext`k $CellContext`\[Gamma]$$^7 - 
                    6 $CellContext`k $CellContext`\[Gamma]$$^8 + 
                    259 $CellContext`k^2 $CellContext`\[Gamma]$$^8 - 
                    4 $CellContext`k $CellContext`\[Gamma]$$^9 - 
                    36 $CellContext`k^2 $CellContext`\[Gamma]$$^10 + 
                    2 $CellContext`k^2 $CellContext`\[Gamma]$$^12)^3 - 
                    144 ((-16) $CellContext`k $CellContext`\[Gamma]$$^2 + 
                    2 $CellContext`\[Gamma]$$^3 - $CellContext`\[Gamma]$$^4 + 
                    24 $CellContext`k $CellContext`\[Gamma]$$^4 - \
$CellContext`\[Gamma]$$^5 - 
                    9 $CellContext`k $CellContext`\[Gamma]$$^6 + \
$CellContext`k $CellContext`\[Gamma]$$^8) (512 $CellContext`k^2 - 
                    128 $CellContext`k $CellContext`\[Gamma]$$ + 
                    12 $CellContext`\[Gamma]$$^2 + 
                    96 $CellContext`k $CellContext`\[Gamma]$$^2 - 
                    1552 $CellContext`k^2 $CellContext`\[Gamma]$$^2 - 
                    12 $CellContext`\[Gamma]$$^3 + 
                    256 $CellContext`k $CellContext`\[Gamma]$$^3 - 
                    9 $CellContext`\[Gamma]$$^4 - 
                    144 $CellContext`k $CellContext`\[Gamma]$$^4 + 
                    1752 $CellContext`k^2 $CellContext`\[Gamma]$$^4 + 
                    6 $CellContext`\[Gamma]$$^5 - 
                    168 $CellContext`k $CellContext`\[Gamma]$$^5 + 
                    3 $CellContext`\[Gamma]$$^6 + 
                    54 $CellContext`k $CellContext`\[Gamma]$$^6 - 
                    937 $CellContext`k^2 $CellContext`\[Gamma]$$^6 + 
                    44 $CellContext`k $CellContext`\[Gamma]$$^7 - 
                    6 $CellContext`k $CellContext`\[Gamma]$$^8 + 
                    259 $CellContext`k^2 $CellContext`\[Gamma]$$^8 - 
                    4 $CellContext`k $CellContext`\[Gamma]$$^9 - 
                    36 $CellContext`k^2 $CellContext`\[Gamma]$$^10 + 
                    2 $CellContext`k^2 $CellContext`\[Gamma]$$^12) (
                    128 $CellContext`k - 1024 $CellContext`k^2 + 
                    512 $CellContext`k^3 + 16 $CellContext`\[Gamma]$$ + 
                    256 $CellContext`k $CellContext`\[Gamma]$$ - 
                    64 $CellContext`k^2 $CellContext`\[Gamma]$$ - 
                    24 $CellContext`\[Gamma]$$^2 - 
                    544 $CellContext`k $CellContext`\[Gamma]$$^2 + 
                    3104 $CellContext`k^2 $CellContext`\[Gamma]$$^2 - 
                    1536 $CellContext`k^3 $CellContext`\[Gamma]$$^2 - 
                    12 $CellContext`\[Gamma]$$^3 - 
                    512 $CellContext`k $CellContext`\[Gamma]$$^3 + 
                    128 $CellContext`k^2 $CellContext`\[Gamma]$$^3 + 
                    22 $CellContext`\[Gamma]$$^4 + 
                    712 $CellContext`k $CellContext`\[Gamma]$$^4 - 
                    3504 $CellContext`k^2 $CellContext`\[Gamma]$$^4 + 
                    1728 $CellContext`k^3 $CellContext`\[Gamma]$$^4 + 
                    6 $CellContext`\[Gamma]$$^5 + 
                    336 $CellContext`k $CellContext`\[Gamma]$$^5 - 
                    84 $CellContext`k^2 $CellContext`\[Gamma]$$^5 - 
                    6 $CellContext`\[Gamma]$$^6 - 
                    390 $CellContext`k $CellContext`\[Gamma]$$^6 + 
                    1874 $CellContext`k^2 $CellContext`\[Gamma]$$^6 - 
                    928 $CellContext`k^3 $CellContext`\[Gamma]$$^6 - 
                    2 $CellContext`\[Gamma]$$^7 - 
                    88 $CellContext`k $CellContext`\[Gamma]$$^7 + 
                    22 $CellContext`k^2 $CellContext`\[Gamma]$$^7 + 
                    109 $CellContext`k $CellContext`\[Gamma]$$^8 - 
                    518 $CellContext`k^2 $CellContext`\[Gamma]$$^8 + 
                    258 $CellContext`k^3 $CellContext`\[Gamma]$$^8 + 
                    8 $CellContext`k $CellContext`\[Gamma]$$^9 - 
                    2 $CellContext`k^2 $CellContext`\[Gamma]$$^9 - 
                    16 $CellContext`k $CellContext`\[Gamma]$$^10 + 
                    72 $CellContext`k^2 $CellContext`\[Gamma]$$^10 - 
                    36 $CellContext`k^3 $CellContext`\[Gamma]$$^10 + \
$CellContext`k $CellContext`\[Gamma]$$^12 - 
                    4 $CellContext`k^2 $CellContext`\[Gamma]$$^12 + 
                    2 $CellContext`k^3 $CellContext`\[Gamma]$$^12) + 
                    108 $CellContext`\[Gamma]$$^4 (128 $CellContext`k - 
                    1024 $CellContext`k^2 + 512 $CellContext`k^3 + 
                    16 $CellContext`\[Gamma]$$ + 
                    256 $CellContext`k $CellContext`\[Gamma]$$ - 
                    64 $CellContext`k^2 $CellContext`\[Gamma]$$ - 
                    24 $CellContext`\[Gamma]$$^2 - 
                    544 $CellContext`k $CellContext`\[Gamma]$$^2 + 
                    3104 $CellContext`k^2 $CellContext`\[Gamma]$$^2 - 
                    1536 $CellContext`k^3 $CellContext`\[Gamma]$$^2 - 
                    12 $CellContext`\[Gamma]$$^3 - 
                    512 $CellContext`k $CellContext`\[Gamma]$$^3 + 
                    128 $CellContext`k^2 $CellContext`\[Gamma]$$^3 + 
                    22 $CellContext`\[Gamma]$$^4 + 
                    712 $CellContext`k $CellContext`\[Gamma]$$^4 - 
                    3504 $CellContext`k^2 $CellContext`\[Gamma]$$^4 + 
                    1728 $CellContext`k^3 $CellContext`\[Gamma]$$^4 + 
                    6 $CellContext`\[Gamma]$$^5 + 
                    336 $CellContext`k $CellContext`\[Gamma]$$^5 - 
                    84 $CellContext`k^2 $CellContext`\[Gamma]$$^5 - 
                    6 $CellContext`\[Gamma]$$^6 - 
                    390 $CellContext`k $CellContext`\[Gamma]$$^6 + 
                    1874 $CellContext`k^2 $CellContext`\[Gamma]$$^6 - 
                    928 $CellContext`k^3 $CellContext`\[Gamma]$$^6 - 
                    2 $CellContext`\[Gamma]$$^7 - 
                    88 $CellContext`k $CellContext`\[Gamma]$$^7 + 
                    22 $CellContext`k^2 $CellContext`\[Gamma]$$^7 + 
                    109 $CellContext`k $CellContext`\[Gamma]$$^8 - 
                    518 $CellContext`k^2 $CellContext`\[Gamma]$$^8 + 
                    258 $CellContext`k^3 $CellContext`\[Gamma]$$^8 + 
                    8 $CellContext`k $CellContext`\[Gamma]$$^9 - 
                    2 $CellContext`k^2 $CellContext`\[Gamma]$$^9 - 
                    16 $CellContext`k $CellContext`\[Gamma]$$^10 + 
                    72 $CellContext`k^2 $CellContext`\[Gamma]$$^10 - 
                    36 $CellContext`k^3 $CellContext`\[Gamma]$$^10 + \
$CellContext`k $CellContext`\[Gamma]$$^12 - 
                    4 $CellContext`k^2 $CellContext`\[Gamma]$$^12 + 
                    2 $CellContext`k^3 $CellContext`\[Gamma]$$^12)^2 + 
                    432 ((-16) $CellContext`k $CellContext`\[Gamma]$$^2 + 
                    2 $CellContext`\[Gamma]$$^3 - $CellContext`\[Gamma]$$^4 + 
                    24 $CellContext`k $CellContext`\[Gamma]$$^4 - \
$CellContext`\[Gamma]$$^5 - 
                    9 $CellContext`k $CellContext`\[Gamma]$$^6 + \
$CellContext`k $CellContext`\[Gamma]$$^8)^2 (16 - 256 $CellContext`k + 
                    1152 $CellContext`k^2 - 1024 $CellContext`k^3 + 
                    256 $CellContext`k^4 - 32 $CellContext`\[Gamma]$$ - 
                    256 $CellContext`k $CellContext`\[Gamma]$$ + 
                    128 $CellContext`k^2 $CellContext`\[Gamma]$$ - 
                    8 $CellContext`\[Gamma]$$^2 + 
                    960 $CellContext`k $CellContext`\[Gamma]$$^2 - 
                    3552 $CellContext`k^2 $CellContext`\[Gamma]$$^2 + 
                    3072 $CellContext`k^3 $CellContext`\[Gamma]$$^2 - 
                    768 $CellContext`k^4 $CellContext`\[Gamma]$$^2 + 
                    40 $CellContext`\[Gamma]$$^3 + 
                    512 $CellContext`k $CellContext`\[Gamma]$$^3 - 
                    256 $CellContext`k^2 $CellContext`\[Gamma]$$^3 + \
$CellContext`\[Gamma]$$^4 - 1232 $CellContext`k $CellContext`\[Gamma]$$^4 + 
                    4072 $CellContext`k^2 $CellContext`\[Gamma]$$^4 - 
                    3456 $CellContext`k^3 $CellContext`\[Gamma]$$^4 + 
                    864 $CellContext`k^4 $CellContext`\[Gamma]$$^4 - 
                    20 $CellContext`\[Gamma]$$^5 - 
                    336 $CellContext`k $CellContext`\[Gamma]$$^5 + 
                    168 $CellContext`k^2 $CellContext`\[Gamma]$$^5 - 
                    2 $CellContext`\[Gamma]$$^6 + 
                    708 $CellContext`k $CellContext`\[Gamma]$$^6 - 
                    2210 $CellContext`k^2 $CellContext`\[Gamma]$$^6 + 
                    1856 $CellContext`k^3 $CellContext`\[Gamma]$$^6 - 
                    464 $CellContext`k^4 $CellContext`\[Gamma]$$^6 + 
                    4 $CellContext`\[Gamma]$$^7 + 
                    88 $CellContext`k $CellContext`\[Gamma]$$^7 - 
                    44 $CellContext`k^2 $CellContext`\[Gamma]$$^7 + \
$CellContext`\[Gamma]$$^8 - 210 $CellContext`k $CellContext`\[Gamma]$$^8 + 
                    621 $CellContext`k^2 $CellContext`\[Gamma]$$^8 - 
                    516 $CellContext`k^3 $CellContext`\[Gamma]$$^8 + 
                    129 $CellContext`k^4 $CellContext`\[Gamma]$$^8 - 
                    8 $CellContext`k $CellContext`\[Gamma]$$^9 + 
                    4 $CellContext`k^2 $CellContext`\[Gamma]$$^9 + 
                    32 $CellContext`k $CellContext`\[Gamma]$$^10 - 
                    88 $CellContext`k^2 $CellContext`\[Gamma]$$^10 + 
                    72 $CellContext`k^3 $CellContext`\[Gamma]$$^10 - 
                    18 $CellContext`k^4 $CellContext`\[Gamma]$$^10 - 
                    2 $CellContext`k $CellContext`\[Gamma]$$^12 + 
                    5 $CellContext`k^2 $CellContext`\[Gamma]$$^12 - 
                    4 $CellContext`k^3 $CellContext`\[Gamma]$$^12 + \
$CellContext`k^4 $CellContext`\[Gamma]$$^12) - 
                    144 $CellContext`\[Gamma]$$^4 (512 $CellContext`k^2 - 
                    128 $CellContext`k $CellContext`\[Gamma]$$ + 
                    12 $CellContext`\[Gamma]$$^2 + 
                    96 $CellContext`k $CellContext`\[Gamma]$$^2 - 
                    1552 $CellContext`k^2 $CellContext`\[Gamma]$$^2 - 
                    12 $CellContext`\[Gamma]$$^3 + 
                    256 $CellContext`k $CellContext`\[Gamma]$$^3 - 
                    9 $CellContext`\[Gamma]$$^4 - 
                    144 $CellContext`k $CellContext`\[Gamma]$$^4 + 
                    1752 $CellContext`k^2 $CellContext`\[Gamma]$$^4 + 
                    6 $CellContext`\[Gamma]$$^5 - 
                    168 $CellContext`k $CellContext`\[Gamma]$$^5 + 
                    3 $CellContext`\[Gamma]$$^6 + 
                    54 $CellContext`k $CellContext`\[Gamma]$$^6 - 
                    937 $CellContext`k^2 $CellContext`\[Gamma]$$^6 + 
                    44 $CellContext`k $CellContext`\[Gamma]$$^7 - 
                    6 $CellContext`k $CellContext`\[Gamma]$$^8 + 
                    259 $CellContext`k^2 $CellContext`\[Gamma]$$^8 - 
                    4 $CellContext`k $CellContext`\[Gamma]$$^9 - 
                    36 $CellContext`k^2 $CellContext`\[Gamma]$$^10 + 
                    2 $CellContext`k^2 $CellContext`\[Gamma]$$^12) (16 - 
                    256 $CellContext`k + 1152 $CellContext`k^2 - 
                    1024 $CellContext`k^3 + 256 $CellContext`k^4 - 
                    32 $CellContext`\[Gamma]$$ - 
                    256 $CellContext`k $CellContext`\[Gamma]$$ + 
                    128 $CellContext`k^2 $CellContext`\[Gamma]$$ - 
                    8 $CellContext`\[Gamma]$$^2 + 
                    960 $CellContext`k $CellContext`\[Gamma]$$^2 - 
                    3552 $CellContext`k^2 $CellContext`\[Gamma]$$^2 + 
                    3072 $CellContext`k^3 $CellContext`\[Gamma]$$^2 - 
                    768 $CellContext`k^4 $CellContext`\[Gamma]$$^2 + 
                    40 $CellContext`\[Gamma]$$^3 + 
                    512 $CellContext`k $CellContext`\[Gamma]$$^3 - 
                    256 $CellContext`k^2 $CellContext`\[Gamma]$$^3 + \
$CellContext`\[Gamma]$$^4 - 1232 $CellContext`k $CellContext`\[Gamma]$$^4 + 
                    4072 $CellContext`k^2 $CellContext`\[Gamma]$$^4 - 
                    3456 $CellContext`k^3 $CellContext`\[Gamma]$$^4 + 
                    864 $CellContext`k^4 $CellContext`\[Gamma]$$^4 - 
                    20 $CellContext`\[Gamma]$$^5 - 
                    336 $CellContext`k $CellContext`\[Gamma]$$^5 + 
                    168 $CellContext`k^2 $CellContext`\[Gamma]$$^5 - 
                    2 $CellContext`\[Gamma]$$^6 + 
                    708 $CellContext`k $CellContext`\[Gamma]$$^6 - 
                    2210 $CellContext`k^2 $CellContext`\[Gamma]$$^6 + 
                    1856 $CellContext`k^3 $CellContext`\[Gamma]$$^6 - 
                    464 $CellContext`k^4 $CellContext`\[Gamma]$$^6 + 
                    4 $CellContext`\[Gamma]$$^7 + 
                    88 $CellContext`k $CellContext`\[Gamma]$$^7 - 
                    44 $CellContext`k^2 $CellContext`\[Gamma]$$^7 + \
$CellContext`\[Gamma]$$^8 - 210 $CellContext`k $CellContext`\[Gamma]$$^8 + 
                    621 $CellContext`k^2 $CellContext`\[Gamma]$$^8 - 
                    516 $CellContext`k^3 $CellContext`\[Gamma]$$^8 + 
                    129 $CellContext`k^4 $CellContext`\[Gamma]$$^8 - 
                    8 $CellContext`k $CellContext`\[Gamma]$$^9 + 
                    4 $CellContext`k^2 $CellContext`\[Gamma]$$^9 + 
                    32 $CellContext`k $CellContext`\[Gamma]$$^10 - 
                    88 $CellContext`k^2 $CellContext`\[Gamma]$$^10 + 
                    72 $CellContext`k^3 $CellContext`\[Gamma]$$^10 - 
                    18 $CellContext`k^4 $CellContext`\[Gamma]$$^10 - 
                    2 $CellContext`k $CellContext`\[Gamma]$$^12 + 
                    5 $CellContext`k^2 $CellContext`\[Gamma]$$^12 - 
                    4 $CellContext`k^3 $CellContext`\[Gamma]$$^12 + \
$CellContext`k^4 $CellContext`\[Gamma]$$^12))^2)^Rational[1, 2])^
                Rational[1, 3])^Rational[1, 2] + 
           Rational[-1, 2] (
              8 $CellContext`\[Gamma]$$^(-4) ((-16) $CellContext`k + 
                 2 $CellContext`\[Gamma]$$ - $CellContext`\[Gamma]$$^2 + 
                 24 $CellContext`k $CellContext`\[Gamma]$$^2 - $CellContext`\
\[Gamma]$$^3 - 
                 9 $CellContext`k $CellContext`\[Gamma]$$^4 + $CellContext`k \
$CellContext`\[Gamma]$$^6)^2 + 
              Rational[-8, 3] $CellContext`\[Gamma]$$^(-4) (
                512 $CellContext`k^2 - 
                128 $CellContext`k $CellContext`\[Gamma]$$ + 
                12 $CellContext`\[Gamma]$$^2 + 
                96 $CellContext`k $CellContext`\[Gamma]$$^2 - 
                1552 $CellContext`k^2 $CellContext`\[Gamma]$$^2 - 
                12 $CellContext`\[Gamma]$$^3 + 
                256 $CellContext`k $CellContext`\[Gamma]$$^3 - 
                9 $CellContext`\[Gamma]$$^4 - 
                144 $CellContext`k $CellContext`\[Gamma]$$^4 + 
                1752 $CellContext`k^2 $CellContext`\[Gamma]$$^4 + 
                6 $CellContext`\[Gamma]$$^5 - 
                168 $CellContext`k $CellContext`\[Gamma]$$^5 + 
                3 $CellContext`\[Gamma]$$^6 + 
                54 $CellContext`k $CellContext`\[Gamma]$$^6 - 
                937 $CellContext`k^2 $CellContext`\[Gamma]$$^6 + 
                44 $CellContext`k $CellContext`\[Gamma]$$^7 - 
                6 $CellContext`k $CellContext`\[Gamma]$$^8 + 
                259 $CellContext`k^2 $CellContext`\[Gamma]$$^8 - 
                4 $CellContext`k $CellContext`\[Gamma]$$^9 - 
                36 $CellContext`k^2 $CellContext`\[Gamma]$$^10 + 
                2 $CellContext`k^2 $CellContext`\[Gamma]$$^12) + 
              Rational[-4, 3] 
               2^Rational[1, 3] $CellContext`\[Gamma]$$^(-4) (
                262144 $CellContext`k^4 - 
                131072 $CellContext`k^3 $CellContext`\[Gamma]$$ + 
                40960 $CellContext`k^2 $CellContext`\[Gamma]$$^2 - 
                1540096 $CellContext`k^4 $CellContext`\[Gamma]$$^2 - 
                3072 $CellContext`k $CellContext`\[Gamma]$$^3 + 
                647168 $CellContext`k^3 $CellContext`\[Gamma]$$^3 - 
                175360 $CellContext`k^2 $CellContext`\[Gamma]$$^4 + 
                3982336 $CellContext`k^4 $CellContext`\[Gamma]$$^4 + 
                10752 $CellContext`k $CellContext`\[Gamma]$$^5 - 
                1372160 $CellContext`k^3 $CellContext`\[Gamma]$$^5 + 
                313600 $CellContext`k^2 $CellContext`\[Gamma]$$^6 - 
                5985280 $CellContext`k^4 $CellContext`\[Gamma]$$^6 - 
                14976 $CellContext`k $CellContext`\[Gamma]$$^7 + 
                1643520 $CellContext`k^3 $CellContext`\[Gamma]$$^7 - 
                306656 $CellContext`k^2 $CellContext`\[Gamma]$$^8 + 
                5821824 $CellContext`k^4 $CellContext`\[Gamma]$$^8 + 
                10752 $CellContext`k $CellContext`\[Gamma]$$^9 - 
                1232384 $CellContext`k^3 $CellContext`\[Gamma]$$^9 + 
                180848 $CellContext`k^2 $CellContext`\[Gamma]$$^10 - 
                3864512 $CellContext`k^4 $CellContext`\[Gamma]$$^10 - 
                4332 $CellContext`k $CellContext`\[Gamma]$$^11 + 
                605920 $CellContext`k^3 $CellContext`\[Gamma]$$^11 - 
                66989 $CellContext`k^2 $CellContext`\[Gamma]$$^12 + 
                1798596 $CellContext`k^4 $CellContext`\[Gamma]$$^12 + 
                990 $CellContext`k $CellContext`\[Gamma]$$^13 - 
                198480 $CellContext`k^3 $CellContext`\[Gamma]$$^13 + 
                15664 $CellContext`k^2 $CellContext`\[Gamma]$$^14 - 
                592896 $CellContext`k^4 $CellContext`\[Gamma]$$^14 - 
                120 $CellContext`k $CellContext`\[Gamma]$$^15 + 
                42928 $CellContext`k^3 $CellContext`\[Gamma]$$^15 - 
                2239 $CellContext`k^2 $CellContext`\[Gamma]$$^16 + 
                137776 $CellContext`k^4 $CellContext`\[Gamma]$$^16 + 
                6 $CellContext`k $CellContext`\[Gamma]$$^17 - 
                5888 $CellContext`k^3 $CellContext`\[Gamma]$$^17 + 
                178 $CellContext`k^2 $CellContext`\[Gamma]$$^18 - 
                22072 $CellContext`k^4 $CellContext`\[Gamma]$$^18 + 
                464 $CellContext`k^3 $CellContext`\[Gamma]$$^19 - 
                6 $CellContext`k^2 $CellContext`\[Gamma]$$^20 + 
                2320 $CellContext`k^4 $CellContext`\[Gamma]$$^20 - 
                16 $CellContext`k^3 $CellContext`\[Gamma]$$^21 - 
                144 $CellContext`k^4 $CellContext`\[Gamma]$$^22 + 
                4 $CellContext`k^4 $CellContext`\[Gamma]$$^24) (
                 16 (512 $CellContext`k^2 - 
                    128 $CellContext`k $CellContext`\[Gamma]$$ + 
                    12 $CellContext`\[Gamma]$$^2 + 
                    96 $CellContext`k $CellContext`\[Gamma]$$^2 - 
                    1552 $CellContext`k^2 $CellContext`\[Gamma]$$^2 - 
                    12 $CellContext`\[Gamma]$$^3 + 
                    256 $CellContext`k $CellContext`\[Gamma]$$^3 - 
                    9 $CellContext`\[Gamma]$$^4 - 
                    144 $CellContext`k $CellContext`\[Gamma]$$^4 + 
                    1752 $CellContext`k^2 $CellContext`\[Gamma]$$^4 + 
                    6 $CellContext`\[Gamma]$$^5 - 
                    168 $CellContext`k $CellContext`\[Gamma]$$^5 + 
                    3 $CellContext`\[Gamma]$$^6 + 
                    54 $CellContext`k $CellContext`\[Gamma]$$^6 - 
                    937 $CellContext`k^2 $CellContext`\[Gamma]$$^6 + 
                    44 $CellContext`k $CellContext`\[Gamma]$$^7 - 
                    6 $CellContext`k $CellContext`\[Gamma]$$^8 + 
                    259 $CellContext`k^2 $CellContext`\[Gamma]$$^8 - 
                    4 $CellContext`k $CellContext`\[Gamma]$$^9 - 
                    36 $CellContext`k^2 $CellContext`\[Gamma]$$^10 + 
                    2 $CellContext`k^2 $CellContext`\[Gamma]$$^12)^3 - 
                 144 ((-16) $CellContext`k $CellContext`\[Gamma]$$^2 + 
                  2 $CellContext`\[Gamma]$$^3 - $CellContext`\[Gamma]$$^4 + 
                  24 $CellContext`k $CellContext`\[Gamma]$$^4 - $CellContext`\
\[Gamma]$$^5 - 
                  9 $CellContext`k $CellContext`\[Gamma]$$^6 + $CellContext`k \
$CellContext`\[Gamma]$$^8) (512 $CellContext`k^2 - 
                  128 $CellContext`k $CellContext`\[Gamma]$$ + 
                  12 $CellContext`\[Gamma]$$^2 + 
                  96 $CellContext`k $CellContext`\[Gamma]$$^2 - 
                  1552 $CellContext`k^2 $CellContext`\[Gamma]$$^2 - 
                  12 $CellContext`\[Gamma]$$^3 + 
                  256 $CellContext`k $CellContext`\[Gamma]$$^3 - 
                  9 $CellContext`\[Gamma]$$^4 - 
                  144 $CellContext`k $CellContext`\[Gamma]$$^4 + 
                  1752 $CellContext`k^2 $CellContext`\[Gamma]$$^4 + 
                  6 $CellContext`\[Gamma]$$^5 - 
                  168 $CellContext`k $CellContext`\[Gamma]$$^5 + 
                  3 $CellContext`\[Gamma]$$^6 + 
                  54 $CellContext`k $CellContext`\[Gamma]$$^6 - 
                  937 $CellContext`k^2 $CellContext`\[Gamma]$$^6 + 
                  44 $CellContext`k $CellContext`\[Gamma]$$^7 - 
                  6 $CellContext`k $CellContext`\[Gamma]$$^8 + 
                  259 $CellContext`k^2 $CellContext`\[Gamma]$$^8 - 
                  4 $CellContext`k $CellContext`\[Gamma]$$^9 - 
                  36 $CellContext`k^2 $CellContext`\[Gamma]$$^10 + 
                  2 $CellContext`k^2 $CellContext`\[Gamma]$$^12) (
                  128 $CellContext`k - 1024 $CellContext`k^2 + 
                  512 $CellContext`k^3 + 16 $CellContext`\[Gamma]$$ + 
                  256 $CellContext`k $CellContext`\[Gamma]$$ - 
                  64 $CellContext`k^2 $CellContext`\[Gamma]$$ - 
                  24 $CellContext`\[Gamma]$$^2 - 
                  544 $CellContext`k $CellContext`\[Gamma]$$^2 + 
                  3104 $CellContext`k^2 $CellContext`\[Gamma]$$^2 - 
                  1536 $CellContext`k^3 $CellContext`\[Gamma]$$^2 - 
                  12 $CellContext`\[Gamma]$$^3 - 
                  512 $CellContext`k $CellContext`\[Gamma]$$^3 + 
                  128 $CellContext`k^2 $CellContext`\[Gamma]$$^3 + 
                  22 $CellContext`\[Gamma]$$^4 + 
                  712 $CellContext`k $CellContext`\[Gamma]$$^4 - 
                  3504 $CellContext`k^2 $CellContext`\[Gamma]$$^4 + 
                  1728 $CellContext`k^3 $CellContext`\[Gamma]$$^4 + 
                  6 $CellContext`\[Gamma]$$^5 + 
                  336 $CellContext`k $CellContext`\[Gamma]$$^5 - 
                  84 $CellContext`k^2 $CellContext`\[Gamma]$$^5 - 
                  6 $CellContext`\[Gamma]$$^6 - 
                  390 $CellContext`k $CellContext`\[Gamma]$$^6 + 
                  1874 $CellContext`k^2 $CellContext`\[Gamma]$$^6 - 
                  928 $CellContext`k^3 $CellContext`\[Gamma]$$^6 - 
                  2 $CellContext`\[Gamma]$$^7 - 
                  88 $CellContext`k $CellContext`\[Gamma]$$^7 + 
                  22 $CellContext`k^2 $CellContext`\[Gamma]$$^7 + 
                  109 $CellContext`k $CellContext`\[Gamma]$$^8 - 
                  518 $CellContext`k^2 $CellContext`\[Gamma]$$^8 + 
                  258 $CellContext`k^3 $CellContext`\[Gamma]$$^8 + 
                  8 $CellContext`k $CellContext`\[Gamma]$$^9 - 
                  2 $CellContext`k^2 $CellContext`\[Gamma]$$^9 - 
                  16 $CellContext`k $CellContext`\[Gamma]$$^10 + 
                  72 $CellContext`k^2 $CellContext`\[Gamma]$$^10 - 
                  36 $CellContext`k^3 $CellContext`\[Gamma]$$^10 + \
$CellContext`k $CellContext`\[Gamma]$$^12 - 
                  4 $CellContext`k^2 $CellContext`\[Gamma]$$^12 + 
                  2 $CellContext`k^3 $CellContext`\[Gamma]$$^12) + 
                 108 $CellContext`\[Gamma]$$^4 (128 $CellContext`k - 
                    1024 $CellContext`k^2 + 512 $CellContext`k^3 + 
                    16 $CellContext`\[Gamma]$$ + 
                    256 $CellContext`k $CellContext`\[Gamma]$$ - 
                    64 $CellContext`k^2 $CellContext`\[Gamma]$$ - 
                    24 $CellContext`\[Gamma]$$^2 - 
                    544 $CellContext`k $CellContext`\[Gamma]$$^2 + 
                    3104 $CellContext`k^2 $CellContext`\[Gamma]$$^2 - 
                    1536 $CellContext`k^3 $CellContext`\[Gamma]$$^2 - 
                    12 $CellContext`\[Gamma]$$^3 - 
                    512 $CellContext`k $CellContext`\[Gamma]$$^3 + 
                    128 $CellContext`k^2 $CellContext`\[Gamma]$$^3 + 
                    22 $CellContext`\[Gamma]$$^4 + 
                    712 $CellContext`k $CellContext`\[Gamma]$$^4 - 
                    3504 $CellContext`k^2 $CellContext`\[Gamma]$$^4 + 
                    1728 $CellContext`k^3 $CellContext`\[Gamma]$$^4 + 
                    6 $CellContext`\[Gamma]$$^5 + 
                    336 $CellContext`k $CellContext`\[Gamma]$$^5 - 
                    84 $CellContext`k^2 $CellContext`\[Gamma]$$^5 - 
                    6 $CellContext`\[Gamma]$$^6 - 
                    390 $CellContext`k $CellContext`\[Gamma]$$^6 + 
                    1874 $CellContext`k^2 $CellContext`\[Gamma]$$^6 - 
                    928 $CellContext`k^3 $CellContext`\[Gamma]$$^6 - 
                    2 $CellContext`\[Gamma]$$^7 - 
                    88 $CellContext`k $CellContext`\[Gamma]$$^7 + 
                    22 $CellContext`k^2 $CellContext`\[Gamma]$$^7 + 
                    109 $CellContext`k $CellContext`\[Gamma]$$^8 - 
                    518 $CellContext`k^2 $CellContext`\[Gamma]$$^8 + 
                    258 $CellContext`k^3 $CellContext`\[Gamma]$$^8 + 
                    8 $CellContext`k $CellContext`\[Gamma]$$^9 - 
                    2 $CellContext`k^2 $CellContext`\[Gamma]$$^9 - 
                    16 $CellContext`k $CellContext`\[Gamma]$$^10 + 
                    72 $CellContext`k^2 $CellContext`\[Gamma]$$^10 - 
                    36 $CellContext`k^3 $CellContext`\[Gamma]$$^10 + \
$CellContext`k $CellContext`\[Gamma]$$^12 - 
                    4 $CellContext`k^2 $CellContext`\[Gamma]$$^12 + 
                    2 $CellContext`k^3 $CellContext`\[Gamma]$$^12)^2 + 
                 432 ((-16) $CellContext`k $CellContext`\[Gamma]$$^2 + 
                    2 $CellContext`\[Gamma]$$^3 - $CellContext`\[Gamma]$$^4 + 
                    
                    24 $CellContext`k $CellContext`\[Gamma]$$^4 - \
$CellContext`\[Gamma]$$^5 - 
                    9 $CellContext`k $CellContext`\[Gamma]$$^6 + \
$CellContext`k $CellContext`\[Gamma]$$^8)^2 (16 - 256 $CellContext`k + 
                   1152 $CellContext`k^2 - 1024 $CellContext`k^3 + 
                   256 $CellContext`k^4 - 32 $CellContext`\[Gamma]$$ - 
                   256 $CellContext`k $CellContext`\[Gamma]$$ + 
                   128 $CellContext`k^2 $CellContext`\[Gamma]$$ - 
                   8 $CellContext`\[Gamma]$$^2 + 
                   960 $CellContext`k $CellContext`\[Gamma]$$^2 - 
                   3552 $CellContext`k^2 $CellContext`\[Gamma]$$^2 + 
                   3072 $CellContext`k^3 $CellContext`\[Gamma]$$^2 - 
                   768 $CellContext`k^4 $CellContext`\[Gamma]$$^2 + 
                   40 $CellContext`\[Gamma]$$^3 + 
                   512 $CellContext`k $CellContext`\[Gamma]$$^3 - 
                   256 $CellContext`k^2 $CellContext`\[Gamma]$$^3 + \
$CellContext`\[Gamma]$$^4 - 1232 $CellContext`k $CellContext`\[Gamma]$$^4 + 
                   4072 $CellContext`k^2 $CellContext`\[Gamma]$$^4 - 
                   3456 $CellContext`k^3 $CellContext`\[Gamma]$$^4 + 
                   864 $CellContext`k^4 $CellContext`\[Gamma]$$^4 - 
                   20 $CellContext`\[Gamma]$$^5 - 
                   336 $CellContext`k $CellContext`\[Gamma]$$^5 + 
                   168 $CellContext`k^2 $CellContext`\[Gamma]$$^5 - 
                   2 $CellContext`\[Gamma]$$^6 + 
                   708 $CellContext`k $CellContext`\[Gamma]$$^6 - 
                   2210 $CellContext`k^2 $CellContext`\[Gamma]$$^6 + 
                   1856 $CellContext`k^3 $CellContext`\[Gamma]$$^6 - 
                   464 $CellContext`k^4 $CellContext`\[Gamma]$$^6 + 
                   4 $CellContext`\[Gamma]$$^7 + 
                   88 $CellContext`k $CellContext`\[Gamma]$$^7 - 
                   44 $CellContext`k^2 $CellContext`\[Gamma]$$^7 + \
$CellContext`\[Gamma]$$^8 - 210 $CellContext`k $CellContext`\[Gamma]$$^8 + 
                   621 $CellContext`k^2 $CellContext`\[Gamma]$$^8 - 
                   516 $CellContext`k^3 $CellContext`\[Gamma]$$^8 + 
                   129 $CellContext`k^4 $CellContext`\[Gamma]$$^8 - 
                   8 $CellContext`k $CellContext`\[Gamma]$$^9 + 
                   4 $CellContext`k^2 $CellContext`\[Gamma]$$^9 + 
                   32 $CellContext`k $CellContext`\[Gamma]$$^10 - 
                   88 $CellContext`k^2 $CellContext`\[Gamma]$$^10 + 
                   72 $CellContext`k^3 $CellContext`\[Gamma]$$^10 - 
                   18 $CellContext`k^4 $CellContext`\[Gamma]$$^10 - 
                   2 $CellContext`k $CellContext`\[Gamma]$$^12 + 
                   5 $CellContext`k^2 $CellContext`\[Gamma]$$^12 - 
                   4 $CellContext`k^3 $CellContext`\[Gamma]$$^12 + \
$CellContext`k^4 $CellContext`\[Gamma]$$^12) - 
                 144 $CellContext`\[Gamma]$$^4 (512 $CellContext`k^2 - 
                  128 $CellContext`k $CellContext`\[Gamma]$$ + 
                  12 $CellContext`\[Gamma]$$^2 + 
                  96 $CellContext`k $CellContext`\[Gamma]$$^2 - 
                  1552 $CellContext`k^2 $CellContext`\[Gamma]$$^2 - 
                  12 $CellContext`\[Gamma]$$^3 + 
                  256 $CellContext`k $CellContext`\[Gamma]$$^3 - 
                  9 $CellContext`\[Gamma]$$^4 - 
                  144 $CellContext`k $CellContext`\[Gamma]$$^4 + 
                  1752 $CellContext`k^2 $CellContext`\[Gamma]$$^4 + 
                  6 $CellContext`\[Gamma]$$^5 - 
                  168 $CellContext`k $CellContext`\[Gamma]$$^5 + 
                  3 $CellContext`\[Gamma]$$^6 + 
                  54 $CellContext`k $CellContext`\[Gamma]$$^6 - 
                  937 $CellContext`k^2 $CellContext`\[Gamma]$$^6 + 
                  44 $CellContext`k $CellContext`\[Gamma]$$^7 - 
                  6 $CellContext`k $CellContext`\[Gamma]$$^8 + 
                  259 $CellContext`k^2 $CellContext`\[Gamma]$$^8 - 
                  4 $CellContext`k $CellContext`\[Gamma]$$^9 - 
                  36 $CellContext`k^2 $CellContext`\[Gamma]$$^10 + 
                  2 $CellContext`k^2 $CellContext`\[Gamma]$$^12) (16 - 
                  256 $CellContext`k + 1152 $CellContext`k^2 - 
                  1024 $CellContext`k^3 + 256 $CellContext`k^4 - 
                  32 $CellContext`\[Gamma]$$ - 
                  256 $CellContext`k $CellContext`\[Gamma]$$ + 
                  128 $CellContext`k^2 $CellContext`\[Gamma]$$ - 
                  8 $CellContext`\[Gamma]$$^2 + 
                  960 $CellContext`k $CellContext`\[Gamma]$$^2 - 
                  3552 $CellContext`k^2 $CellContext`\[Gamma]$$^2 + 
                  3072 $CellContext`k^3 $CellContext`\[Gamma]$$^2 - 
                  768 $CellContext`k^4 $CellContext`\[Gamma]$$^2 + 
                  40 $CellContext`\[Gamma]$$^3 + 
                  512 $CellContext`k $CellContext`\[Gamma]$$^3 - 
                  256 $CellContext`k^2 $CellContext`\[Gamma]$$^3 + \
$CellContext`\[Gamma]$$^4 - 1232 $CellContext`k $CellContext`\[Gamma]$$^4 + 
                  4072 $CellContext`k^2 $CellContext`\[Gamma]$$^4 - 
                  3456 $CellContext`k^3 $CellContext`\[Gamma]$$^4 + 
                  864 $CellContext`k^4 $CellContext`\[Gamma]$$^4 - 
                  20 $CellContext`\[Gamma]$$^5 - 
                  336 $CellContext`k $CellContext`\[Gamma]$$^5 + 
                  168 $CellContext`k^2 $CellContext`\[Gamma]$$^5 - 
                  2 $CellContext`\[Gamma]$$^6 + 
                  708 $CellContext`k $CellContext`\[Gamma]$$^6 - 
                  2210 $CellContext`k^2 $CellContext`\[Gamma]$$^6 + 
                  1856 $CellContext`k^3 $CellContext`\[Gamma]$$^6 - 
                  464 $CellContext`k^4 $CellContext`\[Gamma]$$^6 + 
                  4 $CellContext`\[Gamma]$$^7 + 
                  88 $CellContext`k $CellContext`\[Gamma]$$^7 - 
                  44 $CellContext`k^2 $CellContext`\[Gamma]$$^7 + \
$CellContext`\[Gamma]$$^8 - 210 $CellContext`k $CellContext`\[Gamma]$$^8 + 
                  621 $CellContext`k^2 $CellContext`\[Gamma]$$^8 - 
                  516 $CellContext`k^3 $CellContext`\[Gamma]$$^8 + 
                  129 $CellContext`k^4 $CellContext`\[Gamma]$$^8 - 
                  8 $CellContext`k $CellContext`\[Gamma]$$^9 + 
                  4 $CellContext`k^2 $CellContext`\[Gamma]$$^9 + 
                  32 $CellContext`k $CellContext`\[Gamma]$$^10 - 
                  88 $CellContext`k^2 $CellContext`\[Gamma]$$^10 + 
                  72 $CellContext`k^3 $CellContext`\[Gamma]$$^10 - 
                  18 $CellContext`k^4 $CellContext`\[Gamma]$$^10 - 
                  2 $CellContext`k $CellContext`\[Gamma]$$^12 + 
                  5 $CellContext`k^2 $CellContext`\[Gamma]$$^12 - 
                  4 $CellContext`k^3 $CellContext`\[Gamma]$$^12 + \
$CellContext`k^4 $CellContext`\[Gamma]$$^12) + ((-4) (
                    1048576 $CellContext`k^4 - 
                    524288 $CellContext`k^3 $CellContext`\[Gamma]$$ + 
                    163840 $CellContext`k^2 $CellContext`\[Gamma]$$^2 - 
                    6160384 $CellContext`k^4 $CellContext`\[Gamma]$$^2 - 
                    12288 $CellContext`k $CellContext`\[Gamma]$$^3 + 
                    2588672 $CellContext`k^3 $CellContext`\[Gamma]$$^3 - 
                    701440 $CellContext`k^2 $CellContext`\[Gamma]$$^4 + 
                    15929344 $CellContext`k^4 $CellContext`\[Gamma]$$^4 + 
                    43008 $CellContext`k $CellContext`\[Gamma]$$^5 - 
                    5488640 $CellContext`k^3 $CellContext`\[Gamma]$$^5 + 
                    1254400 $CellContext`k^2 $CellContext`\[Gamma]$$^6 - 
                    23941120 $CellContext`k^4 $CellContext`\[Gamma]$$^6 - 
                    59904 $CellContext`k $CellContext`\[Gamma]$$^7 + 
                    6574080 $CellContext`k^3 $CellContext`\[Gamma]$$^7 - 
                    1226624 $CellContext`k^2 $CellContext`\[Gamma]$$^8 + 
                    23287296 $CellContext`k^4 $CellContext`\[Gamma]$$^8 + 
                    43008 $CellContext`k $CellContext`\[Gamma]$$^9 - 
                    4929536 $CellContext`k^3 $CellContext`\[Gamma]$$^9 + 
                    723392 $CellContext`k^2 $CellContext`\[Gamma]$$^10 - 
                    15458048 $CellContext`k^4 $CellContext`\[Gamma]$$^10 - 
                    17328 $CellContext`k $CellContext`\[Gamma]$$^11 + 
                    2423680 $CellContext`k^3 $CellContext`\[Gamma]$$^11 - 
                    267956 $CellContext`k^2 $CellContext`\[Gamma]$$^12 + 
                    7194384 $CellContext`k^4 $CellContext`\[Gamma]$$^12 + 
                    3960 $CellContext`k $CellContext`\[Gamma]$$^13 - 
                    793920 $CellContext`k^3 $CellContext`\[Gamma]$$^13 + 
                    62656 $CellContext`k^2 $CellContext`\[Gamma]$$^14 - 
                    2371584 $CellContext`k^4 $CellContext`\[Gamma]$$^14 - 
                    480 $CellContext`k $CellContext`\[Gamma]$$^15 + 
                    171712 $CellContext`k^3 $CellContext`\[Gamma]$$^15 - 
                    8956 $CellContext`k^2 $CellContext`\[Gamma]$$^16 + 
                    551104 $CellContext`k^4 $CellContext`\[Gamma]$$^16 + 
                    24 $CellContext`k $CellContext`\[Gamma]$$^17 - 
                    23552 $CellContext`k^3 $CellContext`\[Gamma]$$^17 + 
                    712 $CellContext`k^2 $CellContext`\[Gamma]$$^18 - 
                    88288 $CellContext`k^4 $CellContext`\[Gamma]$$^18 + 
                    1856 $CellContext`k^3 $CellContext`\[Gamma]$$^19 - 
                    24 $CellContext`k^2 $CellContext`\[Gamma]$$^20 + 
                    9280 $CellContext`k^4 $CellContext`\[Gamma]$$^20 - 
                    64 $CellContext`k^3 $CellContext`\[Gamma]$$^21 - 
                    576 $CellContext`k^4 $CellContext`\[Gamma]$$^22 + 
                    16 $CellContext`k^4 $CellContext`\[Gamma]$$^24)^3 + (
                    16 (512 $CellContext`k^2 - 
                    128 $CellContext`k $CellContext`\[Gamma]$$ + 
                    12 $CellContext`\[Gamma]$$^2 + 
                    96 $CellContext`k $CellContext`\[Gamma]$$^2 - 
                    1552 $CellContext`k^2 $CellContext`\[Gamma]$$^2 - 
                    12 $CellContext`\[Gamma]$$^3 + 
                    256 $CellContext`k $CellContext`\[Gamma]$$^3 - 
                    9 $CellContext`\[Gamma]$$^4 - 
                    144 $CellContext`k $CellContext`\[Gamma]$$^4 + 
                    1752 $CellContext`k^2 $CellContext`\[Gamma]$$^4 + 
                    6 $CellContext`\[Gamma]$$^5 - 
                    168 $CellContext`k $CellContext`\[Gamma]$$^5 + 
                    3 $CellContext`\[Gamma]$$^6 + 
                    54 $CellContext`k $CellContext`\[Gamma]$$^6 - 
                    937 $CellContext`k^2 $CellContext`\[Gamma]$$^6 + 
                    44 $CellContext`k $CellContext`\[Gamma]$$^7 - 
                    6 $CellContext`k $CellContext`\[Gamma]$$^8 + 
                    259 $CellContext`k^2 $CellContext`\[Gamma]$$^8 - 
                    4 $CellContext`k $CellContext`\[Gamma]$$^9 - 
                    36 $CellContext`k^2 $CellContext`\[Gamma]$$^10 + 
                    2 $CellContext`k^2 $CellContext`\[Gamma]$$^12)^3 - 
                    144 ((-16) $CellContext`k $CellContext`\[Gamma]$$^2 + 
                    2 $CellContext`\[Gamma]$$^3 - $CellContext`\[Gamma]$$^4 + 
                    24 $CellContext`k $CellContext`\[Gamma]$$^4 - \
$CellContext`\[Gamma]$$^5 - 
                    9 $CellContext`k $CellContext`\[Gamma]$$^6 + \
$CellContext`k $CellContext`\[Gamma]$$^8) (512 $CellContext`k^2 - 
                    128 $CellContext`k $CellContext`\[Gamma]$$ + 
                    12 $CellContext`\[Gamma]$$^2 + 
                    96 $CellContext`k $CellContext`\[Gamma]$$^2 - 
                    1552 $CellContext`k^2 $CellContext`\[Gamma]$$^2 - 
                    12 $CellContext`\[Gamma]$$^3 + 
                    256 $CellContext`k $CellContext`\[Gamma]$$^3 - 
                    9 $CellContext`\[Gamma]$$^4 - 
                    144 $CellContext`k $CellContext`\[Gamma]$$^4 + 
                    1752 $CellContext`k^2 $CellContext`\[Gamma]$$^4 + 
                    6 $CellContext`\[Gamma]$$^5 - 
                    168 $CellContext`k $CellContext`\[Gamma]$$^5 + 
                    3 $CellContext`\[Gamma]$$^6 + 
                    54 $CellContext`k $CellContext`\[Gamma]$$^6 - 
                    937 $CellContext`k^2 $CellContext`\[Gamma]$$^6 + 
                    44 $CellContext`k $CellContext`\[Gamma]$$^7 - 
                    6 $CellContext`k $CellContext`\[Gamma]$$^8 + 
                    259 $CellContext`k^2 $CellContext`\[Gamma]$$^8 - 
                    4 $CellContext`k $CellContext`\[Gamma]$$^9 - 
                    36 $CellContext`k^2 $CellContext`\[Gamma]$$^10 + 
                    2 $CellContext`k^2 $CellContext`\[Gamma]$$^12) (
                    128 $CellContext`k - 1024 $CellContext`k^2 + 
                    512 $CellContext`k^3 + 16 $CellContext`\[Gamma]$$ + 
                    256 $CellContext`k $CellContext`\[Gamma]$$ - 
                    64 $CellContext`k^2 $CellContext`\[Gamma]$$ - 
                    24 $CellContext`\[Gamma]$$^2 - 
                    544 $CellContext`k $CellContext`\[Gamma]$$^2 + 
                    3104 $CellContext`k^2 $CellContext`\[Gamma]$$^2 - 
                    1536 $CellContext`k^3 $CellContext`\[Gamma]$$^2 - 
                    12 $CellContext`\[Gamma]$$^3 - 
                    512 $CellContext`k $CellContext`\[Gamma]$$^3 + 
                    128 $CellContext`k^2 $CellContext`\[Gamma]$$^3 + 
                    22 $CellContext`\[Gamma]$$^4 + 
                    712 $CellContext`k $CellContext`\[Gamma]$$^4 - 
                    3504 $CellContext`k^2 $CellContext`\[Gamma]$$^4 + 
                    1728 $CellContext`k^3 $CellContext`\[Gamma]$$^4 + 
                    6 $CellContext`\[Gamma]$$^5 + 
                    336 $CellContext`k $CellContext`\[Gamma]$$^5 - 
                    84 $CellContext`k^2 $CellContext`\[Gamma]$$^5 - 
                    6 $CellContext`\[Gamma]$$^6 - 
                    390 $CellContext`k $CellContext`\[Gamma]$$^6 + 
                    1874 $CellContext`k^2 $CellContext`\[Gamma]$$^6 - 
                    928 $CellContext`k^3 $CellContext`\[Gamma]$$^6 - 
                    2 $CellContext`\[Gamma]$$^7 - 
                    88 $CellContext`k $CellContext`\[Gamma]$$^7 + 
                    22 $CellContext`k^2 $CellContext`\[Gamma]$$^7 + 
                    109 $CellContext`k $CellContext`\[Gamma]$$^8 - 
                    518 $CellContext`k^2 $CellContext`\[Gamma]$$^8 + 
                    258 $CellContext`k^3 $CellContext`\[Gamma]$$^8 + 
                    8 $CellContext`k $CellContext`\[Gamma]$$^9 - 
                    2 $CellContext`k^2 $CellContext`\[Gamma]$$^9 - 
                    16 $CellContext`k $CellContext`\[Gamma]$$^10 + 
                    72 $CellContext`k^2 $CellContext`\[Gamma]$$^10 - 
                    36 $CellContext`k^3 $CellContext`\[Gamma]$$^10 + \
$CellContext`k $CellContext`\[Gamma]$$^12 - 
                    4 $CellContext`k^2 $CellContext`\[Gamma]$$^12 + 
                    2 $CellContext`k^3 $CellContext`\[Gamma]$$^12) + 
                    108 $CellContext`\[Gamma]$$^4 (128 $CellContext`k - 
                    1024 $CellContext`k^2 + 512 $CellContext`k^3 + 
                    16 $CellContext`\[Gamma]$$ + 
                    256 $CellContext`k $CellContext`\[Gamma]$$ - 
                    64 $CellContext`k^2 $CellContext`\[Gamma]$$ - 
                    24 $CellContext`\[Gamma]$$^2 - 
                    544 $CellContext`k $CellContext`\[Gamma]$$^2 + 
                    3104 $CellContext`k^2 $CellContext`\[Gamma]$$^2 - 
                    1536 $CellContext`k^3 $CellContext`\[Gamma]$$^2 - 
                    12 $CellContext`\[Gamma]$$^3 - 
                    512 $CellContext`k $CellContext`\[Gamma]$$^3 + 
                    128 $CellContext`k^2 $CellContext`\[Gamma]$$^3 + 
                    22 $CellContext`\[Gamma]$$^4 + 
                    712 $CellContext`k $CellContext`\[Gamma]$$^4 - 
                    3504 $CellContext`k^2 $CellContext`\[Gamma]$$^4 + 
                    1728 $CellContext`k^3 $CellContext`\[Gamma]$$^4 + 
                    6 $CellContext`\[Gamma]$$^5 + 
                    336 $CellContext`k $CellContext`\[Gamma]$$^5 - 
                    84 $CellContext`k^2 $CellContext`\[Gamma]$$^5 - 
                    6 $CellContext`\[Gamma]$$^6 - 
                    390 $CellContext`k $CellContext`\[Gamma]$$^6 + 
                    1874 $CellContext`k^2 $CellContext`\[Gamma]$$^6 - 
                    928 $CellContext`k^3 $CellContext`\[Gamma]$$^6 - 
                    2 $CellContext`\[Gamma]$$^7 - 
                    88 $CellContext`k $CellContext`\[Gamma]$$^7 + 
                    22 $CellContext`k^2 $CellContext`\[Gamma]$$^7 + 
                    109 $CellContext`k $CellContext`\[Gamma]$$^8 - 
                    518 $CellContext`k^2 $CellContext`\[Gamma]$$^8 + 
                    258 $CellContext`k^3 $CellContext`\[Gamma]$$^8 + 
                    8 $CellContext`k $CellContext`\[Gamma]$$^9 - 
                    2 $CellContext`k^2 $CellContext`\[Gamma]$$^9 - 
                    16 $CellContext`k $CellContext`\[Gamma]$$^10 + 
                    72 $CellContext`k^2 $CellContext`\[Gamma]$$^10 - 
                    36 $CellContext`k^3 $CellContext`\[Gamma]$$^10 + \
$CellContext`k $CellContext`\[Gamma]$$^12 - 
                    4 $CellContext`k^2 $CellContext`\[Gamma]$$^12 + 
                    2 $CellContext`k^3 $CellContext`\[Gamma]$$^12)^2 + 
                    432 ((-16) $CellContext`k $CellContext`\[Gamma]$$^2 + 
                    2 $CellContext`\[Gamma]$$^3 - $CellContext`\[Gamma]$$^4 + 
                    24 $CellContext`k $CellContext`\[Gamma]$$^4 - \
$CellContext`\[Gamma]$$^5 - 
                    9 $CellContext`k $CellContext`\[Gamma]$$^6 + \
$CellContext`k $CellContext`\[Gamma]$$^8)^2 (16 - 256 $CellContext`k + 
                    1152 $CellContext`k^2 - 1024 $CellContext`k^3 + 
                    256 $CellContext`k^4 - 32 $CellContext`\[Gamma]$$ - 
                    256 $CellContext`k $CellContext`\[Gamma]$$ + 
                    128 $CellContext`k^2 $CellContext`\[Gamma]$$ - 
                    8 $CellContext`\[Gamma]$$^2 + 
                    960 $CellContext`k $CellContext`\[Gamma]$$^2 - 
                    3552 $CellContext`k^2 $CellContext`\[Gamma]$$^2 + 
                    3072 $CellContext`k^3 $CellContext`\[Gamma]$$^2 - 
                    768 $CellContext`k^4 $CellContext`\[Gamma]$$^2 + 
                    40 $CellContext`\[Gamma]$$^3 + 
                    512 $CellContext`k $CellContext`\[Gamma]$$^3 - 
                    256 $CellContext`k^2 $CellContext`\[Gamma]$$^3 + \
$CellContext`\[Gamma]$$^4 - 1232 $CellContext`k $CellContext`\[Gamma]$$^4 + 
                    4072 $CellContext`k^2 $CellContext`\[Gamma]$$^4 - 
                    3456 $CellContext`k^3 $CellContext`\[Gamma]$$^4 + 
                    864 $CellContext`k^4 $CellContext`\[Gamma]$$^4 - 
                    20 $CellContext`\[Gamma]$$^5 - 
                    336 $CellContext`k $CellContext`\[Gamma]$$^5 + 
                    168 $CellContext`k^2 $CellContext`\[Gamma]$$^5 - 
                    2 $CellContext`\[Gamma]$$^6 + 
                    708 $CellContext`k $CellContext`\[Gamma]$$^6 - 
                    2210 $CellContext`k^2 $CellContext`\[Gamma]$$^6 + 
                    1856 $CellContext`k^3 $CellContext`\[Gamma]$$^6 - 
                    464 $CellContext`k^4 $CellContext`\[Gamma]$$^6 + 
                    4 $CellContext`\[Gamma]$$^7 + 
                    88 $CellContext`k $CellContext`\[Gamma]$$^7 - 
                    44 $CellContext`k^2 $CellContext`\[Gamma]$$^7 + \
$CellContext`\[Gamma]$$^8 - 210 $CellContext`k $CellContext`\[Gamma]$$^8 + 
                    621 $CellContext`k^2 $CellContext`\[Gamma]$$^8 - 
                    516 $CellContext`k^3 $CellContext`\[Gamma]$$^8 + 
                    129 $CellContext`k^4 $CellContext`\[Gamma]$$^8 - 
                    8 $CellContext`k $CellContext`\[Gamma]$$^9 + 
                    4 $CellContext`k^2 $CellContext`\[Gamma]$$^9 + 
                    32 $CellContext`k $CellContext`\[Gamma]$$^10 - 
                    88 $CellContext`k^2 $CellContext`\[Gamma]$$^10 + 
                    72 $CellContext`k^3 $CellContext`\[Gamma]$$^10 - 
                    18 $CellContext`k^4 $CellContext`\[Gamma]$$^10 - 
                    2 $CellContext`k $CellContext`\[Gamma]$$^12 + 
                    5 $CellContext`k^2 $CellContext`\[Gamma]$$^12 - 
                    4 $CellContext`k^3 $CellContext`\[Gamma]$$^12 + \
$CellContext`k^4 $CellContext`\[Gamma]$$^12) - 
                    144 $CellContext`\[Gamma]$$^4 (512 $CellContext`k^2 - 
                    128 $CellContext`k $CellContext`\[Gamma]$$ + 
                    12 $CellContext`\[Gamma]$$^2 + 
                    96 $CellContext`k $CellContext`\[Gamma]$$^2 - 
                    1552 $CellContext`k^2 $CellContext`\[Gamma]$$^2 - 
                    12 $CellContext`\[Gamma]$$^3 + 
                    256 $CellContext`k $CellContext`\[Gamma]$$^3 - 
                    9 $CellContext`\[Gamma]$$^4 - 
                    144 $CellContext`k $CellContext`\[Gamma]$$^4 + 
                    1752 $CellContext`k^2 $CellContext`\[Gamma]$$^4 + 
                    6 $CellContext`\[Gamma]$$^5 - 
                    168 $CellContext`k $CellContext`\[Gamma]$$^5 + 
                    3 $CellContext`\[Gamma]$$^6 + 
                    54 $CellContext`k $CellContext`\[Gamma]$$^6 - 
                    937 $CellContext`k^2 $CellContext`\[Gamma]$$^6 + 
                    44 $CellContext`k $CellContext`\[Gamma]$$^7 - 
                    6 $CellContext`k $CellContext`\[Gamma]$$^8 + 
                    259 $CellContext`k^2 $CellContext`\[Gamma]$$^8 - 
                    4 $CellContext`k $CellContext`\[Gamma]$$^9 - 
                    36 $CellContext`k^2 $CellContext`\[Gamma]$$^10 + 
                    2 $CellContext`k^2 $CellContext`\[Gamma]$$^12) (16 - 
                    256 $CellContext`k + 1152 $CellContext`k^2 - 
                    1024 $CellContext`k^3 + 256 $CellContext`k^4 - 
                    32 $CellContext`\[Gamma]$$ - 
                    256 $CellContext`k $CellContext`\[Gamma]$$ + 
                    128 $CellContext`k^2 $CellContext`\[Gamma]$$ - 
                    8 $CellContext`\[Gamma]$$^2 + 
                    960 $CellContext`k $CellContext`\[Gamma]$$^2 - 
                    3552 $CellContext`k^2 $CellContext`\[Gamma]$$^2 + 
                    3072 $CellContext`k^3 $CellContext`\[Gamma]$$^2 - 
                    768 $CellContext`k^4 $CellContext`\[Gamma]$$^2 + 
                    40 $CellContext`\[Gamma]$$^3 + 
                    512 $CellContext`k $CellContext`\[Gamma]$$^3 - 
                    256 $CellContext`k^2 $CellContext`\[Gamma]$$^3 + \
$CellContext`\[Gamma]$$^4 - 1232 $CellContext`k $CellContext`\[Gamma]$$^4 + 
                    4072 $CellContext`k^2 $CellContext`\[Gamma]$$^4 - 
                    3456 $CellContext`k^3 $CellContext`\[Gamma]$$^4 + 
                    864 $CellContext`k^4 $CellContext`\[Gamma]$$^4 - 
                    20 $CellContext`\[Gamma]$$^5 - 
                    336 $CellContext`k $CellContext`\[Gamma]$$^5 + 
                    168 $CellContext`k^2 $CellContext`\[Gamma]$$^5 - 
                    2 $CellContext`\[Gamma]$$^6 + 
                    708 $CellContext`k $CellContext`\[Gamma]$$^6 - 
                    2210 $CellContext`k^2 $CellContext`\[Gamma]$$^6 + 
                    1856 $CellContext`k^3 $CellContext`\[Gamma]$$^6 - 
                    464 $CellContext`k^4 $CellContext`\[Gamma]$$^6 + 
                    4 $CellContext`\[Gamma]$$^7 + 
                    88 $CellContext`k $CellContext`\[Gamma]$$^7 - 
                    44 $CellContext`k^2 $CellContext`\[Gamma]$$^7 + \
$CellContext`\[Gamma]$$^8 - 210 $CellContext`k $CellContext`\[Gamma]$$^8 + 
                    621 $CellContext`k^2 $CellContext`\[Gamma]$$^8 - 
                    516 $CellContext`k^3 $CellContext`\[Gamma]$$^8 + 
                    129 $CellContext`k^4 $CellContext`\[Gamma]$$^8 - 
                    8 $CellContext`k $CellContext`\[Gamma]$$^9 + 
                    4 $CellContext`k^2 $CellContext`\[Gamma]$$^9 + 
                    32 $CellContext`k $CellContext`\[Gamma]$$^10 - 
                    88 $CellContext`k^2 $CellContext`\[Gamma]$$^10 + 
                    72 $CellContext`k^3 $CellContext`\[Gamma]$$^10 - 
                    18 $CellContext`k^4 $CellContext`\[Gamma]$$^10 - 
                    2 $CellContext`k $CellContext`\[Gamma]$$^12 + 
                    5 $CellContext`k^2 $CellContext`\[Gamma]$$^12 - 
                    4 $CellContext`k^3 $CellContext`\[Gamma]$$^12 + \
$CellContext`k^4 $CellContext`\[Gamma]$$^12))^2)^Rational[1, 2])^
                Rational[-1, 3] + 
              Rational[-1, 3] 
               2^Rational[-1, 3] $CellContext`\[Gamma]$$^(-4) (
                 16 (512 $CellContext`k^2 - 
                    128 $CellContext`k $CellContext`\[Gamma]$$ + 
                    12 $CellContext`\[Gamma]$$^2 + 
                    96 $CellContext`k $CellContext`\[Gamma]$$^2 - 
                    1552 $CellContext`k^2 $CellContext`\[Gamma]$$^2 - 
                    12 $CellContext`\[Gamma]$$^3 + 
                    256 $CellContext`k $CellContext`\[Gamma]$$^3 - 
                    9 $CellContext`\[Gamma]$$^4 - 
                    144 $CellContext`k $CellContext`\[Gamma]$$^4 + 
                    1752 $CellContext`k^2 $CellContext`\[Gamma]$$^4 + 
                    6 $CellContext`\[Gamma]$$^5 - 
                    168 $CellContext`k $CellContext`\[Gamma]$$^5 + 
                    3 $CellContext`\[Gamma]$$^6 + 
                    54 $CellContext`k $CellContext`\[Gamma]$$^6 - 
                    937 $CellContext`k^2 $CellContext`\[Gamma]$$^6 + 
                    44 $CellContext`k $CellContext`\[Gamma]$$^7 - 
                    6 $CellContext`k $CellContext`\[Gamma]$$^8 + 
                    259 $CellContext`k^2 $CellContext`\[Gamma]$$^8 - 
                    4 $CellContext`k $CellContext`\[Gamma]$$^9 - 
                    36 $CellContext`k^2 $CellContext`\[Gamma]$$^10 + 
                    2 $CellContext`k^2 $CellContext`\[Gamma]$$^12)^3 - 
                 144 ((-16) $CellContext`k $CellContext`\[Gamma]$$^2 + 
                  2 $CellContext`\[Gamma]$$^3 - $CellContext`\[Gamma]$$^4 + 
                  24 $CellContext`k $CellContext`\[Gamma]$$^4 - $CellContext`\
\[Gamma]$$^5 - 
                  9 $CellContext`k $CellContext`\[Gamma]$$^6 + $CellContext`k \
$CellContext`\[Gamma]$$^8) (512 $CellContext`k^2 - 
                  128 $CellContext`k $CellContext`\[Gamma]$$ + 
                  12 $CellContext`\[Gamma]$$^2 + 
                  96 $CellContext`k $CellContext`\[Gamma]$$^2 - 
                  1552 $CellContext`k^2 $CellContext`\[Gamma]$$^2 - 
                  12 $CellContext`\[Gamma]$$^3 + 
                  256 $CellContext`k $CellContext`\[Gamma]$$^3 - 
                  9 $CellContext`\[Gamma]$$^4 - 
                  144 $CellContext`k $CellContext`\[Gamma]$$^4 + 
                  1752 $CellContext`k^2 $CellContext`\[Gamma]$$^4 + 
                  6 $CellContext`\[Gamma]$$^5 - 
                  168 $CellContext`k $CellContext`\[Gamma]$$^5 + 
                  3 $CellContext`\[Gamma]$$^6 + 
                  54 $CellContext`k $CellContext`\[Gamma]$$^6 - 
                  937 $CellContext`k^2 $CellContext`\[Gamma]$$^6 + 
                  44 $CellContext`k $CellContext`\[Gamma]$$^7 - 
                  6 $CellContext`k $CellContext`\[Gamma]$$^8 + 
                  259 $CellContext`k^2 $CellContext`\[Gamma]$$^8 - 
                  4 $CellContext`k $CellContext`\[Gamma]$$^9 - 
                  36 $CellContext`k^2 $CellContext`\[Gamma]$$^10 + 
                  2 $CellContext`k^2 $CellContext`\[Gamma]$$^12) (
                  128 $CellContext`k - 1024 $CellContext`k^2 + 
                  512 $CellContext`k^3 + 16 $CellContext`\[Gamma]$$ + 
                  256 $CellContext`k $CellContext`\[Gamma]$$ - 
                  64 $CellContext`k^2 $CellContext`\[Gamma]$$ - 
                  24 $CellContext`\[Gamma]$$^2 - 
                  544 $CellContext`k $CellContext`\[Gamma]$$^2 + 
                  3104 $CellContext`k^2 $CellContext`\[Gamma]$$^2 - 
                  1536 $CellContext`k^3 $CellContext`\[Gamma]$$^2 - 
                  12 $CellContext`\[Gamma]$$^3 - 
                  512 $CellContext`k $CellContext`\[Gamma]$$^3 + 
                  128 $CellContext`k^2 $CellContext`\[Gamma]$$^3 + 
                  22 $CellContext`\[Gamma]$$^4 + 
                  712 $CellContext`k $CellContext`\[Gamma]$$^4 - 
                  3504 $CellContext`k^2 $CellContext`\[Gamma]$$^4 + 
                  1728 $CellContext`k^3 $CellContext`\[Gamma]$$^4 + 
                  6 $CellContext`\[Gamma]$$^5 + 
                  336 $CellContext`k $CellContext`\[Gamma]$$^5 - 
                  84 $CellContext`k^2 $CellContext`\[Gamma]$$^5 - 
                  6 $CellContext`\[Gamma]$$^6 - 
                  390 $CellContext`k $CellContext`\[Gamma]$$^6 + 
                  1874 $CellContext`k^2 $CellContext`\[Gamma]$$^6 - 
                  928 $CellContext`k^3 $CellContext`\[Gamma]$$^6 - 
                  2 $CellContext`\[Gamma]$$^7 - 
                  88 $CellContext`k $CellContext`\[Gamma]$$^7 + 
                  22 $CellContext`k^2 $CellContext`\[Gamma]$$^7 + 
                  109 $CellContext`k $CellContext`\[Gamma]$$^8 - 
                  518 $CellContext`k^2 $CellContext`\[Gamma]$$^8 + 
                  258 $CellContext`k^3 $CellContext`\[Gamma]$$^8 + 
                  8 $CellContext`k $CellContext`\[Gamma]$$^9 - 
                  2 $CellContext`k^2 $CellContext`\[Gamma]$$^9 - 
                  16 $CellContext`k $CellContext`\[Gamma]$$^10 + 
                  72 $CellContext`k^2 $CellContext`\[Gamma]$$^10 - 
                  36 $CellContext`k^3 $CellContext`\[Gamma]$$^10 + \
$CellContext`k $CellContext`\[Gamma]$$^12 - 
                  4 $CellContext`k^2 $CellContext`\[Gamma]$$^12 + 
                  2 $CellContext`k^3 $CellContext`\[Gamma]$$^12) + 
                 108 $CellContext`\[Gamma]$$^4 (128 $CellContext`k - 
                    1024 $CellContext`k^2 + 512 $CellContext`k^3 + 
                    16 $CellContext`\[Gamma]$$ + 
                    256 $CellContext`k $CellContext`\[Gamma]$$ - 
                    64 $CellContext`k^2 $CellContext`\[Gamma]$$ - 
                    24 $CellContext`\[Gamma]$$^2 - 
                    544 $CellContext`k $CellContext`\[Gamma]$$^2 + 
                    3104 $CellContext`k^2 $CellContext`\[Gamma]$$^2 - 
                    1536 $CellContext`k^3 $CellContext`\[Gamma]$$^2 - 
                    12 $CellContext`\[Gamma]$$^3 - 
                    512 $CellContext`k $CellContext`\[Gamma]$$^3 + 
                    128 $CellContext`k^2 $CellContext`\[Gamma]$$^3 + 
                    22 $CellContext`\[Gamma]$$^4 + 
                    712 $CellContext`k $CellContext`\[Gamma]$$^4 - 
                    3504 $CellContext`k^2 $CellContext`\[Gamma]$$^4 + 
                    1728 $CellContext`k^3 $CellContext`\[Gamma]$$^4 + 
                    6 $CellContext`\[Gamma]$$^5 + 
                    336 $CellContext`k $CellContext`\[Gamma]$$^5 - 
                    84 $CellContext`k^2 $CellContext`\[Gamma]$$^5 - 
                    6 $CellContext`\[Gamma]$$^6 - 
                    390 $CellContext`k $CellContext`\[Gamma]$$^6 + 
                    1874 $CellContext`k^2 $CellContext`\[Gamma]$$^6 - 
                    928 $CellContext`k^3 $CellContext`\[Gamma]$$^6 - 
                    2 $CellContext`\[Gamma]$$^7 - 
                    88 $CellContext`k $CellContext`\[Gamma]$$^7 + 
                    22 $CellContext`k^2 $CellContext`\[Gamma]$$^7 + 
                    109 $CellContext`k $CellContext`\[Gamma]$$^8 - 
                    518 $CellContext`k^2 $CellContext`\[Gamma]$$^8 + 
                    258 $CellContext`k^3 $CellContext`\[Gamma]$$^8 + 
                    8 $CellContext`k $CellContext`\[Gamma]$$^9 - 
                    2 $CellContext`k^2 $CellContext`\[Gamma]$$^9 - 
                    16 $CellContext`k $CellContext`\[Gamma]$$^10 + 
                    72 $CellContext`k^2 $CellContext`\[Gamma]$$^10 - 
                    36 $CellContext`k^3 $CellContext`\[Gamma]$$^10 + \
$CellContext`k $CellContext`\[Gamma]$$^12 - 
                    4 $CellContext`k^2 $CellContext`\[Gamma]$$^12 + 
                    2 $CellContext`k^3 $CellContext`\[Gamma]$$^12)^2 + 
                 432 ((-16) $CellContext`k $CellContext`\[Gamma]$$^2 + 
                    2 $CellContext`\[Gamma]$$^3 - $CellContext`\[Gamma]$$^4 + 
                    24 $CellContext`k $CellContext`\[Gamma]$$^4 - \
$CellContext`\[Gamma]$$^5 - 
                    9 $CellContext`k $CellContext`\[Gamma]$$^6 + \
$CellContext`k $CellContext`\[Gamma]$$^8)^2 (16 - 256 $CellContext`k + 
                   1152 $CellContext`k^2 - 1024 $CellContext`k^3 + 
                   256 $CellContext`k^4 - 32 $CellContext`\[Gamma]$$ - 
                   256 $CellContext`k $CellContext`\[Gamma]$$ + 
                   128 $CellContext`k^2 $CellContext`\[Gamma]$$ - 
                   8 $CellContext`\[Gamma]$$^2 + 
                   960 $CellContext`k $CellContext`\[Gamma]$$^2 - 
                   3552 $CellContext`k^2 $CellContext`\[Gamma]$$^2 + 
                   3072 $CellContext`k^3 $CellContext`\[Gamma]$$^2 - 
                   768 $CellContext`k^4 $CellContext`\[Gamma]$$^2 + 
                   40 $CellContext`\[Gamma]$$^3 + 
                   512 $CellContext`k $CellContext`\[Gamma]$$^3 - 
                   256 $CellContext`k^2 $CellContext`\[Gamma]$$^3 + \
$CellContext`\[Gamma]$$^4 - 1232 $CellContext`k $CellContext`\[Gamma]$$^4 + 
                   4072 $CellContext`k^2 $CellContext`\[Gamma]$$^4 - 
                   3456 $CellContext`k^3 $CellContext`\[Gamma]$$^4 + 
                   864 $CellContext`k^4 $CellContext`\[Gamma]$$^4 - 
                   20 $CellContext`\[Gamma]$$^5 - 
                   336 $CellContext`k $CellContext`\[Gamma]$$^5 + 
                   168 $CellContext`k^2 $CellContext`\[Gamma]$$^5 - 
                   2 $CellContext`\[Gamma]$$^6 + 
                   708 $CellContext`k $CellContext`\[Gamma]$$^6 - 
                   2210 $CellContext`k^2 $CellContext`\[Gamma]$$^6 + 
                   1856 $CellContext`k^3 $CellContext`\[Gamma]$$^6 - 
                   464 $CellContext`k^4 $CellContext`\[Gamma]$$^6 + 
                   4 $CellContext`\[Gamma]$$^7 + 
                   88 $CellContext`k $CellContext`\[Gamma]$$^7 - 
                   44 $CellContext`k^2 $CellContext`\[Gamma]$$^7 + \
$CellContext`\[Gamma]$$^8 - 210 $CellContext`k $CellContext`\[Gamma]$$^8 + 
                   621 $CellContext`k^2 $CellContext`\[Gamma]$$^8 - 
                   516 $CellContext`k^3 $CellContext`\[Gamma]$$^8 + 
                   129 $CellContext`k^4 $CellContext`\[Gamma]$$^8 - 
                   8 $CellContext`k $CellContext`\[Gamma]$$^9 + 
                   4 $CellContext`k^2 $CellContext`\[Gamma]$$^9 + 
                   32 $CellContext`k $CellContext`\[Gamma]$$^10 - 
                   88 $CellContext`k^2 $CellContext`\[Gamma]$$^10 + 
                   72 $CellContext`k^3 $CellContext`\[Gamma]$$^10 - 
                   18 $CellContext`k^4 $CellContext`\[Gamma]$$^10 - 
                   2 $CellContext`k $CellContext`\[Gamma]$$^12 + 
                   5 $CellContext`k^2 $CellContext`\[Gamma]$$^12 - 
                   4 $CellContext`k^3 $CellContext`\[Gamma]$$^12 + \
$CellContext`k^4 $CellContext`\[Gamma]$$^12) - 
                 144 $CellContext`\[Gamma]$$^4 (512 $CellContext`k^2 - 
                  128 $CellContext`k $CellContext`\[Gamma]$$ + 
                  12 $CellContext`\[Gamma]$$^2 + 
                  96 $CellContext`k $CellContext`\[Gamma]$$^2 - 
                  1552 $CellContext`k^2 $CellContext`\[Gamma]$$^2 - 
                  12 $CellContext`\[Gamma]$$^3 + 
                  256 $CellContext`k $CellContext`\[Gamma]$$^3 - 
                  9 $CellContext`\[Gamma]$$^4 - 
                  144 $CellContext`k $CellContext`\[Gamma]$$^4 + 
                  1752 $CellContext`k^2 $CellContext`\[Gamma]$$^4 + 
                  6 $CellContext`\[Gamma]$$^5 - 
                  168 $CellContext`k $CellContext`\[Gamma]$$^5 + 
                  3 $CellContext`\[Gamma]$$^6 + 
                  54 $CellContext`k $CellContext`\[Gamma]$$^6 - 
                  937 $CellContext`k^2 $CellContext`\[Gamma]$$^6 + 
                  44 $CellContext`k $CellContext`\[Gamma]$$^7 - 
                  6 $CellContext`k $CellContext`\[Gamma]$$^8 + 
                  259 $CellContext`k^2 $CellContext`\[Gamma]$$^8 - 
                  4 $CellContext`k $CellContext`\[Gamma]$$^9 - 
                  36 $CellContext`k^2 $CellContext`\[Gamma]$$^10 + 
                  2 $CellContext`k^2 $CellContext`\[Gamma]$$^12) (16 - 
                  256 $CellContext`k + 1152 $CellContext`k^2 - 
                  1024 $CellContext`k^3 + 256 $CellContext`k^4 - 
                  32 $CellContext`\[Gamma]$$ - 
                  256 $CellContext`k $CellContext`\[Gamma]$$ + 
                  128 $CellContext`k^2 $CellContext`\[Gamma]$$ - 
                  8 $CellContext`\[Gamma]$$^2 + 
                  960 $CellContext`k $CellContext`\[Gamma]$$^2 - 
                  3552 $CellContext`k^2 $CellContext`\[Gamma]$$^2 + 
                  3072 $CellContext`k^3 $CellContext`\[Gamma]$$^2 - 
                  768 $CellContext`k^4 $CellContext`\[Gamma]$$^2 + 
                  40 $CellContext`\[Gamma]$$^3 + 
                  512 $CellContext`k $CellContext`\[Gamma]$$^3 - 
                  256 $CellContext`k^2 $CellContext`\[Gamma]$$^3 + \
$CellContext`\[Gamma]$$^4 - 1232 $CellContext`k $CellContext`\[Gamma]$$^4 + 
                  4072 $CellContext`k^2 $CellContext`\[Gamma]$$^4 - 
                  3456 $CellContext`k^3 $CellContext`\[Gamma]$$^4 + 
                  864 $CellContext`k^4 $CellContext`\[Gamma]$$^4 - 
                  20 $CellContext`\[Gamma]$$^5 - 
                  336 $CellContext`k $CellContext`\[Gamma]$$^5 + 
                  168 $CellContext`k^2 $CellContext`\[Gamma]$$^5 - 
                  2 $CellContext`\[Gamma]$$^6 + 
                  708 $CellContext`k $CellContext`\[Gamma]$$^6 - 
                  2210 $CellContext`k^2 $CellContext`\[Gamma]$$^6 + 
                  1856 $CellContext`k^3 $CellContext`\[Gamma]$$^6 - 
                  464 $CellContext`k^4 $CellContext`\[Gamma]$$^6 + 
                  4 $CellContext`\[Gamma]$$^7 + 
                  88 $CellContext`k $CellContext`\[Gamma]$$^7 - 
                  44 $CellContext`k^2 $CellContext`\[Gamma]$$^7 + \
$CellContext`\[Gamma]$$^8 - 210 $CellContext`k $CellContext`\[Gamma]$$^8 + 
                  621 $CellContext`k^2 $CellContext`\[Gamma]$$^8 - 
                  516 $CellContext`k^3 $CellContext`\[Gamma]$$^8 + 
                  129 $CellContext`k^4 $CellContext`\[Gamma]$$^8 - 
                  8 $CellContext`k $CellContext`\[Gamma]$$^9 + 
                  4 $CellContext`k^2 $CellContext`\[Gamma]$$^9 + 
                  32 $CellContext`k $CellContext`\[Gamma]$$^10 - 
                  88 $CellContext`k^2 $CellContext`\[Gamma]$$^10 + 
                  72 $CellContext`k^3 $CellContext`\[Gamma]$$^10 - 
                  18 $CellContext`k^4 $CellContext`\[Gamma]$$^10 - 
                  2 $CellContext`k $CellContext`\[Gamma]$$^12 + 
                  5 $CellContext`k^2 $CellContext`\[Gamma]$$^12 - 
                  4 $CellContext`k^3 $CellContext`\[Gamma]$$^12 + \
$CellContext`k^4 $CellContext`\[Gamma]$$^12) + ((-4) (
                    1048576 $CellContext`k^4 - 
                    524288 $CellContext`k^3 $CellContext`\[Gamma]$$ + 
                    163840 $CellContext`k^2 $CellContext`\[Gamma]$$^2 - 
                    6160384 $CellContext`k^4 $CellContext`\[Gamma]$$^2 - 
                    12288 $CellContext`k $CellContext`\[Gamma]$$^3 + 
                    2588672 $CellContext`k^3 $CellContext`\[Gamma]$$^3 - 
                    701440 $CellContext`k^2 $CellContext`\[Gamma]$$^4 + 
                    15929344 $CellContext`k^4 $CellContext`\[Gamma]$$^4 + 
                    43008 $CellContext`k $CellContext`\[Gamma]$$^5 - 
                    5488640 $CellContext`k^3 $CellContext`\[Gamma]$$^5 + 
                    1254400 $CellContext`k^2 $CellContext`\[Gamma]$$^6 - 
                    23941120 $CellContext`k^4 $CellContext`\[Gamma]$$^6 - 
                    59904 $CellContext`k $CellContext`\[Gamma]$$^7 + 
                    6574080 $CellContext`k^3 $CellContext`\[Gamma]$$^7 - 
                    1226624 $CellContext`k^2 $CellContext`\[Gamma]$$^8 + 
                    23287296 $CellContext`k^4 $CellContext`\[Gamma]$$^8 + 
                    43008 $CellContext`k $CellContext`\[Gamma]$$^9 - 
                    4929536 $CellContext`k^3 $CellContext`\[Gamma]$$^9 + 
                    723392 $CellContext`k^2 $CellContext`\[Gamma]$$^10 - 
                    15458048 $CellContext`k^4 $CellContext`\[Gamma]$$^10 - 
                    17328 $CellContext`k $CellContext`\[Gamma]$$^11 + 
                    2423680 $CellContext`k^3 $CellContext`\[Gamma]$$^11 - 
                    267956 $CellContext`k^2 $CellContext`\[Gamma]$$^12 + 
                    7194384 $CellContext`k^4 $CellContext`\[Gamma]$$^12 + 
                    3960 $CellContext`k $CellContext`\[Gamma]$$^13 - 
                    793920 $CellContext`k^3 $CellContext`\[Gamma]$$^13 + 
                    62656 $CellContext`k^2 $CellContext`\[Gamma]$$^14 - 
                    2371584 $CellContext`k^4 $CellContext`\[Gamma]$$^14 - 
                    480 $CellContext`k $CellContext`\[Gamma]$$^15 + 
                    171712 $CellContext`k^3 $CellContext`\[Gamma]$$^15 - 
                    8956 $CellContext`k^2 $CellContext`\[Gamma]$$^16 + 
                    551104 $CellContext`k^4 $CellContext`\[Gamma]$$^16 + 
                    24 $CellContext`k $CellContext`\[Gamma]$$^17 - 
                    23552 $CellContext`k^3 $CellContext`\[Gamma]$$^17 + 
                    712 $CellContext`k^2 $CellContext`\[Gamma]$$^18 - 
                    88288 $CellContext`k^4 $CellContext`\[Gamma]$$^18 + 
                    1856 $CellContext`k^3 $CellContext`\[Gamma]$$^19 - 
                    24 $CellContext`k^2 $CellContext`\[Gamma]$$^20 + 
                    9280 $CellContext`k^4 $CellContext`\[Gamma]$$^20 - 
                    64 $CellContext`k^3 $CellContext`\[Gamma]$$^21 - 
                    576 $CellContext`k^4 $CellContext`\[Gamma]$$^22 + 
                    16 $CellContext`k^4 $CellContext`\[Gamma]$$^24)^3 + (
                    16 (512 $CellContext`k^2 - 
                    128 $CellContext`k $CellContext`\[Gamma]$$ + 
                    12 $CellContext`\[Gamma]$$^2 + 
                    96 $CellContext`k $CellContext`\[Gamma]$$^2 - 
                    1552 $CellContext`k^2 $CellContext`\[Gamma]$$^2 - 
                    12 $CellContext`\[Gamma]$$^3 + 
                    256 $CellContext`k $CellContext`\[Gamma]$$^3 - 
                    9 $CellContext`\[Gamma]$$^4 - 
                    144 $CellContext`k $CellContext`\[Gamma]$$^4 + 
                    1752 $CellContext`k^2 $CellContext`\[Gamma]$$^4 + 
                    6 $CellContext`\[Gamma]$$^5 - 
                    168 $CellContext`k $CellContext`\[Gamma]$$^5 + 
                    3 $CellContext`\[Gamma]$$^6 + 
                    54 $CellContext`k $CellContext`\[Gamma]$$^6 - 
                    937 $CellContext`k^2 $CellContext`\[Gamma]$$^6 + 
                    44 $CellContext`k $CellContext`\[Gamma]$$^7 - 
                    6 $CellContext`k $CellContext`\[Gamma]$$^8 + 
                    259 $CellContext`k^2 $CellContext`\[Gamma]$$^8 - 
                    4 $CellContext`k $CellContext`\[Gamma]$$^9 - 
                    36 $CellContext`k^2 $CellContext`\[Gamma]$$^10 + 
                    2 $CellContext`k^2 $CellContext`\[Gamma]$$^12)^3 - 
                    144 ((-16) $CellContext`k $CellContext`\[Gamma]$$^2 + 
                    2 $CellContext`\[Gamma]$$^3 - $CellContext`\[Gamma]$$^4 + 
                    24 $CellContext`k $CellContext`\[Gamma]$$^4 - \
$CellContext`\[Gamma]$$^5 - 
                    9 $CellContext`k $CellContext`\[Gamma]$$^6 + \
$CellContext`k $CellContext`\[Gamma]$$^8) (512 $CellContext`k^2 - 
                    128 $CellContext`k $CellContext`\[Gamma]$$ + 
                    12 $CellContext`\[Gamma]$$^2 + 
                    96 $CellContext`k $CellContext`\[Gamma]$$^2 - 
                    1552 $CellContext`k^2 $CellContext`\[Gamma]$$^2 - 
                    12 $CellContext`\[Gamma]$$^3 + 
                    256 $CellContext`k $CellContext`\[Gamma]$$^3 - 
                    9 $CellContext`\[Gamma]$$^4 - 
                    144 $CellContext`k $CellContext`\[Gamma]$$^4 + 
                    1752 $CellContext`k^2 $CellContext`\[Gamma]$$^4 + 
                    6 $CellContext`\[Gamma]$$^5 - 
                    168 $CellContext`k $CellContext`\[Gamma]$$^5 + 
                    3 $CellContext`\[Gamma]$$^6 + 
                    54 $CellContext`k $CellContext`\[Gamma]$$^6 - 
                    937 $CellContext`k^2 $CellContext`\[Gamma]$$^6 + 
                    44 $CellContext`k $CellContext`\[Gamma]$$^7 - 
                    6 $CellContext`k $CellContext`\[Gamma]$$^8 + 
                    259 $CellContext`k^2 $CellContext`\[Gamma]$$^8 - 
                    4 $CellContext`k $CellContext`\[Gamma]$$^9 - 
                    36 $CellContext`k^2 $CellContext`\[Gamma]$$^10 + 
                    2 $CellContext`k^2 $CellContext`\[Gamma]$$^12) (
                    128 $CellContext`k - 1024 $CellContext`k^2 + 
                    512 $CellContext`k^3 + 16 $CellContext`\[Gamma]$$ + 
                    256 $CellContext`k $CellContext`\[Gamma]$$ - 
                    64 $CellContext`k^2 $CellContext`\[Gamma]$$ - 
                    24 $CellContext`\[Gamma]$$^2 - 
                    544 $CellContext`k $CellContext`\[Gamma]$$^2 + 
                    3104 $CellContext`k^2 $CellContext`\[Gamma]$$^2 - 
                    1536 $CellContext`k^3 $CellContext`\[Gamma]$$^2 - 
                    12 $CellContext`\[Gamma]$$^3 - 
                    512 $CellContext`k $CellContext`\[Gamma]$$^3 + 
                    128 $CellContext`k^2 $CellContext`\[Gamma]$$^3 + 
                    22 $CellContext`\[Gamma]$$^4 + 
                    712 $CellContext`k $CellContext`\[Gamma]$$^4 - 
                    3504 $CellContext`k^2 $CellContext`\[Gamma]$$^4 + 
                    1728 $CellContext`k^3 $CellContext`\[Gamma]$$^4 + 
                    6 $CellContext`\[Gamma]$$^5 + 
                    336 $CellContext`k $CellContext`\[Gamma]$$^5 - 
                    84 $CellContext`k^2 $CellContext`\[Gamma]$$^5 - 
                    6 $CellContext`\[Gamma]$$^6 - 
                    390 $CellContext`k $CellContext`\[Gamma]$$^6 + 
                    1874 $CellContext`k^2 $CellContext`\[Gamma]$$^6 - 
                    928 $CellContext`k^3 $CellContext`\[Gamma]$$^6 - 
                    2 $CellContext`\[Gamma]$$^7 - 
                    88 $CellContext`k $CellContext`\[Gamma]$$^7 + 
                    22 $CellContext`k^2 $CellContext`\[Gamma]$$^7 + 
                    109 $CellContext`k $CellContext`\[Gamma]$$^8 - 
                    518 $CellContext`k^2 $CellContext`\[Gamma]$$^8 + 
                    258 $CellContext`k^3 $CellContext`\[Gamma]$$^8 + 
                    8 $CellContext`k $CellContext`\[Gamma]$$^9 - 
                    2 $CellContext`k^2 $CellContext`\[Gamma]$$^9 - 
                    16 $CellContext`k $CellContext`\[Gamma]$$^10 + 
                    72 $CellContext`k^2 $CellContext`\[Gamma]$$^10 - 
                    36 $CellContext`k^3 $CellContext`\[Gamma]$$^10 + \
$CellContext`k $CellContext`\[Gamma]$$^12 - 
                    4 $CellContext`k^2 $CellContext`\[Gamma]$$^12 + 
                    2 $CellContext`k^3 $CellContext`\[Gamma]$$^12) + 
                    108 $CellContext`\[Gamma]$$^4 (128 $CellContext`k - 
                    1024 $CellContext`k^2 + 512 $CellContext`k^3 + 
                    16 $CellContext`\[Gamma]$$ + 
                    256 $CellContext`k $CellContext`\[Gamma]$$ - 
                    64 $CellContext`k^2 $CellContext`\[Gamma]$$ - 
                    24 $CellContext`\[Gamma]$$^2 - 
                    544 $CellContext`k $CellContext`\[Gamma]$$^2 + 
                    3104 $CellContext`k^2 $CellContext`\[Gamma]$$^2 - 
                    1536 $CellContext`k^3 $CellContext`\[Gamma]$$^2 - 
                    12 $CellContext`\[Gamma]$$^3 - 
                    512 $CellContext`k $CellContext`\[Gamma]$$^3 + 
                    128 $CellContext`k^2 $CellContext`\[Gamma]$$^3 + 
                    22 $CellContext`\[Gamma]$$^4 + 
                    712 $CellContext`k $CellContext`\[Gamma]$$^4 - 
                    3504 $CellContext`k^2 $CellContext`\[Gamma]$$^4 + 
                    1728 $CellContext`k^3 $CellContext`\[Gamma]$$^4 + 
                    6 $CellContext`\[Gamma]$$^5 + 
                    336 $CellContext`k $CellContext`\[Gamma]$$^5 - 
                    84 $CellContext`k^2 $CellContext`\[Gamma]$$^5 - 
                    6 $CellContext`\[Gamma]$$^6 - 
                    390 $CellContext`k $CellContext`\[Gamma]$$^6 + 
                    1874 $CellContext`k^2 $CellContext`\[Gamma]$$^6 - 
                    928 $CellContext`k^3 $CellContext`\[Gamma]$$^6 - 
                    2 $CellContext`\[Gamma]$$^7 - 
                    88 $CellContext`k $CellContext`\[Gamma]$$^7 + 
                    22 $CellContext`k^2 $CellContext`\[Gamma]$$^7 + 
                    109 $CellContext`k $CellContext`\[Gamma]$$^8 - 
                    518 $CellContext`k^2 $CellContext`\[Gamma]$$^8 + 
                    258 $CellContext`k^3 $CellContext`\[Gamma]$$^8 + 
                    8 $CellContext`k $CellContext`\[Gamma]$$^9 - 
                    2 $CellContext`k^2 $CellContext`\[Gamma]$$^9 - 
                    16 $CellContext`k $CellContext`\[Gamma]$$^10 + 
                    72 $CellContext`k^2 $CellContext`\[Gamma]$$^10 - 
                    
                    36 $CellContext`k^3 $CellContext`\[Gamma]$$^10 + \
$CellContext`k $CellContext`\[Gamma]$$^12 - 
                    4 $CellContext`k^2 $CellContext`\[Gamma]$$^12 + 
                    2 $CellContext`k^3 $CellContext`\[Gamma]$$^12)^2 + 
                    432 ((-16) $CellContext`k $CellContext`\[Gamma]$$^2 + 
                    2 $CellContext`\[Gamma]$$^3 - $CellContext`\[Gamma]$$^4 + 
                    24 $CellContext`k $CellContext`\[Gamma]$$^4 - \
$CellContext`\[Gamma]$$^5 - 
                    9 $CellContext`k $CellContext`\[Gamma]$$^6 + \
$CellContext`k $CellContext`\[Gamma]$$^8)^2 (16 - 256 $CellContext`k + 
                    1152 $CellContext`k^2 - 1024 $CellContext`k^3 + 
                    256 $CellContext`k^4 - 32 $CellContext`\[Gamma]$$ - 
                    256 $CellContext`k $CellContext`\[Gamma]$$ + 
                    128 $CellContext`k^2 $CellContext`\[Gamma]$$ - 
                    8 $CellContext`\[Gamma]$$^2 + 
                    960 $CellContext`k $CellContext`\[Gamma]$$^2 - 
                    3552 $CellContext`k^2 $CellContext`\[Gamma]$$^2 + 
                    3072 $CellContext`k^3 $CellContext`\[Gamma]$$^2 - 
                    768 $CellContext`k^4 $CellContext`\[Gamma]$$^2 + 
                    40 $CellContext`\[Gamma]$$^3 + 
                    512 $CellContext`k $CellContext`\[Gamma]$$^3 - 
                    256 $CellContext`k^2 $CellContext`\[Gamma]$$^3 + \
$CellContext`\[Gamma]$$^4 - 1232 $CellContext`k $CellContext`\[Gamma]$$^4 + 
                    4072 $CellContext`k^2 $CellContext`\[Gamma]$$^4 - 
                    3456 $CellContext`k^3 $CellContext`\[Gamma]$$^4 + 
                    864 $CellContext`k^4 $CellContext`\[Gamma]$$^4 - 
                    20 $CellContext`\[Gamma]$$^5 - 
                    336 $CellContext`k $CellContext`\[Gamma]$$^5 + 
                    168 $CellContext`k^2 $CellContext`\[Gamma]$$^5 - 
                    2 $CellContext`\[Gamma]$$^6 + 
                    708 $CellContext`k $CellContext`\[Gamma]$$^6 - 
                    2210 $CellContext`k^2 $CellContext`\[Gamma]$$^6 + 
                    1856 $CellContext`k^3 $CellContext`\[Gamma]$$^6 - 
                    464 $CellContext`k^4 $CellContext`\[Gamma]$$^6 + 
                    4 $CellContext`\[Gamma]$$^7 + 
                    88 $CellContext`k $CellContext`\[Gamma]$$^7 - 
                    44 $CellContext`k^2 $CellContext`\[Gamma]$$^7 + \
$CellContext`\[Gamma]$$^8 - 210 $CellContext`k $CellContext`\[Gamma]$$^8 + 
                    621 $CellContext`k^2 $CellContext`\[Gamma]$$^8 - 
                    516 $CellContext`k^3 $CellContext`\[Gamma]$$^8 + 
                    129 $CellContext`k^4 $CellContext`\[Gamma]$$^8 - 
                    8 $CellContext`k $CellContext`\[Gamma]$$^9 + 
                    4 $CellContext`k^2 $CellContext`\[Gamma]$$^9 + 
                    32 $CellContext`k $CellContext`\[Gamma]$$^10 - 
                    88 $CellContext`k^2 $CellContext`\[Gamma]$$^10 + 
                    72 $CellContext`k^3 $CellContext`\[Gamma]$$^10 - 
                    18 $CellContext`k^4 $CellContext`\[Gamma]$$^10 - 
                    2 $CellContext`k $CellContext`\[Gamma]$$^12 + 
                    5 $CellContext`k^2 $CellContext`\[Gamma]$$^12 - 
                    4 $CellContext`k^3 $CellContext`\[Gamma]$$^12 + \
$CellContext`k^4 $CellContext`\[Gamma]$$^12) - 
                    144 $CellContext`\[Gamma]$$^4 (512 $CellContext`k^2 - 
                    128 $CellContext`k $CellContext`\[Gamma]$$ + 
                    12 $CellContext`\[Gamma]$$^2 + 
                    96 $CellContext`k $CellContext`\[Gamma]$$^2 - 
                    1552 $CellContext`k^2 $CellContext`\[Gamma]$$^2 - 
                    12 $CellContext`\[Gamma]$$^3 + 
                    256 $CellContext`k $CellContext`\[Gamma]$$^3 - 
                    9 $CellContext`\[Gamma]$$^4 - 
                    144 $CellContext`k $CellContext`\[Gamma]$$^4 + 
                    1752 $CellContext`k^2 $CellContext`\[Gamma]$$^4 + 
                    6 $CellContext`\[Gamma]$$^5 - 
                    168 $CellContext`k $CellContext`\[Gamma]$$^5 + 
                    3 $CellContext`\[Gamma]$$^6 + 
                    54 $CellContext`k $CellContext`\[Gamma]$$^6 - 
                    937 $CellContext`k^2 $CellContext`\[Gamma]$$^6 + 
                    44 $CellContext`k $CellContext`\[Gamma]$$^7 - 
                    6 $CellContext`k $CellContext`\[Gamma]$$^8 + 
                    259 $CellContext`k^2 $CellContext`\[Gamma]$$^8 - 
                    4 $CellContext`k $CellContext`\[Gamma]$$^9 - 
                    36 $CellContext`k^2 $CellContext`\[Gamma]$$^10 + 
                    2 $CellContext`k^2 $CellContext`\[Gamma]$$^12) (16 - 
                    256 $CellContext`k + 1152 $CellContext`k^2 - 
                    1024 $CellContext`k^3 + 256 $CellContext`k^4 - 
                    32 $CellContext`\[Gamma]$$ - 
                    256 $CellContext`k $CellContext`\[Gamma]$$ + 
                    128 $CellContext`k^2 $CellContext`\[Gamma]$$ - 
                    8 $CellContext`\[Gamma]$$^2 + 
                    960 $CellContext`k $CellContext`\[Gamma]$$^2 - 
                    3552 $CellContext`k^2 $CellContext`\[Gamma]$$^2 + 
                    3072 $CellContext`k^3 $CellContext`\[Gamma]$$^2 - 
                    768 $CellContext`k^4 $CellContext`\[Gamma]$$^2 + 
                    40 $CellContext`\[Gamma]$$^3 + 
                    512 $CellContext`k $CellContext`\[Gamma]$$^3 - 
                    256 $CellContext`k^2 $CellContext`\[Gamma]$$^3 + \
$CellContext`\[Gamma]$$^4 - 1232 $CellContext`k $CellContext`\[Gamma]$$^4 + 
                    4072 $CellContext`k^2 $CellContext`\[Gamma]$$^4 - 
                    3456 $CellContext`k^3 $CellContext`\[Gamma]$$^4 + 
                    864 $CellContext`k^4 $CellContext`\[Gamma]$$^4 - 
                    20 $CellContext`\[Gamma]$$^5 - 
                    336 $CellContext`k $CellContext`\[Gamma]$$^5 + 
                    168 $CellContext`k^2 $CellContext`\[Gamma]$$^5 - 
                    2 $CellContext`\[Gamma]$$^6 + 
                    708 $CellContext`k $CellContext`\[Gamma]$$^6 - 
                    2210 $CellContext`k^2 $CellContext`\[Gamma]$$^6 + 
                    1856 $CellContext`k^3 $CellContext`\[Gamma]$$^6 - 
                    464 $CellContext`k^4 $CellContext`\[Gamma]$$^6 + 
                    4 $CellContext`\[Gamma]$$^7 + 
                    88 $CellContext`k $CellContext`\[Gamma]$$^7 - 
                    44 $CellContext`k^2 $CellContext`\[Gamma]$$^7 + \
$CellContext`\[Gamma]$$^8 - 210 $CellContext`k $CellContext`\[Gamma]$$^8 + 
                    621 $CellContext`k^2 $CellContext`\[Gamma]$$^8 - 
                    516 $CellContext`k^3 $CellContext`\[Gamma]$$^8 + 
                    129 $CellContext`k^4 $CellContext`\[Gamma]$$^8 - 
                    8 $CellContext`k $CellContext`\[Gamma]$$^9 + 
                    4 $CellContext`k^2 $CellContext`\[Gamma]$$^9 + 
                    32 $CellContext`k $CellContext`\[Gamma]$$^10 - 
                    88 $CellContext`k^2 $CellContext`\[Gamma]$$^10 + 
                    72 $CellContext`k^3 $CellContext`\[Gamma]$$^10 - 
                    18 $CellContext`k^4 $CellContext`\[Gamma]$$^10 - 
                    2 $CellContext`k $CellContext`\[Gamma]$$^12 + 
                    5 $CellContext`k^2 $CellContext`\[Gamma]$$^12 - 
                    4 $CellContext`k^3 $CellContext`\[Gamma]$$^12 + \
$CellContext`k^4 $CellContext`\[Gamma]$$^12))^2)^Rational[1, 2])^
                Rational[1, 3] + 
              Rational[-1, 
                 4] ((-64) $CellContext`\[Gamma]$$^(-6) ((-16) $CellContext`k + 
                   2 $CellContext`\[Gamma]$$ - $CellContext`\[Gamma]$$^2 + 
                   24 $CellContext`k $CellContext`\[Gamma]$$^2 - \
$CellContext`\[Gamma]$$^3 - 
                   9 $CellContext`k $CellContext`\[Gamma]$$^4 + \
$CellContext`k $CellContext`\[Gamma]$$^6)^3 + 
                32 $CellContext`\[Gamma]$$^(-6) ((-16) $CellContext`k + 
                  2 $CellContext`\[Gamma]$$ - $CellContext`\[Gamma]$$^2 + 
                  24 $CellContext`k $CellContext`\[Gamma]$$^2 - $CellContext`\
\[Gamma]$$^3 - 
                  9 $CellContext`k $CellContext`\[Gamma]$$^4 + $CellContext`k \
$CellContext`\[Gamma]$$^6) (512 $CellContext`k^2 - 
                  128 $CellContext`k $CellContext`\[Gamma]$$ + 
                  12 $CellContext`\[Gamma]$$^2 + 
                  96 $CellContext`k $CellContext`\[Gamma]$$^2 - 
                  1552 $CellContext`k^2 $CellContext`\[Gamma]$$^2 - 
                  12 $CellContext`\[Gamma]$$^3 + 
                  256 $CellContext`k $CellContext`\[Gamma]$$^3 - 
                  9 $CellContext`\[Gamma]$$^4 - 
                  144 $CellContext`k $CellContext`\[Gamma]$$^4 + 
                  1752 $CellContext`k^2 $CellContext`\[Gamma]$$^4 + 
                  6 $CellContext`\[Gamma]$$^5 - 
                  168 $CellContext`k $CellContext`\[Gamma]$$^5 + 
                  3 $CellContext`\[Gamma]$$^6 + 
                  54 $CellContext`k $CellContext`\[Gamma]$$^6 - 
                  937 $CellContext`k^2 $CellContext`\[Gamma]$$^6 + 
                  44 $CellContext`k $CellContext`\[Gamma]$$^7 - 
                  6 $CellContext`k $CellContext`\[Gamma]$$^8 + 
                  259 $CellContext`k^2 $CellContext`\[Gamma]$$^8 - 
                  4 $CellContext`k $CellContext`\[Gamma]$$^9 - 
                  36 $CellContext`k^2 $CellContext`\[Gamma]$$^10 + 
                  2 $CellContext`k^2 $CellContext`\[Gamma]$$^12) - 
                16 $CellContext`\[Gamma]$$^(-4) (128 $CellContext`k - 
                 1024 $CellContext`k^2 + 512 $CellContext`k^3 + 
                 16 $CellContext`\[Gamma]$$ + 
                 256 $CellContext`k $CellContext`\[Gamma]$$ - 
                 64 $CellContext`k^2 $CellContext`\[Gamma]$$ - 
                 24 $CellContext`\[Gamma]$$^2 - 
                 544 $CellContext`k $CellContext`\[Gamma]$$^2 + 
                 3104 $CellContext`k^2 $CellContext`\[Gamma]$$^2 - 
                 1536 $CellContext`k^3 $CellContext`\[Gamma]$$^2 - 
                 12 $CellContext`\[Gamma]$$^3 - 
                 512 $CellContext`k $CellContext`\[Gamma]$$^3 + 
                 128 $CellContext`k^2 $CellContext`\[Gamma]$$^3 + 
                 22 $CellContext`\[Gamma]$$^4 + 
                 712 $CellContext`k $CellContext`\[Gamma]$$^4 - 
                 3504 $CellContext`k^2 $CellContext`\[Gamma]$$^4 + 
                 1728 $CellContext`k^3 $CellContext`\[Gamma]$$^4 + 
                 6 $CellContext`\[Gamma]$$^5 + 
                 336 $CellContext`k $CellContext`\[Gamma]$$^5 - 
                 84 $CellContext`k^2 $CellContext`\[Gamma]$$^5 - 
                 6 $CellContext`\[Gamma]$$^6 - 
                 390 $CellContext`k $CellContext`\[Gamma]$$^6 + 
                 1874 $CellContext`k^2 $CellContext`\[Gamma]$$^6 - 
                 928 $CellContext`k^3 $CellContext`\[Gamma]$$^6 - 
                 2 $CellContext`\[Gamma]$$^7 - 
                 88 $CellContext`k $CellContext`\[Gamma]$$^7 + 
                 22 $CellContext`k^2 $CellContext`\[Gamma]$$^7 + 
                 109 $CellContext`k $CellContext`\[Gamma]$$^8 - 
                 518 $CellContext`k^2 $CellContext`\[Gamma]$$^8 + 
                 258 $CellContext`k^3 $CellContext`\[Gamma]$$^8 + 
                 8 $CellContext`k $CellContext`\[Gamma]$$^9 - 
                 2 $CellContext`k^2 $CellContext`\[Gamma]$$^9 - 
                 16 $CellContext`k $CellContext`\[Gamma]$$^10 + 
                 72 $CellContext`k^2 $CellContext`\[Gamma]$$^10 - 
                 36 $CellContext`k^3 $CellContext`\[Gamma]$$^10 + \
$CellContext`k $CellContext`\[Gamma]$$^12 - 
                 4 $CellContext`k^2 $CellContext`\[Gamma]$$^12 + 
                 2 $CellContext`k^3 $CellContext`\[Gamma]$$^12)) (
                 4 $CellContext`\[Gamma]$$^(-4) ((-16) $CellContext`k + 
                    2 $CellContext`\[Gamma]$$ - $CellContext`\[Gamma]$$^2 + 
                    24 $CellContext`k $CellContext`\[Gamma]$$^2 - \
$CellContext`\[Gamma]$$^3 - 
                    9 $CellContext`k $CellContext`\[Gamma]$$^4 + \
$CellContext`k $CellContext`\[Gamma]$$^6)^2 + 
                 Rational[-4, 3] $CellContext`\[Gamma]$$^(-4) (
                   512 $CellContext`k^2 - 
                   128 $CellContext`k $CellContext`\[Gamma]$$ + 
                   12 $CellContext`\[Gamma]$$^2 + 
                   96 $CellContext`k $CellContext`\[Gamma]$$^2 - 
                   1552 $CellContext`k^2 $CellContext`\[Gamma]$$^2 - 
                   12 $CellContext`\[Gamma]$$^3 + 
                   256 $CellContext`k $CellContext`\[Gamma]$$^3 - 
                   9 $CellContext`\[Gamma]$$^4 - 
                   144 $CellContext`k $CellContext`\[Gamma]$$^4 + 
                   1752 $CellContext`k^2 $CellContext`\[Gamma]$$^4 + 
                   6 $CellContext`\[Gamma]$$^5 - 
                   168 $CellContext`k $CellContext`\[Gamma]$$^5 + 
                   3 $CellContext`\[Gamma]$$^6 + 
                   54 $CellContext`k $CellContext`\[Gamma]$$^6 - 
                   937 $CellContext`k^2 $CellContext`\[Gamma]$$^6 + 
                   44 $CellContext`k $CellContext`\[Gamma]$$^7 - 
                   6 $CellContext`k $CellContext`\[Gamma]$$^8 + 
                   259 $CellContext`k^2 $CellContext`\[Gamma]$$^8 - 
                   4 $CellContext`k $CellContext`\[Gamma]$$^9 - 
                   36 $CellContext`k^2 $CellContext`\[Gamma]$$^10 + 
                   2 $CellContext`k^2 $CellContext`\[Gamma]$$^12) + 
                 Rational[4, 3] 
                  2^Rational[1, 3] $CellContext`\[Gamma]$$^(-4) (
                   262144 $CellContext`k^4 - 
                   131072 $CellContext`k^3 $CellContext`\[Gamma]$$ + 
                   40960 $CellContext`k^2 $CellContext`\[Gamma]$$^2 - 
                   1540096 $CellContext`k^4 $CellContext`\[Gamma]$$^2 - 
                   3072 $CellContext`k $CellContext`\[Gamma]$$^3 + 
                   647168 $CellContext`k^3 $CellContext`\[Gamma]$$^3 - 
                   175360 $CellContext`k^2 $CellContext`\[Gamma]$$^4 + 
                   3982336 $CellContext`k^4 $CellContext`\[Gamma]$$^4 + 
                   10752 $CellContext`k $CellContext`\[Gamma]$$^5 - 
                   1372160 $CellContext`k^3 $CellContext`\[Gamma]$$^5 + 
                   313600 $CellContext`k^2 $CellContext`\[Gamma]$$^6 - 
                   5985280 $CellContext`k^4 $CellContext`\[Gamma]$$^6 - 
                   14976 $CellContext`k $CellContext`\[Gamma]$$^7 + 
                   1643520 $CellContext`k^3 $CellContext`\[Gamma]$$^7 - 
                   306656 $CellContext`k^2 $CellContext`\[Gamma]$$^8 + 
                   5821824 $CellContext`k^4 $CellContext`\[Gamma]$$^8 + 
                   10752 $CellContext`k $CellContext`\[Gamma]$$^9 - 
                   1232384 $CellContext`k^3 $CellContext`\[Gamma]$$^9 + 
                   180848 $CellContext`k^2 $CellContext`\[Gamma]$$^10 - 
                   3864512 $CellContext`k^4 $CellContext`\[Gamma]$$^10 - 
                   4332 $CellContext`k $CellContext`\[Gamma]$$^11 + 
                   605920 $CellContext`k^3 $CellContext`\[Gamma]$$^11 - 
                   66989 $CellContext`k^2 $CellContext`\[Gamma]$$^12 + 
                   1798596 $CellContext`k^4 $CellContext`\[Gamma]$$^12 + 
                   990 $CellContext`k $CellContext`\[Gamma]$$^13 - 
                   198480 $CellContext`k^3 $CellContext`\[Gamma]$$^13 + 
                   15664 $CellContext`k^2 $CellContext`\[Gamma]$$^14 - 
                   592896 $CellContext`k^4 $CellContext`\[Gamma]$$^14 - 
                   120 $CellContext`k $CellContext`\[Gamma]$$^15 + 
                   42928 $CellContext`k^3 $CellContext`\[Gamma]$$^15 - 
                   2239 $CellContext`k^2 $CellContext`\[Gamma]$$^16 + 
                   137776 $CellContext`k^4 $CellContext`\[Gamma]$$^16 + 
                   6 $CellContext`k $CellContext`\[Gamma]$$^17 - 
                   5888 $CellContext`k^3 $CellContext`\[Gamma]$$^17 + 
                   178 $CellContext`k^2 $CellContext`\[Gamma]$$^18 - 
                   22072 $CellContext`k^4 $CellContext`\[Gamma]$$^18 + 
                   464 $CellContext`k^3 $CellContext`\[Gamma]$$^19 - 
                   6 $CellContext`k^2 $CellContext`\[Gamma]$$^20 + 
                   2320 $CellContext`k^4 $CellContext`\[Gamma]$$^20 - 
                   16 $CellContext`k^3 $CellContext`\[Gamma]$$^21 - 
                   144 $CellContext`k^4 $CellContext`\[Gamma]$$^22 + 
                   4 $CellContext`k^4 $CellContext`\[Gamma]$$^24) (
                    16 (512 $CellContext`k^2 - 
                    128 $CellContext`k $CellContext`\[Gamma]$$ + 
                    12 $CellContext`\[Gamma]$$^2 + 
                    96 $CellContext`k $CellContext`\[Gamma]$$^2 - 
                    1552 $CellContext`k^2 $CellContext`\[Gamma]$$^2 - 
                    12 $CellContext`\[Gamma]$$^3 + 
                    256 $CellContext`k $CellContext`\[Gamma]$$^3 - 
                    9 $CellContext`\[Gamma]$$^4 - 
                    144 $CellContext`k $CellContext`\[Gamma]$$^4 + 
                    1752 $CellContext`k^2 $CellContext`\[Gamma]$$^4 + 
                    6 $CellContext`\[Gamma]$$^5 - 
                    168 $CellContext`k $CellContext`\[Gamma]$$^5 + 
                    3 $CellContext`\[Gamma]$$^6 + 
                    54 $CellContext`k $CellContext`\[Gamma]$$^6 - 
                    937 $CellContext`k^2 $CellContext`\[Gamma]$$^6 + 
                    44 $CellContext`k $CellContext`\[Gamma]$$^7 - 
                    6 $CellContext`k $CellContext`\[Gamma]$$^8 + 
                    259 $CellContext`k^2 $CellContext`\[Gamma]$$^8 - 
                    4 $CellContext`k $CellContext`\[Gamma]$$^9 - 
                    36 $CellContext`k^2 $CellContext`\[Gamma]$$^10 + 
                    2 $CellContext`k^2 $CellContext`\[Gamma]$$^12)^3 - 
                    144 ((-16) $CellContext`k $CellContext`\[Gamma]$$^2 + 
                    2 $CellContext`\[Gamma]$$^3 - $CellContext`\[Gamma]$$^4 + 
                    24 $CellContext`k $CellContext`\[Gamma]$$^4 - \
$CellContext`\[Gamma]$$^5 - 
                    9 $CellContext`k $CellContext`\[Gamma]$$^6 + \
$CellContext`k $CellContext`\[Gamma]$$^8) (512 $CellContext`k^2 - 
                    128 $CellContext`k $CellContext`\[Gamma]$$ + 
                    12 $CellContext`\[Gamma]$$^2 + 
                    96 $CellContext`k $CellContext`\[Gamma]$$^2 - 
                    1552 $CellContext`k^2 $CellContext`\[Gamma]$$^2 - 
                    12 $CellContext`\[Gamma]$$^3 + 
                    256 $CellContext`k $CellContext`\[Gamma]$$^3 - 
                    9 $CellContext`\[Gamma]$$^4 - 
                    144 $CellContext`k $CellContext`\[Gamma]$$^4 + 
                    1752 $CellContext`k^2 $CellContext`\[Gamma]$$^4 + 
                    6 $CellContext`\[Gamma]$$^5 - 
                    168 $CellContext`k $CellContext`\[Gamma]$$^5 + 
                    3 $CellContext`\[Gamma]$$^6 + 
                    54 $CellContext`k $CellContext`\[Gamma]$$^6 - 
                    937 $CellContext`k^2 $CellContext`\[Gamma]$$^6 + 
                    44 $CellContext`k $CellContext`\[Gamma]$$^7 - 
                    6 $CellContext`k $CellContext`\[Gamma]$$^8 + 
                    259 $CellContext`k^2 $CellContext`\[Gamma]$$^8 - 
                    4 $CellContext`k $CellContext`\[Gamma]$$^9 - 
                    36 $CellContext`k^2 $CellContext`\[Gamma]$$^10 + 
                    2 $CellContext`k^2 $CellContext`\[Gamma]$$^12) (
                    128 $CellContext`k - 1024 $CellContext`k^2 + 
                    512 $CellContext`k^3 + 16 $CellContext`\[Gamma]$$ + 
                    256 $CellContext`k $CellContext`\[Gamma]$$ - 
                    64 $CellContext`k^2 $CellContext`\[Gamma]$$ - 
                    24 $CellContext`\[Gamma]$$^2 - 
                    544 $CellContext`k $CellContext`\[Gamma]$$^2 + 
                    3104 $CellContext`k^2 $CellContext`\[Gamma]$$^2 - 
                    1536 $CellContext`k^3 $CellContext`\[Gamma]$$^2 - 
                    12 $CellContext`\[Gamma]$$^3 - 
                    512 $CellContext`k $CellContext`\[Gamma]$$^3 + 
                    128 $CellContext`k^2 $CellContext`\[Gamma]$$^3 + 
                    22 $CellContext`\[Gamma]$$^4 + 
                    712 $CellContext`k $CellContext`\[Gamma]$$^4 - 
                    3504 $CellContext`k^2 $CellContext`\[Gamma]$$^4 + 
                    1728 $CellContext`k^3 $CellContext`\[Gamma]$$^4 + 
                    6 $CellContext`\[Gamma]$$^5 + 
                    336 $CellContext`k $CellContext`\[Gamma]$$^5 - 
                    84 $CellContext`k^2 $CellContext`\[Gamma]$$^5 - 
                    6 $CellContext`\[Gamma]$$^6 - 
                    390 $CellContext`k $CellContext`\[Gamma]$$^6 + 
                    1874 $CellContext`k^2 $CellContext`\[Gamma]$$^6 - 
                    928 $CellContext`k^3 $CellContext`\[Gamma]$$^6 - 
                    2 $CellContext`\[Gamma]$$^7 - 
                    88 $CellContext`k $CellContext`\[Gamma]$$^7 + 
                    22 $CellContext`k^2 $CellContext`\[Gamma]$$^7 + 
                    109 $CellContext`k $CellContext`\[Gamma]$$^8 - 
                    518 $CellContext`k^2 $CellContext`\[Gamma]$$^8 + 
                    258 $CellContext`k^3 $CellContext`\[Gamma]$$^8 + 
                    8 $CellContext`k $CellContext`\[Gamma]$$^9 - 
                    2 $CellContext`k^2 $CellContext`\[Gamma]$$^9 - 
                    16 $CellContext`k $CellContext`\[Gamma]$$^10 + 
                    72 $CellContext`k^2 $CellContext`\[Gamma]$$^10 - 
                    36 $CellContext`k^3 $CellContext`\[Gamma]$$^10 + \
$CellContext`k $CellContext`\[Gamma]$$^12 - 
                    4 $CellContext`k^2 $CellContext`\[Gamma]$$^12 + 
                    2 $CellContext`k^3 $CellContext`\[Gamma]$$^12) + 
                    108 $CellContext`\[Gamma]$$^4 (128 $CellContext`k - 
                    1024 $CellContext`k^2 + 512 $CellContext`k^3 + 
                    16 $CellContext`\[Gamma]$$ + 
                    256 $CellContext`k $CellContext`\[Gamma]$$ - 
                    64 $CellContext`k^2 $CellContext`\[Gamma]$$ - 
                    24 $CellContext`\[Gamma]$$^2 - 
                    544 $CellContext`k $CellContext`\[Gamma]$$^2 + 
                    3104 $CellContext`k^2 $CellContext`\[Gamma]$$^2 - 
                    1536 $CellContext`k^3 $CellContext`\[Gamma]$$^2 - 
                    12 $CellContext`\[Gamma]$$^3 - 
                    512 $CellContext`k $CellContext`\[Gamma]$$^3 + 
                    128 $CellContext`k^2 $CellContext`\[Gamma]$$^3 + 
                    22 $CellContext`\[Gamma]$$^4 + 
                    712 $CellContext`k $CellContext`\[Gamma]$$^4 - 
                    3504 $CellContext`k^2 $CellContext`\[Gamma]$$^4 + 
                    1728 $CellContext`k^3 $CellContext`\[Gamma]$$^4 + 
                    6 $CellContext`\[Gamma]$$^5 + 
                    336 $CellContext`k $CellContext`\[Gamma]$$^5 - 
                    84 $CellContext`k^2 $CellContext`\[Gamma]$$^5 - 
                    6 $CellContext`\[Gamma]$$^6 - 
                    390 $CellContext`k $CellContext`\[Gamma]$$^6 + 
                    1874 $CellContext`k^2 $CellContext`\[Gamma]$$^6 - 
                    928 $CellContext`k^3 $CellContext`\[Gamma]$$^6 - 
                    2 $CellContext`\[Gamma]$$^7 - 
                    88 $CellContext`k $CellContext`\[Gamma]$$^7 + 
                    22 $CellContext`k^2 $CellContext`\[Gamma]$$^7 + 
                    109 $CellContext`k $CellContext`\[Gamma]$$^8 - 
                    518 $CellContext`k^2 $CellContext`\[Gamma]$$^8 + 
                    258 $CellContext`k^3 $CellContext`\[Gamma]$$^8 + 
                    8 $CellContext`k $CellContext`\[Gamma]$$^9 - 
                    2 $CellContext`k^2 $CellContext`\[Gamma]$$^9 - 
                    16 $CellContext`k $CellContext`\[Gamma]$$^10 + 
                    72 $CellContext`k^2 $CellContext`\[Gamma]$$^10 - 
                    36 $CellContext`k^3 $CellContext`\[Gamma]$$^10 + \
$CellContext`k $CellContext`\[Gamma]$$^12 - 
                    4 $CellContext`k^2 $CellContext`\[Gamma]$$^12 + 
                    2 $CellContext`k^3 $CellContext`\[Gamma]$$^12)^2 + 
                    432 ((-16) $CellContext`k $CellContext`\[Gamma]$$^2 + 
                    2 $CellContext`\[Gamma]$$^3 - $CellContext`\[Gamma]$$^4 + 
                    24 $CellContext`k $CellContext`\[Gamma]$$^4 - \
$CellContext`\[Gamma]$$^5 - 
                    9 $CellContext`k $CellContext`\[Gamma]$$^6 + \
$CellContext`k $CellContext`\[Gamma]$$^8)^2 (16 - 256 $CellContext`k + 
                    1152 $CellContext`k^2 - 1024 $CellContext`k^3 + 
                    256 $CellContext`k^4 - 32 $CellContext`\[Gamma]$$ - 
                    256 $CellContext`k $CellContext`\[Gamma]$$ + 
                    128 $CellContext`k^2 $CellContext`\[Gamma]$$ - 
                    8 $CellContext`\[Gamma]$$^2 + 
                    960 $CellContext`k $CellContext`\[Gamma]$$^2 - 
                    3552 $CellContext`k^2 $CellContext`\[Gamma]$$^2 + 
                    3072 $CellContext`k^3 $CellContext`\[Gamma]$$^2 - 
                    768 $CellContext`k^4 $CellContext`\[Gamma]$$^2 + 
                    40 $CellContext`\[Gamma]$$^3 + 
                    512 $CellContext`k $CellContext`\[Gamma]$$^3 - 
                    256 $CellContext`k^2 $CellContext`\[Gamma]$$^3 + \
$CellContext`\[Gamma]$$^4 - 1232 $CellContext`k $CellContext`\[Gamma]$$^4 + 
                    4072 $CellContext`k^2 $CellContext`\[Gamma]$$^4 - 
                    3456 $CellContext`k^3 $CellContext`\[Gamma]$$^4 + 
                    864 $CellContext`k^4 $CellContext`\[Gamma]$$^4 - 
                    20 $CellContext`\[Gamma]$$^5 - 
                    336 $CellContext`k $CellContext`\[Gamma]$$^5 + 
                    168 $CellContext`k^2 $CellContext`\[Gamma]$$^5 - 
                    2 $CellContext`\[Gamma]$$^6 + 
                    708 $CellContext`k $CellContext`\[Gamma]$$^6 - 
                    2210 $CellContext`k^2 $CellContext`\[Gamma]$$^6 + 
                    1856 $CellContext`k^3 $CellContext`\[Gamma]$$^6 - 
                    464 $CellContext`k^4 $CellContext`\[Gamma]$$^6 + 
                    4 $CellContext`\[Gamma]$$^7 + 
                    88 $CellContext`k $CellContext`\[Gamma]$$^7 - 
                    44 $CellContext`k^2 $CellContext`\[Gamma]$$^7 + \
$CellContext`\[Gamma]$$^8 - 210 $CellContext`k $CellContext`\[Gamma]$$^8 + 
                    621 $CellContext`k^2 $CellContext`\[Gamma]$$^8 - 
                    516 $CellContext`k^3 $CellContext`\[Gamma]$$^8 + 
                    129 $CellContext`k^4 $CellContext`\[Gamma]$$^8 - 
                    8 $CellContext`k $CellContext`\[Gamma]$$^9 + 
                    4 $CellContext`k^2 $CellContext`\[Gamma]$$^9 + 
                    32 $CellContext`k $CellContext`\[Gamma]$$^10 - 
                    88 $CellContext`k^2 $CellContext`\[Gamma]$$^10 + 
                    72 $CellContext`k^3 $CellContext`\[Gamma]$$^10 - 
                    18 $CellContext`k^4 $CellContext`\[Gamma]$$^10 - 
                    2 $CellContext`k $CellContext`\[Gamma]$$^12 + 
                    5 $CellContext`k^2 $CellContext`\[Gamma]$$^12 - 
                    4 $CellContext`k^3 $CellContext`\[Gamma]$$^12 + \
$CellContext`k^4 $CellContext`\[Gamma]$$^12) - 
                    144 $CellContext`\[Gamma]$$^4 (512 $CellContext`k^2 - 
                    128 $CellContext`k $CellContext`\[Gamma]$$ + 
                    12 $CellContext`\[Gamma]$$^2 + 
                    96 $CellContext`k $CellContext`\[Gamma]$$^2 - 
                    1552 $CellContext`k^2 $CellContext`\[Gamma]$$^2 - 
                    12 $CellContext`\[Gamma]$$^3 + 
                    256 $CellContext`k $CellContext`\[Gamma]$$^3 - 
                    9 $CellContext`\[Gamma]$$^4 - 
                    144 $CellContext`k $CellContext`\[Gamma]$$^4 + 
                    1752 $CellContext`k^2 $CellContext`\[Gamma]$$^4 + 
                    6 $CellContext`\[Gamma]$$^5 - 
                    168 $CellContext`k $CellContext`\[Gamma]$$^5 + 
                    3 $CellContext`\[Gamma]$$^6 + 
                    54 $CellContext`k $CellContext`\[Gamma]$$^6 - 
                    937 $CellContext`k^2 $CellContext`\[Gamma]$$^6 + 
                    44 $CellContext`k $CellContext`\[Gamma]$$^7 - 
                    6 $CellContext`k $CellContext`\[Gamma]$$^8 + 
                    259 $CellContext`k^2 $CellContext`\[Gamma]$$^8 - 
                    4 $CellContext`k $CellContext`\[Gamma]$$^9 - 
                    36 $CellContext`k^2 $CellContext`\[Gamma]$$^10 + 
                    2 $CellContext`k^2 $CellContext`\[Gamma]$$^12) (16 - 
                    256 $CellContext`k + 1152 $CellContext`k^2 - 
                    1024 $CellContext`k^3 + 256 $CellContext`k^4 - 
                    32 $CellContext`\[Gamma]$$ - 
                    256 $CellContext`k $CellContext`\[Gamma]$$ + 
                    128 $CellContext`k^2 $CellContext`\[Gamma]$$ - 
                    8 $CellContext`\[Gamma]$$^2 + 
                    960 $CellContext`k $CellContext`\[Gamma]$$^2 - 
                    3552 $CellContext`k^2 $CellContext`\[Gamma]$$^2 + 
                    3072 $CellContext`k^3 $CellContext`\[Gamma]$$^2 - 
                    768 $CellContext`k^4 $CellContext`\[Gamma]$$^2 + 
                    40 $CellContext`\[Gamma]$$^3 + 
                    512 $CellContext`k $CellContext`\[Gamma]$$^3 - 
                    256 $CellContext`k^2 $CellContext`\[Gamma]$$^3 + \
$CellContext`\[Gamma]$$^4 - 1232 $CellContext`k $CellContext`\[Gamma]$$^4 + 
                    4072 $CellContext`k^2 $CellContext`\[Gamma]$$^4 - 
                    3456 $CellContext`k^3 $CellContext`\[Gamma]$$^4 + 
                    864 $CellContext`k^4 $CellContext`\[Gamma]$$^4 - 
                    20 $CellContext`\[Gamma]$$^5 - 
                    336 $CellContext`k $CellContext`\[Gamma]$$^5 + 
                    168 $CellContext`k^2 $CellContext`\[Gamma]$$^5 - 
                    2 $CellContext`\[Gamma]$$^6 + 
                    708 $CellContext`k $CellContext`\[Gamma]$$^6 - 
                    2210 $CellContext`k^2 $CellContext`\[Gamma]$$^6 + 
                    1856 $CellContext`k^3 $CellContext`\[Gamma]$$^6 - 
                    464 $CellContext`k^4 $CellContext`\[Gamma]$$^6 + 
                    4 $CellContext`\[Gamma]$$^7 + 
                    88 $CellContext`k $CellContext`\[Gamma]$$^7 - 
                    44 $CellContext`k^2 $CellContext`\[Gamma]$$^7 + \
$CellContext`\[Gamma]$$^8 - 210 $CellContext`k $CellContext`\[Gamma]$$^8 + 
                    621 $CellContext`k^2 $CellContext`\[Gamma]$$^8 - 
                    516 $CellContext`k^3 $CellContext`\[Gamma]$$^8 + 
                    129 $CellContext`k^4 $CellContext`\[Gamma]$$^8 - 
                    8 $CellContext`k $CellContext`\[Gamma]$$^9 + 
                    4 $CellContext`k^2 $CellContext`\[Gamma]$$^9 + 
                    32 $CellContext`k $CellContext`\[Gamma]$$^10 - 
                    88 $CellContext`k^2 $CellContext`\[Gamma]$$^10 + 
                    72 $CellContext`k^3 $CellContext`\[Gamma]$$^10 - 
                    18 $CellContext`k^4 $CellContext`\[Gamma]$$^10 - 
                    2 $CellContext`k $CellContext`\[Gamma]$$^12 + 
                    5 $CellContext`k^2 $CellContext`\[Gamma]$$^12 - 
                    4 $CellContext`k^3 $CellContext`\[Gamma]$$^12 + \
$CellContext`k^4 $CellContext`\[Gamma]$$^12) + ((-4) (
                    1048576 $CellContext`k^4 - 
                    524288 $CellContext`k^3 $CellContext`\[Gamma]$$ + 
                    163840 $CellContext`k^2 $CellContext`\[Gamma]$$^2 - 
                    6160384 $CellContext`k^4 $CellContext`\[Gamma]$$^2 - 
                    12288 $CellContext`k $CellContext`\[Gamma]$$^3 + 
                    2588672 $CellContext`k^3 $CellContext`\[Gamma]$$^3 - 
                    701440 $CellContext`k^2 $CellContext`\[Gamma]$$^4 + 
                    15929344 $CellContext`k^4 $CellContext`\[Gamma]$$^4 + 
                    43008 $CellContext`k $CellContext`\[Gamma]$$^5 - 
                    5488640 $CellContext`k^3 $CellContext`\[Gamma]$$^5 + 
                    1254400 $CellContext`k^2 $CellContext`\[Gamma]$$^6 - 
                    23941120 $CellContext`k^4 $CellContext`\[Gamma]$$^6 - 
                    59904 $CellContext`k $CellContext`\[Gamma]$$^7 + 
                    6574080 $CellContext`k^3 $CellContext`\[Gamma]$$^7 - 
                    1226624 $CellContext`k^2 $CellContext`\[Gamma]$$^8 + 
                    23287296 $CellContext`k^4 $CellContext`\[Gamma]$$^8 + 
                    43008 $CellContext`k $CellContext`\[Gamma]$$^9 - 
                    4929536 $CellContext`k^3 $CellContext`\[Gamma]$$^9 + 
                    723392 $CellContext`k^2 $CellContext`\[Gamma]$$^10 - 
                    15458048 $CellContext`k^4 $CellContext`\[Gamma]$$^10 - 
                    17328 $CellContext`k $CellContext`\[Gamma]$$^11 + 
                    2423680 $CellContext`k^3 $CellContext`\[Gamma]$$^11 - 
                    267956 $CellContext`k^2 $CellContext`\[Gamma]$$^12 + 
                    7194384 $CellContext`k^4 $CellContext`\[Gamma]$$^12 + 
                    3960 $CellContext`k $CellContext`\[Gamma]$$^13 - 
                    793920 $CellContext`k^3 $CellContext`\[Gamma]$$^13 + 
                    62656 $CellContext`k^2 $CellContext`\[Gamma]$$^14 - 
                    2371584 $CellContext`k^4 $CellContext`\[Gamma]$$^14 - 
                    480 $CellContext`k $CellContext`\[Gamma]$$^15 + 
                    171712 $CellContext`k^3 $CellContext`\[Gamma]$$^15 - 
                    8956 $CellContext`k^2 $CellContext`\[Gamma]$$^16 + 
                    551104 $CellContext`k^4 $CellContext`\[Gamma]$$^16 + 
                    24 $CellContext`k $CellContext`\[Gamma]$$^17 - 
                    23552 $CellContext`k^3 $CellContext`\[Gamma]$$^17 + 
                    712 $CellContext`k^2 $CellContext`\[Gamma]$$^18 - 
                    88288 $CellContext`k^4 $CellContext`\[Gamma]$$^18 + 
                    1856 $CellContext`k^3 $CellContext`\[Gamma]$$^19 - 
                    24 $CellContext`k^2 $CellContext`\[Gamma]$$^20 + 
                    9280 $CellContext`k^4 $CellContext`\[Gamma]$$^20 - 
                    64 $CellContext`k^3 $CellContext`\[Gamma]$$^21 - 
                    576 $CellContext`k^4 $CellContext`\[Gamma]$$^22 + 
                    16 $CellContext`k^4 $CellContext`\[Gamma]$$^24)^3 + (
                    16 (512 $CellContext`k^2 - 
                    128 $CellContext`k $CellContext`\[Gamma]$$ + 
                    12 $CellContext`\[Gamma]$$^2 + 
                    96 $CellContext`k $CellContext`\[Gamma]$$^2 - 
                    1552 $CellContext`k^2 $CellContext`\[Gamma]$$^2 - 
                    12 $CellContext`\[Gamma]$$^3 + 
                    256 $CellContext`k $CellContext`\[Gamma]$$^3 - 
                    9 $CellContext`\[Gamma]$$^4 - 
                    144 $CellContext`k $CellContext`\[Gamma]$$^4 + 
                    1752 $CellContext`k^2 $CellContext`\[Gamma]$$^4 + 
                    6 $CellContext`\[Gamma]$$^5 - 
                    168 $CellContext`k $CellContext`\[Gamma]$$^5 + 
                    3 $CellContext`\[Gamma]$$^6 + 
                    54 $CellContext`k $CellContext`\[Gamma]$$^6 - 
                    937 $CellContext`k^2 $CellContext`\[Gamma]$$^6 + 
                    44 $CellContext`k $CellContext`\[Gamma]$$^7 - 
                    6 $CellContext`k $CellContext`\[Gamma]$$^8 + 
                    259 $CellContext`k^2 $CellContext`\[Gamma]$$^8 - 
                    4 $CellContext`k $CellContext`\[Gamma]$$^9 - 
                    36 $CellContext`k^2 $CellContext`\[Gamma]$$^10 + 
                    2 $CellContext`k^2 $CellContext`\[Gamma]$$^12)^3 - 
                    144 ((-16) $CellContext`k $CellContext`\[Gamma]$$^2 + 
                    2 $CellContext`\[Gamma]$$^3 - $CellContext`\[Gamma]$$^4 + 
                    24 $CellContext`k $CellContext`\[Gamma]$$^4 - \
$CellContext`\[Gamma]$$^5 - 
                    9 $CellContext`k $CellContext`\[Gamma]$$^6 + \
$CellContext`k $CellContext`\[Gamma]$$^8) (512 $CellContext`k^2 - 
                    128 $CellContext`k $CellContext`\[Gamma]$$ + 
                    12 $CellContext`\[Gamma]$$^2 + 
                    96 $CellContext`k $CellContext`\[Gamma]$$^2 - 
                    1552 $CellContext`k^2 $CellContext`\[Gamma]$$^2 - 
                    12 $CellContext`\[Gamma]$$^3 + 
                    256 $CellContext`k $CellContext`\[Gamma]$$^3 - 
                    9 $CellContext`\[Gamma]$$^4 - 
                    144 $CellContext`k $CellContext`\[Gamma]$$^4 + 
                    1752 $CellContext`k^2 $CellContext`\[Gamma]$$^4 + 
                    6 $CellContext`\[Gamma]$$^5 - 
                    168 $CellContext`k $CellContext`\[Gamma]$$^5 + 
                    3 $CellContext`\[Gamma]$$^6 + 
                    54 $CellContext`k $CellContext`\[Gamma]$$^6 - 
                    937 $CellContext`k^2 $CellContext`\[Gamma]$$^6 + 
                    44 $CellContext`k $CellContext`\[Gamma]$$^7 - 
                    6 $CellContext`k $CellContext`\[Gamma]$$^8 + 
                    259 $CellContext`k^2 $CellContext`\[Gamma]$$^8 - 
                    4 $CellContext`k $CellContext`\[Gamma]$$^9 - 
                    36 $CellContext`k^2 $CellContext`\[Gamma]$$^10 + 
                    2 $CellContext`k^2 $CellContext`\[Gamma]$$^12) (
                    128 $CellContext`k - 1024 $CellContext`k^2 + 
                    512 $CellContext`k^3 + 16 $CellContext`\[Gamma]$$ + 
                    256 $CellContext`k $CellContext`\[Gamma]$$ - 
                    64 $CellContext`k^2 $CellContext`\[Gamma]$$ - 
                    24 $CellContext`\[Gamma]$$^2 - 
                    544 $CellContext`k $CellContext`\[Gamma]$$^2 + 
                    3104 $CellContext`k^2 $CellContext`\[Gamma]$$^2 - 
                    1536 $CellContext`k^3 $CellContext`\[Gamma]$$^2 - 
                    12 $CellContext`\[Gamma]$$^3 - 
                    512 $CellContext`k $CellContext`\[Gamma]$$^3 + 
                    128 $CellContext`k^2 $CellContext`\[Gamma]$$^3 + 
                    22 $CellContext`\[Gamma]$$^4 + 
                    712 $CellContext`k $CellContext`\[Gamma]$$^4 - 
                    3504 $CellContext`k^2 $CellContext`\[Gamma]$$^4 + 
                    1728 $CellContext`k^3 $CellContext`\[Gamma]$$^4 + 
                    6 $CellContext`\[Gamma]$$^5 + 
                    336 $CellContext`k $CellContext`\[Gamma]$$^5 - 
                    84 $CellContext`k^2 $CellContext`\[Gamma]$$^5 - 
                    6 $CellContext`\[Gamma]$$^6 - 
                    390 $CellContext`k $CellContext`\[Gamma]$$^6 + 
                    1874 $CellContext`k^2 $CellContext`\[Gamma]$$^6 - 
                    928 $CellContext`k^3 $CellContext`\[Gamma]$$^6 - 
                    2 $CellContext`\[Gamma]$$^7 - 
                    88 $CellContext`k $CellContext`\[Gamma]$$^7 + 
                    22 $CellContext`k^2 $CellContext`\[Gamma]$$^7 + 
                    109 $CellContext`k $CellContext`\[Gamma]$$^8 - 
                    518 $CellContext`k^2 $CellContext`\[Gamma]$$^8 + 
                    258 $CellContext`k^3 $CellContext`\[Gamma]$$^8 + 
                    8 $CellContext`k $CellContext`\[Gamma]$$^9 - 
                    2 $CellContext`k^2 $CellContext`\[Gamma]$$^9 - 
                    16 $CellContext`k $CellContext`\[Gamma]$$^10 + 
                    72 $CellContext`k^2 $CellContext`\[Gamma]$$^10 - 
                    36 $CellContext`k^3 $CellContext`\[Gamma]$$^10 + \
$CellContext`k $CellContext`\[Gamma]$$^12 - 
                    4 $CellContext`k^2 $CellContext`\[Gamma]$$^12 + 
                    2 $CellContext`k^3 $CellContext`\[Gamma]$$^12) + 
                    108 $CellContext`\[Gamma]$$^4 (128 $CellContext`k - 
                    1024 $CellContext`k^2 + 512 $CellContext`k^3 + 
                    16 $CellContext`\[Gamma]$$ + 
                    256 $CellContext`k $CellContext`\[Gamma]$$ - 
                    64 $CellContext`k^2 $CellContext`\[Gamma]$$ - 
                    24 $CellContext`\[Gamma]$$^2 - 
                    544 $CellContext`k $CellContext`\[Gamma]$$^2 + 
                    3104 $CellContext`k^2 $CellContext`\[Gamma]$$^2 - 
                    1536 $CellContext`k^3 $CellContext`\[Gamma]$$^2 - 
                    12 $CellContext`\[Gamma]$$^3 - 
                    512 $CellContext`k $CellContext`\[Gamma]$$^3 + 
                    128 $CellContext`k^2 $CellContext`\[Gamma]$$^3 + 
                    22 $CellContext`\[Gamma]$$^4 + 
                    712 $CellContext`k $CellContext`\[Gamma]$$^4 - 
                    3504 $CellContext`k^2 $CellContext`\[Gamma]$$^4 + 
                    1728 $CellContext`k^3 $CellContext`\[Gamma]$$^4 + 
                    6 $CellContext`\[Gamma]$$^5 + 
                    336 $CellContext`k $CellContext`\[Gamma]$$^5 - 
                    84 $CellContext`k^2 $CellContext`\[Gamma]$$^5 - 
                    6 $CellContext`\[Gamma]$$^6 - 
                    390 $CellContext`k $CellContext`\[Gamma]$$^6 + 
                    1874 $CellContext`k^2 $CellContext`\[Gamma]$$^6 - 
                    928 $CellContext`k^3 $CellContext`\[Gamma]$$^6 - 
                    2 $CellContext`\[Gamma]$$^7 - 
                    88 $CellContext`k $CellContext`\[Gamma]$$^7 + 
                    22 $CellContext`k^2 $CellContext`\[Gamma]$$^7 + 
                    109 $CellContext`k $CellContext`\[Gamma]$$^8 - 
                    518 $CellContext`k^2 $CellContext`\[Gamma]$$^8 + 
                    258 $CellContext`k^3 $CellContext`\[Gamma]$$^8 + 
                    8 $CellContext`k $CellContext`\[Gamma]$$^9 - 
                    2 $CellContext`k^2 $CellContext`\[Gamma]$$^9 - 
                    16 $CellContext`k $CellContext`\[Gamma]$$^10 + 
                    72 $CellContext`k^2 $CellContext`\[Gamma]$$^10 - 
                    36 $CellContext`k^3 $CellContext`\[Gamma]$$^10 + \
$CellContext`k $CellContext`\[Gamma]$$^12 - 
                    4 $CellContext`k^2 $CellContext`\[Gamma]$$^12 + 
                    2 $CellContext`k^3 $CellContext`\[Gamma]$$^12)^2 + 
                    432 ((-16) $CellContext`k $CellContext`\[Gamma]$$^2 + 
                    2 $CellContext`\[Gamma]$$^3 - $CellContext`\[Gamma]$$^4 + 
                    24 $CellContext`k $CellContext`\[Gamma]$$^4 - \
$CellContext`\[Gamma]$$^5 - 
                    9 $CellContext`k $CellContext`\[Gamma]$$^6 + \
$CellContext`k $CellContext`\[Gamma]$$^8)^2 (16 - 256 $CellContext`k + 
                    1152 $CellContext`k^2 - 1024 $CellContext`k^3 + 
                    256 $CellContext`k^4 - 32 $CellContext`\[Gamma]$$ - 
                    256 $CellContext`k $CellContext`\[Gamma]$$ + 
                    128 $CellContext`k^2 $CellContext`\[Gamma]$$ - 
                    8 $CellContext`\[Gamma]$$^2 + 
                    960 $CellContext`k $CellContext`\[Gamma]$$^2 - 
                    3552 $CellContext`k^2 $CellContext`\[Gamma]$$^2 + 
                    3072 $CellContext`k^3 $CellContext`\[Gamma]$$^2 - 
                    768 $CellContext`k^4 $CellContext`\[Gamma]$$^2 + 
                    40 $CellContext`\[Gamma]$$^3 + 
                    512 $CellContext`k $CellContext`\[Gamma]$$^3 - 
                    256 $CellContext`k^2 $CellContext`\[Gamma]$$^3 + \
$CellContext`\[Gamma]$$^4 - 1232 $CellContext`k $CellContext`\[Gamma]$$^4 + 
                    4072 $CellContext`k^2 $CellContext`\[Gamma]$$^4 - 
                    3456 $CellContext`k^3 $CellContext`\[Gamma]$$^4 + 
                    864 $CellContext`k^4 $CellContext`\[Gamma]$$^4 - 
                    20 $CellContext`\[Gamma]$$^5 - 
                    336 $CellContext`k $CellContext`\[Gamma]$$^5 + 
                    168 $CellContext`k^2 $CellContext`\[Gamma]$$^5 - 
                    2 $CellContext`\[Gamma]$$^6 + 
                    708 $CellContext`k $CellContext`\[Gamma]$$^6 - 
                    2210 $CellContext`k^2 $CellContext`\[Gamma]$$^6 + 
                    1856 $CellContext`k^3 $CellContext`\[Gamma]$$^6 - 
                    464 $CellContext`k^4 $CellContext`\[Gamma]$$^6 + 
                    4 $CellContext`\[Gamma]$$^7 + 
                    88 $CellContext`k $CellContext`\[Gamma]$$^7 - 
                    44 $CellContext`k^2 $CellContext`\[Gamma]$$^7 + \
$CellContext`\[Gamma]$$^8 - 210 $CellContext`k $CellContext`\[Gamma]$$^8 + 
                    621 $CellContext`k^2 $CellContext`\[Gamma]$$^8 - 
                    516 $CellContext`k^3 $CellContext`\[Gamma]$$^8 + 
                    129 $CellContext`k^4 $CellContext`\[Gamma]$$^8 - 
                    8 $CellContext`k $CellContext`\[Gamma]$$^9 + 
                    4 $CellContext`k^2 $CellContext`\[Gamma]$$^9 + 
                    32 $CellContext`k $CellContext`\[Gamma]$$^10 - 
                    88 $CellContext`k^2 $CellContext`\[Gamma]$$^10 + 
                    72 $CellContext`k^3 $CellContext`\[Gamma]$$^10 - 
                    18 $CellContext`k^4 $CellContext`\[Gamma]$$^10 - 
                    2 $CellContext`k $CellContext`\[Gamma]$$^12 + 
                    5 $CellContext`k^2 $CellContext`\[Gamma]$$^12 - 
                    4 $CellContext`k^3 $CellContext`\[Gamma]$$^12 + \
$CellContext`k^4 $CellContext`\[Gamma]$$^12) - 
                    144 $CellContext`\[Gamma]$$^4 (512 $CellContext`k^2 - 
                    128 $CellContext`k $CellContext`\[Gamma]$$ + 
                    12 $CellContext`\[Gamma]$$^2 + 
                    96 $CellContext`k $CellContext`\[Gamma]$$^2 - 
                    1552 $CellContext`k^2 $CellContext`\[Gamma]$$^2 - 
                    12 $CellContext`\[Gamma]$$^3 + 
                    256 $CellContext`k $CellContext`\[Gamma]$$^3 - 
                    9 $CellContext`\[Gamma]$$^4 - 
                    144 $CellContext`k $CellContext`\[Gamma]$$^4 + 
                    1752 $CellContext`k^2 $CellContext`\[Gamma]$$^4 + 
                    6 $CellContext`\[Gamma]$$^5 - 
                    168 $CellContext`k $CellContext`\[Gamma]$$^5 + 
                    3 $CellContext`\[Gamma]$$^6 + 
                    54 $CellContext`k $CellContext`\[Gamma]$$^6 - 
                    937 $CellContext`k^2 $CellContext`\[Gamma]$$^6 + 
                    44 $CellContext`k $CellContext`\[Gamma]$$^7 - 
                    6 $CellContext`k $CellContext`\[Gamma]$$^8 + 
                    259 $CellContext`k^2 $CellContext`\[Gamma]$$^8 - 
                    4 $CellContext`k $CellContext`\[Gamma]$$^9 - 
                    36 $CellContext`k^2 $CellContext`\[Gamma]$$^10 + 
                    2 $CellContext`k^2 $CellContext`\[Gamma]$$^12) (16 - 
                    256 $CellContext`k + 1152 $CellContext`k^2 - 
                    1024 $CellContext`k^3 + 256 $CellContext`k^4 - 
                    32 $CellContext`\[Gamma]$$ - 
                    256 $CellContext`k $CellContext`\[Gamma]$$ + 
                    128 $CellContext`k^2 $CellContext`\[Gamma]$$ - 
                    8 $CellContext`\[Gamma]$$^2 + 
                    960 $CellContext`k $CellContext`\[Gamma]$$^2 - 
                    3552 $CellContext`k^2 $CellContext`\[Gamma]$$^2 + 
                    3072 $CellContext`k^3 $CellContext`\[Gamma]$$^2 - 
                    768 $CellContext`k^4 $CellContext`\[Gamma]$$^2 + 
                    40 $CellContext`\[Gamma]$$^3 + 
                    512 $CellContext`k $CellContext`\[Gamma]$$^3 - 
                    256 $CellContext`k^2 $CellContext`\[Gamma]$$^3 + \
$CellContext`\[Gamma]$$^4 - 1232 $CellContext`k $CellContext`\[Gamma]$$^4 + 
                    4072 $CellContext`k^2 $CellContext`\[Gamma]$$^4 - 
                    3456 $CellContext`k^3 $CellContext`\[Gamma]$$^4 + 
                    864 $CellContext`k^4 $CellContext`\[Gamma]$$^4 - 
                    20 $CellContext`\[Gamma]$$^5 - 
                    336 $CellContext`k $CellContext`\[Gamma]$$^5 + 
                    168 $CellContext`k^2 $CellContext`\[Gamma]$$^5 - 
                    2 $CellContext`\[Gamma]$$^6 + 
                    708 $CellContext`k $CellContext`\[Gamma]$$^6 - 
                    2210 $CellContext`k^2 $CellContext`\[Gamma]$$^6 + 
                    1856 $CellContext`k^3 $CellContext`\[Gamma]$$^6 - 
                    464 $CellContext`k^4 $CellContext`\[Gamma]$$^6 + 
                    4 $CellContext`\[Gamma]$$^7 + 
                    88 $CellContext`k $CellContext`\[Gamma]$$^7 - 
                    44 $CellContext`k^2 $CellContext`\[Gamma]$$^7 + \
$CellContext`\[Gamma]$$^8 - 210 $CellContext`k $CellContext`\[Gamma]$$^8 + 
                    621 $CellContext`k^2 $CellContext`\[Gamma]$$^8 - 
                    516 $CellContext`k^3 $CellContext`\[Gamma]$$^8 + 
                    129 $CellContext`k^4 $CellContext`\[Gamma]$$^8 - 
                    8 $CellContext`k $CellContext`\[Gamma]$$^9 + 
                    4 $CellContext`k^2 $CellContext`\[Gamma]$$^9 + 
                    32 $CellContext`k $CellContext`\[Gamma]$$^10 - 
                    88 $CellContext`k^2 $CellContext`\[Gamma]$$^10 + 
                    72 $CellContext`k^3 $CellContext`\[Gamma]$$^10 - 
                    18 $CellContext`k^4 $CellContext`\[Gamma]$$^10 - 
                    2 $CellContext`k $CellContext`\[Gamma]$$^12 + 
                    5 $CellContext`k^2 $CellContext`\[Gamma]$$^12 - 
                    4 $CellContext`k^3 $CellContext`\[Gamma]$$^12 + \
$CellContext`k^4 $CellContext`\[Gamma]$$^12))^2)^Rational[1, 2])^
                   Rational[-1, 3] + 
                 Rational[1, 3] 
                  2^Rational[-1, 3] $CellContext`\[Gamma]$$^(-4) (
                    16 (512 $CellContext`k^2 - 
                    128 $CellContext`k $CellContext`\[Gamma]$$ + 
                    12 $CellContext`\[Gamma]$$^2 + 
                    96 $CellContext`k $CellContext`\[Gamma]$$^2 - 
                    1552 $CellContext`k^2 $CellContext`\[Gamma]$$^2 - 
                    12 $CellContext`\[Gamma]$$^3 + 
                    256 $CellContext`k $CellContext`\[Gamma]$$^3 - 
                    9 $CellContext`\[Gamma]$$^4 - 
                    144 $CellContext`k $CellContext`\[Gamma]$$^4 + 
                    1752 $CellContext`k^2 $CellContext`\[Gamma]$$^4 + 
                    6 $CellContext`\[Gamma]$$^5 - 
                    168 $CellContext`k $CellContext`\[Gamma]$$^5 + 
                    3 $CellContext`\[Gamma]$$^6 + 
                    54 $CellContext`k $CellContext`\[Gamma]$$^6 - 
                    937 $CellContext`k^2 $CellContext`\[Gamma]$$^6 + 
                    44 $CellContext`k $CellContext`\[Gamma]$$^7 - 
                    6 $CellContext`k $CellContext`\[Gamma]$$^8 + 
                    259 $CellContext`k^2 $CellContext`\[Gamma]$$^8 - 
                    4 $CellContext`k $CellContext`\[Gamma]$$^9 - 
                    36 $CellContext`k^2 $CellContext`\[Gamma]$$^10 + 
                    2 $CellContext`k^2 $CellContext`\[Gamma]$$^12)^3 - 
                    144 ((-16) $CellContext`k $CellContext`\[Gamma]$$^2 + 
                    2 $CellContext`\[Gamma]$$^3 - $CellContext`\[Gamma]$$^4 + 
                    24 $CellContext`k $CellContext`\[Gamma]$$^4 - \
$CellContext`\[Gamma]$$^5 - 
                    9 $CellContext`k $CellContext`\[Gamma]$$^6 + \
$CellContext`k $CellContext`\[Gamma]$$^8) (512 $CellContext`k^2 - 
                    128 $CellContext`k $CellContext`\[Gamma]$$ + 
                    12 $CellContext`\[Gamma]$$^2 + 
                    96 $CellContext`k $CellContext`\[Gamma]$$^2 - 
                    1552 $CellContext`k^2 $CellContext`\[Gamma]$$^2 - 
                    12 $CellContext`\[Gamma]$$^3 + 
                    256 $CellContext`k $CellContext`\[Gamma]$$^3 - 
                    9 $CellContext`\[Gamma]$$^4 - 
                    144 $CellContext`k $CellContext`\[Gamma]$$^4 + 
                    1752 $CellContext`k^2 $CellContext`\[Gamma]$$^4 + 
                    6 $CellContext`\[Gamma]$$^5 - 
                    168 $CellContext`k $CellContext`\[Gamma]$$^5 + 
                    3 $CellContext`\[Gamma]$$^6 + 
                    54 $CellContext`k $CellContext`\[Gamma]$$^6 - 
                    937 $CellContext`k^2 $CellContext`\[Gamma]$$^6 + 
                    44 $CellContext`k $CellContext`\[Gamma]$$^7 - 
                    6 $CellContext`k $CellContext`\[Gamma]$$^8 + 
                    259 $CellContext`k^2 $CellContext`\[Gamma]$$^8 - 
                    4 $CellContext`k $CellContext`\[Gamma]$$^9 - 
                    36 $CellContext`k^2 $CellContext`\[Gamma]$$^10 + 
                    2 $CellContext`k^2 $CellContext`\[Gamma]$$^12) (
                    128 $CellContext`k - 1024 $CellContext`k^2 + 
                    512 $CellContext`k^3 + 16 $CellContext`\[Gamma]$$ + 
                    256 $CellContext`k $CellContext`\[Gamma]$$ - 
                    64 $CellContext`k^2 $CellContext`\[Gamma]$$ - 
                    24 $CellContext`\[Gamma]$$^2 - 
                    544 $CellContext`k $CellContext`\[Gamma]$$^2 + 
                    3104 $CellContext`k^2 $CellContext`\[Gamma]$$^2 - 
                    1536 $CellContext`k^3 $CellContext`\[Gamma]$$^2 - 
                    12 $CellContext`\[Gamma]$$^3 - 
                    512 $CellContext`k $CellContext`\[Gamma]$$^3 + 
                    128 $CellContext`k^2 $CellContext`\[Gamma]$$^3 + 
                    22 $CellContext`\[Gamma]$$^4 + 
                    712 $CellContext`k $CellContext`\[Gamma]$$^4 - 
                    3504 $CellContext`k^2 $CellContext`\[Gamma]$$^4 + 
                    1728 $CellContext`k^3 $CellContext`\[Gamma]$$^4 + 
                    6 $CellContext`\[Gamma]$$^5 + 
                    336 $CellContext`k $CellContext`\[Gamma]$$^5 - 
                    84 $CellContext`k^2 $CellContext`\[Gamma]$$^5 - 
                    6 $CellContext`\[Gamma]$$^6 - 
                    390 $CellContext`k $CellContext`\[Gamma]$$^6 + 
                    1874 $CellContext`k^2 $CellContext`\[Gamma]$$^6 - 
                    928 $CellContext`k^3 $CellContext`\[Gamma]$$^6 - 
                    2 $CellContext`\[Gamma]$$^7 - 
                    88 $CellContext`k $CellContext`\[Gamma]$$^7 + 
                    22 $CellContext`k^2 $CellContext`\[Gamma]$$^7 + 
                    109 $CellContext`k $CellContext`\[Gamma]$$^8 - 
                    518 $CellContext`k^2 $CellContext`\[Gamma]$$^8 + 
                    258 $CellContext`k^3 $CellContext`\[Gamma]$$^8 + 
                    8 $CellContext`k $CellContext`\[Gamma]$$^9 - 
                    2 $CellContext`k^2 $CellContext`\[Gamma]$$^9 - 
                    16 $CellContext`k $CellContext`\[Gamma]$$^10 + 
                    72 $CellContext`k^2 $CellContext`\[Gamma]$$^10 - 
                    36 $CellContext`k^3 $CellContext`\[Gamma]$$^10 + \
$CellContext`k $CellContext`\[Gamma]$$^12 - 
                    4 $CellContext`k^2 $CellContext`\[Gamma]$$^12 + 
                    2 $CellContext`k^3 $CellContext`\[Gamma]$$^12) + 
                    108 $CellContext`\[Gamma]$$^4 (128 $CellContext`k - 
                    1024 $CellContext`k^2 + 512 $CellContext`k^3 + 
                    16 $CellContext`\[Gamma]$$ + 
                    256 $CellContext`k $CellContext`\[Gamma]$$ - 
                    64 $CellContext`k^2 $CellContext`\[Gamma]$$ - 
                    24 $CellContext`\[Gamma]$$^2 - 
                    544 $CellContext`k $CellContext`\[Gamma]$$^2 + 
                    3104 $CellContext`k^2 $CellContext`\[Gamma]$$^2 - 
                    1536 $CellContext`k^3 $CellContext`\[Gamma]$$^2 - 
                    12 $CellContext`\[Gamma]$$^3 - 
                    512 $CellContext`k $CellContext`\[Gamma]$$^3 + 
                    128 $CellContext`k^2 $CellContext`\[Gamma]$$^3 + 
                    22 $CellContext`\[Gamma]$$^4 + 
                    712 $CellContext`k $CellContext`\[Gamma]$$^4 - 
                    3504 $CellContext`k^2 $CellContext`\[Gamma]$$^4 + 
                    1728 $CellContext`k^3 $CellContext`\[Gamma]$$^4 + 
                    6 $CellContext`\[Gamma]$$^5 + 
                    336 $CellContext`k $CellContext`\[Gamma]$$^5 - 
                    84 $CellContext`k^2 $CellContext`\[Gamma]$$^5 - 
                    6 $CellContext`\[Gamma]$$^6 - 
                    390 $CellContext`k $CellContext`\[Gamma]$$^6 + 
                    1874 $CellContext`k^2 $CellContext`\[Gamma]$$^6 - 
                    928 $CellContext`k^3 $CellContext`\[Gamma]$$^6 - 
                    2 $CellContext`\[Gamma]$$^7 - 
                    88 $CellContext`k $CellContext`\[Gamma]$$^7 + 
                    22 $CellContext`k^2 $CellContext`\[Gamma]$$^7 + 
                    109 $CellContext`k $CellContext`\[Gamma]$$^8 - 
                    518 $CellContext`k^2 $CellContext`\[Gamma]$$^8 + 
                    258 $CellContext`k^3 $CellContext`\[Gamma]$$^8 + 
                    8 $CellContext`k $CellContext`\[Gamma]$$^9 - 
                    2 $CellContext`k^2 $CellContext`\[Gamma]$$^9 - 
                    16 $CellContext`k $CellContext`\[Gamma]$$^10 + 
                    72 $CellContext`k^2 $CellContext`\[Gamma]$$^10 - 
                    36 $CellContext`k^3 $CellContext`\[Gamma]$$^10 + \
$CellContext`k $CellContext`\[Gamma]$$^12 - 
                    4 $CellContext`k^2 $CellContext`\[Gamma]$$^12 + 
                    2 $CellContext`k^3 $CellContext`\[Gamma]$$^12)^2 + 
                    432 ((-16) $CellContext`k $CellContext`\[Gamma]$$^2 + 
                    2 $CellContext`\[Gamma]$$^3 - $CellContext`\[Gamma]$$^4 + 
                    24 $CellContext`k $CellContext`\[Gamma]$$^4 - \
$CellContext`\[Gamma]$$^5 - 
                    9 $CellContext`k $CellContext`\[Gamma]$$^6 + \
$CellContext`k $CellContext`\[Gamma]$$^8)^2 (16 - 256 $CellContext`k + 
                    1152 $CellContext`k^2 - 1024 $CellContext`k^3 + 
                    256 $CellContext`k^4 - 32 $CellContext`\[Gamma]$$ - 
                    256 $CellContext`k $CellContext`\[Gamma]$$ + 
                    128 $CellContext`k^2 $CellContext`\[Gamma]$$ - 
                    8 $CellContext`\[Gamma]$$^2 + 
                    960 $CellContext`k $CellContext`\[Gamma]$$^2 - 
                    3552 $CellContext`k^2 $CellContext`\[Gamma]$$^2 + 
                    3072 $CellContext`k^3 $CellContext`\[Gamma]$$^2 - 
                    768 $CellContext`k^4 $CellContext`\[Gamma]$$^2 + 
                    40 $CellContext`\[Gamma]$$^3 + 
                    512 $CellContext`k $CellContext`\[Gamma]$$^3 - 
                    
                    256 $CellContext`k^2 $CellContext`\[Gamma]$$^3 + \
$CellContext`\[Gamma]$$^4 - 1232 $CellContext`k $CellContext`\[Gamma]$$^4 + 
                    4072 $CellContext`k^2 $CellContext`\[Gamma]$$^4 - 
                    3456 $CellContext`k^3 $CellContext`\[Gamma]$$^4 + 
                    864 $CellContext`k^4 $CellContext`\[Gamma]$$^4 - 
                    20 $CellContext`\[Gamma]$$^5 - 
                    336 $CellContext`k $CellContext`\[Gamma]$$^5 + 
                    168 $CellContext`k^2 $CellContext`\[Gamma]$$^5 - 
                    2 $CellContext`\[Gamma]$$^6 + 
                    708 $CellContext`k $CellContext`\[Gamma]$$^6 - 
                    2210 $CellContext`k^2 $CellContext`\[Gamma]$$^6 + 
                    1856 $CellContext`k^3 $CellContext`\[Gamma]$$^6 - 
                    464 $CellContext`k^4 $CellContext`\[Gamma]$$^6 + 
                    4 $CellContext`\[Gamma]$$^7 + 
                    88 $CellContext`k $CellContext`\[Gamma]$$^7 - 
                    44 $CellContext`k^2 $CellContext`\[Gamma]$$^7 + \
$CellContext`\[Gamma]$$^8 - 210 $CellContext`k $CellContext`\[Gamma]$$^8 + 
                    621 $CellContext`k^2 $CellContext`\[Gamma]$$^8 - 
                    516 $CellContext`k^3 $CellContext`\[Gamma]$$^8 + 
                    129 $CellContext`k^4 $CellContext`\[Gamma]$$^8 - 
                    8 $CellContext`k $CellContext`\[Gamma]$$^9 + 
                    4 $CellContext`k^2 $CellContext`\[Gamma]$$^9 + 
                    32 $CellContext`k $CellContext`\[Gamma]$$^10 - 
                    88 $CellContext`k^2 $CellContext`\[Gamma]$$^10 + 
                    72 $CellContext`k^3 $CellContext`\[Gamma]$$^10 - 
                    18 $CellContext`k^4 $CellContext`\[Gamma]$$^10 - 
                    2 $CellContext`k $CellContext`\[Gamma]$$^12 + 
                    5 $CellContext`k^2 $CellContext`\[Gamma]$$^12 - 
                    4 $CellContext`k^3 $CellContext`\[Gamma]$$^12 + \
$CellContext`k^4 $CellContext`\[Gamma]$$^12) - 
                    144 $CellContext`\[Gamma]$$^4 (512 $CellContext`k^2 - 
                    128 $CellContext`k $CellContext`\[Gamma]$$ + 
                    12 $CellContext`\[Gamma]$$^2 + 
                    96 $CellContext`k $CellContext`\[Gamma]$$^2 - 
                    1552 $CellContext`k^2 $CellContext`\[Gamma]$$^2 - 
                    12 $CellContext`\[Gamma]$$^3 + 
                    256 $CellContext`k $CellContext`\[Gamma]$$^3 - 
                    9 $CellContext`\[Gamma]$$^4 - 
                    144 $CellContext`k $CellContext`\[Gamma]$$^4 + 
                    1752 $CellContext`k^2 $CellContext`\[Gamma]$$^4 + 
                    6 $CellContext`\[Gamma]$$^5 - 
                    168 $CellContext`k $CellContext`\[Gamma]$$^5 + 
                    3 $CellContext`\[Gamma]$$^6 + 
                    54 $CellContext`k $CellContext`\[Gamma]$$^6 - 
                    937 $CellContext`k^2 $CellContext`\[Gamma]$$^6 + 
                    44 $CellContext`k $CellContext`\[Gamma]$$^7 - 
                    6 $CellContext`k $CellContext`\[Gamma]$$^8 + 
                    259 $CellContext`k^2 $CellContext`\[Gamma]$$^8 - 
                    4 $CellContext`k $CellContext`\[Gamma]$$^9 - 
                    36 $CellContext`k^2 $CellContext`\[Gamma]$$^10 + 
                    2 $CellContext`k^2 $CellContext`\[Gamma]$$^12) (16 - 
                    256 $CellContext`k + 1152 $CellContext`k^2 - 
                    1024 $CellContext`k^3 + 256 $CellContext`k^4 - 
                    32 $CellContext`\[Gamma]$$ - 
                    256 $CellContext`k $CellContext`\[Gamma]$$ + 
                    128 $CellContext`k^2 $CellContext`\[Gamma]$$ - 
                    8 $CellContext`\[Gamma]$$^2 + 
                    960 $CellContext`k $CellContext`\[Gamma]$$^2 - 
                    3552 $CellContext`k^2 $CellContext`\[Gamma]$$^2 + 
                    3072 $CellContext`k^3 $CellContext`\[Gamma]$$^2 - 
                    768 $CellContext`k^4 $CellContext`\[Gamma]$$^2 + 
                    40 $CellContext`\[Gamma]$$^3 + 
                    512 $CellContext`k $CellContext`\[Gamma]$$^3 - 
                    256 $CellContext`k^2 $CellContext`\[Gamma]$$^3 + \
$CellContext`\[Gamma]$$^4 - 1232 $CellContext`k $CellContext`\[Gamma]$$^4 + 
                    4072 $CellContext`k^2 $CellContext`\[Gamma]$$^4 - 
                    3456 $CellContext`k^3 $CellContext`\[Gamma]$$^4 + 
                    864 $CellContext`k^4 $CellContext`\[Gamma]$$^4 - 
                    20 $CellContext`\[Gamma]$$^5 - 
                    336 $CellContext`k $CellContext`\[Gamma]$$^5 + 
                    168 $CellContext`k^2 $CellContext`\[Gamma]$$^5 - 
                    2 $CellContext`\[Gamma]$$^6 + 
                    708 $CellContext`k $CellContext`\[Gamma]$$^6 - 
                    2210 $CellContext`k^2 $CellContext`\[Gamma]$$^6 + 
                    1856 $CellContext`k^3 $CellContext`\[Gamma]$$^6 - 
                    464 $CellContext`k^4 $CellContext`\[Gamma]$$^6 + 
                    4 $CellContext`\[Gamma]$$^7 + 
                    88 $CellContext`k $CellContext`\[Gamma]$$^7 - 
                    44 $CellContext`k^2 $CellContext`\[Gamma]$$^7 + \
$CellContext`\[Gamma]$$^8 - 210 $CellContext`k $CellContext`\[Gamma]$$^8 + 
                    621 $CellContext`k^2 $CellContext`\[Gamma]$$^8 - 
                    516 $CellContext`k^3 $CellContext`\[Gamma]$$^8 + 
                    129 $CellContext`k^4 $CellContext`\[Gamma]$$^8 - 
                    8 $CellContext`k $CellContext`\[Gamma]$$^9 + 
                    4 $CellContext`k^2 $CellContext`\[Gamma]$$^9 + 
                    32 $CellContext`k $CellContext`\[Gamma]$$^10 - 
                    88 $CellContext`k^2 $CellContext`\[Gamma]$$^10 + 
                    72 $CellContext`k^3 $CellContext`\[Gamma]$$^10 - 
                    18 $CellContext`k^4 $CellContext`\[Gamma]$$^10 - 
                    2 $CellContext`k $CellContext`\[Gamma]$$^12 + 
                    5 $CellContext`k^2 $CellContext`\[Gamma]$$^12 - 
                    4 $CellContext`k^3 $CellContext`\[Gamma]$$^12 + \
$CellContext`k^4 $CellContext`\[Gamma]$$^12) + ((-4) (
                    1048576 $CellContext`k^4 - 
                    524288 $CellContext`k^3 $CellContext`\[Gamma]$$ + 
                    163840 $CellContext`k^2 $CellContext`\[Gamma]$$^2 - 
                    6160384 $CellContext`k^4 $CellContext`\[Gamma]$$^2 - 
                    12288 $CellContext`k $CellContext`\[Gamma]$$^3 + 
                    2588672 $CellContext`k^3 $CellContext`\[Gamma]$$^3 - 
                    701440 $CellContext`k^2 $CellContext`\[Gamma]$$^4 + 
                    15929344 $CellContext`k^4 $CellContext`\[Gamma]$$^4 + 
                    43008 $CellContext`k $CellContext`\[Gamma]$$^5 - 
                    5488640 $CellContext`k^3 $CellContext`\[Gamma]$$^5 + 
                    1254400 $CellContext`k^2 $CellContext`\[Gamma]$$^6 - 
                    23941120 $CellContext`k^4 $CellContext`\[Gamma]$$^6 - 
                    59904 $CellContext`k $CellContext`\[Gamma]$$^7 + 
                    6574080 $CellContext`k^3 $CellContext`\[Gamma]$$^7 - 
                    1226624 $CellContext`k^2 $CellContext`\[Gamma]$$^8 + 
                    23287296 $CellContext`k^4 $CellContext`\[Gamma]$$^8 + 
                    43008 $CellContext`k $CellContext`\[Gamma]$$^9 - 
                    4929536 $CellContext`k^3 $CellContext`\[Gamma]$$^9 + 
                    723392 $CellContext`k^2 $CellContext`\[Gamma]$$^10 - 
                    15458048 $CellContext`k^4 $CellContext`\[Gamma]$$^10 - 
                    17328 $CellContext`k $CellContext`\[Gamma]$$^11 + 
                    2423680 $CellContext`k^3 $CellContext`\[Gamma]$$^11 - 
                    267956 $CellContext`k^2 $CellContext`\[Gamma]$$^12 + 
                    7194384 $CellContext`k^4 $CellContext`\[Gamma]$$^12 + 
                    3960 $CellContext`k $CellContext`\[Gamma]$$^13 - 
                    793920 $CellContext`k^3 $CellContext`\[Gamma]$$^13 + 
                    62656 $CellContext`k^2 $CellContext`\[Gamma]$$^14 - 
                    2371584 $CellContext`k^4 $CellContext`\[Gamma]$$^14 - 
                    480 $CellContext`k $CellContext`\[Gamma]$$^15 + 
                    171712 $CellContext`k^3 $CellContext`\[Gamma]$$^15 - 
                    8956 $CellContext`k^2 $CellContext`\[Gamma]$$^16 + 
                    551104 $CellContext`k^4 $CellContext`\[Gamma]$$^16 + 
                    24 $CellContext`k $CellContext`\[Gamma]$$^17 - 
                    23552 $CellContext`k^3 $CellContext`\[Gamma]$$^17 + 
                    712 $CellContext`k^2 $CellContext`\[Gamma]$$^18 - 
                    88288 $CellContext`k^4 $CellContext`\[Gamma]$$^18 + 
                    1856 $CellContext`k^3 $CellContext`\[Gamma]$$^19 - 
                    24 $CellContext`k^2 $CellContext`\[Gamma]$$^20 + 
                    9280 $CellContext`k^4 $CellContext`\[Gamma]$$^20 - 
                    64 $CellContext`k^3 $CellContext`\[Gamma]$$^21 - 
                    576 $CellContext`k^4 $CellContext`\[Gamma]$$^22 + 
                    16 $CellContext`k^4 $CellContext`\[Gamma]$$^24)^3 + (
                    16 (512 $CellContext`k^2 - 
                    128 $CellContext`k $CellContext`\[Gamma]$$ + 
                    12 $CellContext`\[Gamma]$$^2 + 
                    96 $CellContext`k $CellContext`\[Gamma]$$^2 - 
                    1552 $CellContext`k^2 $CellContext`\[Gamma]$$^2 - 
                    12 $CellContext`\[Gamma]$$^3 + 
                    256 $CellContext`k $CellContext`\[Gamma]$$^3 - 
                    9 $CellContext`\[Gamma]$$^4 - 
                    144 $CellContext`k $CellContext`\[Gamma]$$^4 + 
                    1752 $CellContext`k^2 $CellContext`\[Gamma]$$^4 + 
                    6 $CellContext`\[Gamma]$$^5 - 
                    168 $CellContext`k $CellContext`\[Gamma]$$^5 + 
                    3 $CellContext`\[Gamma]$$^6 + 
                    54 $CellContext`k $CellContext`\[Gamma]$$^6 - 
                    937 $CellContext`k^2 $CellContext`\[Gamma]$$^6 + 
                    44 $CellContext`k $CellContext`\[Gamma]$$^7 - 
                    6 $CellContext`k $CellContext`\[Gamma]$$^8 + 
                    259 $CellContext`k^2 $CellContext`\[Gamma]$$^8 - 
                    4 $CellContext`k $CellContext`\[Gamma]$$^9 - 
                    36 $CellContext`k^2 $CellContext`\[Gamma]$$^10 + 
                    2 $CellContext`k^2 $CellContext`\[Gamma]$$^12)^3 - 
                    144 ((-16) $CellContext`k $CellContext`\[Gamma]$$^2 + 
                    2 $CellContext`\[Gamma]$$^3 - $CellContext`\[Gamma]$$^4 + 
                    
                    24 $CellContext`k $CellContext`\[Gamma]$$^4 - \
$CellContext`\[Gamma]$$^5 - 
                    9 $CellContext`k $CellContext`\[Gamma]$$^6 + \
$CellContext`k $CellContext`\[Gamma]$$^8) (512 $CellContext`k^2 - 
                    128 $CellContext`k $CellContext`\[Gamma]$$ + 
                    12 $CellContext`\[Gamma]$$^2 + 
                    96 $CellContext`k $CellContext`\[Gamma]$$^2 - 
                    1552 $CellContext`k^2 $CellContext`\[Gamma]$$^2 - 
                    12 $CellContext`\[Gamma]$$^3 + 
                    256 $CellContext`k $CellContext`\[Gamma]$$^3 - 
                    9 $CellContext`\[Gamma]$$^4 - 
                    144 $CellContext`k $CellContext`\[Gamma]$$^4 + 
                    1752 $CellContext`k^2 $CellContext`\[Gamma]$$^4 + 
                    6 $CellContext`\[Gamma]$$^5 - 
                    168 $CellContext`k $CellContext`\[Gamma]$$^5 + 
                    3 $CellContext`\[Gamma]$$^6 + 
                    54 $CellContext`k $CellContext`\[Gamma]$$^6 - 
                    937 $CellContext`k^2 $CellContext`\[Gamma]$$^6 + 
                    44 $CellContext`k $CellContext`\[Gamma]$$^7 - 
                    6 $CellContext`k $CellContext`\[Gamma]$$^8 + 
                    259 $CellContext`k^2 $CellContext`\[Gamma]$$^8 - 
                    4 $CellContext`k $CellContext`\[Gamma]$$^9 - 
                    36 $CellContext`k^2 $CellContext`\[Gamma]$$^10 + 
                    2 $CellContext`k^2 $CellContext`\[Gamma]$$^12) (
                    128 $CellContext`k - 1024 $CellContext`k^2 + 
                    512 $CellContext`k^3 + 16 $CellContext`\[Gamma]$$ + 
                    256 $CellContext`k $CellContext`\[Gamma]$$ - 
                    64 $CellContext`k^2 $CellContext`\[Gamma]$$ - 
                    24 $CellContext`\[Gamma]$$^2 - 
                    544 $CellContext`k $CellContext`\[Gamma]$$^2 + 
                    3104 $CellContext`k^2 $CellContext`\[Gamma]$$^2 - 
                    1536 $CellContext`k^3 $CellContext`\[Gamma]$$^2 - 
                    12 $CellContext`\[Gamma]$$^3 - 
                    512 $CellContext`k $CellContext`\[Gamma]$$^3 + 
                    128 $CellContext`k^2 $CellContext`\[Gamma]$$^3 + 
                    22 $CellContext`\[Gamma]$$^4 + 
                    712 $CellContext`k $CellContext`\[Gamma]$$^4 - 
                    3504 $CellContext`k^2 $CellContext`\[Gamma]$$^4 + 
                    1728 $CellContext`k^3 $CellContext`\[Gamma]$$^4 + 
                    6 $CellContext`\[Gamma]$$^5 + 
                    336 $CellContext`k $CellContext`\[Gamma]$$^5 - 
                    84 $CellContext`k^2 $CellContext`\[Gamma]$$^5 - 
                    6 $CellContext`\[Gamma]$$^6 - 
                    390 $CellContext`k $CellContext`\[Gamma]$$^6 + 
                    1874 $CellContext`k^2 $CellContext`\[Gamma]$$^6 - 
                    928 $CellContext`k^3 $CellContext`\[Gamma]$$^6 - 
                    2 $CellContext`\[Gamma]$$^7 - 
                    88 $CellContext`k $CellContext`\[Gamma]$$^7 + 
                    22 $CellContext`k^2 $CellContext`\[Gamma]$$^7 + 
                    109 $CellContext`k $CellContext`\[Gamma]$$^8 - 
                    518 $CellContext`k^2 $CellContext`\[Gamma]$$^8 + 
                    258 $CellContext`k^3 $CellContext`\[Gamma]$$^8 + 
                    8 $CellContext`k $CellContext`\[Gamma]$$^9 - 
                    2 $CellContext`k^2 $CellContext`\[Gamma]$$^9 - 
                    16 $CellContext`k $CellContext`\[Gamma]$$^10 + 
                    72 $CellContext`k^2 $CellContext`\[Gamma]$$^10 - 
                    36 $CellContext`k^3 $CellContext`\[Gamma]$$^10 + \
$CellContext`k $CellContext`\[Gamma]$$^12 - 
                    4 $CellContext`k^2 $CellContext`\[Gamma]$$^12 + 
                    2 $CellContext`k^3 $CellContext`\[Gamma]$$^12) + 
                    108 $CellContext`\[Gamma]$$^4 (128 $CellContext`k - 
                    1024 $CellContext`k^2 + 512 $CellContext`k^3 + 
                    16 $CellContext`\[Gamma]$$ + 
                    256 $CellContext`k $CellContext`\[Gamma]$$ - 
                    64 $CellContext`k^2 $CellContext`\[Gamma]$$ - 
                    24 $CellContext`\[Gamma]$$^2 - 
                    544 $CellContext`k $CellContext`\[Gamma]$$^2 + 
                    3104 $CellContext`k^2 $CellContext`\[Gamma]$$^2 - 
                    1536 $CellContext`k^3 $CellContext`\[Gamma]$$^2 - 
                    12 $CellContext`\[Gamma]$$^3 - 
                    512 $CellContext`k $CellContext`\[Gamma]$$^3 + 
                    128 $CellContext`k^2 $CellContext`\[Gamma]$$^3 + 
                    22 $CellContext`\[Gamma]$$^4 + 
                    712 $CellContext`k $CellContext`\[Gamma]$$^4 - 
                    3504 $CellContext`k^2 $CellContext`\[Gamma]$$^4 + 
                    1728 $CellContext`k^3 $CellContext`\[Gamma]$$^4 + 
                    6 $CellContext`\[Gamma]$$^5 + 
                    336 $CellContext`k $CellContext`\[Gamma]$$^5 - 
                    84 $CellContext`k^2 $CellContext`\[Gamma]$$^5 - 
                    6 $CellContext`\[Gamma]$$^6 - 
                    390 $CellContext`k $CellContext`\[Gamma]$$^6 + 
                    1874 $CellContext`k^2 $CellContext`\[Gamma]$$^6 - 
                    928 $CellContext`k^3 $CellContext`\[Gamma]$$^6 - 
                    2 $CellContext`\[Gamma]$$^7 - 
                    88 $CellContext`k $CellContext`\[Gamma]$$^7 + 
                    22 $CellContext`k^2 $CellContext`\[Gamma]$$^7 + 
                    109 $CellContext`k $CellContext`\[Gamma]$$^8 - 
                    518 $CellContext`k^2 $CellContext`\[Gamma]$$^8 + 
                    258 $CellContext`k^3 $CellContext`\[Gamma]$$^8 + 
                    8 $CellContext`k $CellContext`\[Gamma]$$^9 - 
                    2 $CellContext`k^2 $CellContext`\[Gamma]$$^9 - 
                    16 $CellContext`k $CellContext`\[Gamma]$$^10 + 
                    72 $CellContext`k^2 $CellContext`\[Gamma]$$^10 - 
                    36 $CellContext`k^3 $CellContext`\[Gamma]$$^10 + \
$CellContext`k $CellContext`\[Gamma]$$^12 - 
                    4 $CellContext`k^2 $CellContext`\[Gamma]$$^12 + 
                    2 $CellContext`k^3 $CellContext`\[Gamma]$$^12)^2 + 
                    432 ((-16) $CellContext`k $CellContext`\[Gamma]$$^2 + 
                    2 $CellContext`\[Gamma]$$^3 - $CellContext`\[Gamma]$$^4 + 
                    24 $CellContext`k $CellContext`\[Gamma]$$^4 - \
$CellContext`\[Gamma]$$^5 - 
                    9 $CellContext`k $CellContext`\[Gamma]$$^6 + \
$CellContext`k $CellContext`\[Gamma]$$^8)^2 (16 - 256 $CellContext`k + 
                    1152 $CellContext`k^2 - 1024 $CellContext`k^3 + 
                    256 $CellContext`k^4 - 32 $CellContext`\[Gamma]$$ - 
                    256 $CellContext`k $CellContext`\[Gamma]$$ + 
                    128 $CellContext`k^2 $CellContext`\[Gamma]$$ - 
                    8 $CellContext`\[Gamma]$$^2 + 
                    960 $CellContext`k $CellContext`\[Gamma]$$^2 - 
                    3552 $CellContext`k^2 $CellContext`\[Gamma]$$^2 + 
                    3072 $CellContext`k^3 $CellContext`\[Gamma]$$^2 - 
                    768 $CellContext`k^4 $CellContext`\[Gamma]$$^2 + 
                    40 $CellContext`\[Gamma]$$^3 + 
                    512 $CellContext`k $CellContext`\[Gamma]$$^3 - 
                    256 $CellContext`k^2 $CellContext`\[Gamma]$$^3 + \
$CellContext`\[Gamma]$$^4 - 1232 $CellContext`k $CellContext`\[Gamma]$$^4 + 
                    4072 $CellContext`k^2 $CellContext`\[Gamma]$$^4 - 
                    3456 $CellContext`k^3 $CellContext`\[Gamma]$$^4 + 
                    864 $CellContext`k^4 $CellContext`\[Gamma]$$^4 - 
                    20 $CellContext`\[Gamma]$$^5 - 
                    336 $CellContext`k $CellContext`\[Gamma]$$^5 + 
                    168 $CellContext`k^2 $CellContext`\[Gamma]$$^5 - 
                    2 $CellContext`\[Gamma]$$^6 + 
                    708 $CellContext`k $CellContext`\[Gamma]$$^6 - 
                    2210 $CellContext`k^2 $CellContext`\[Gamma]$$^6 + 
                    1856 $CellContext`k^3 $CellContext`\[Gamma]$$^6 - 
                    464 $CellContext`k^4 $CellContext`\[Gamma]$$^6 + 
                    4 $CellContext`\[Gamma]$$^7 + 
                    88 $CellContext`k $CellContext`\[Gamma]$$^7 - 
                    44 $CellContext`k^2 $CellContext`\[Gamma]$$^7 + \
$CellContext`\[Gamma]$$^8 - 210 $CellContext`k $CellContext`\[Gamma]$$^8 + 
                    621 $CellContext`k^2 $CellContext`\[Gamma]$$^8 - 
                    516 $CellContext`k^3 $CellContext`\[Gamma]$$^8 + 
                    129 $CellContext`k^4 $CellContext`\[Gamma]$$^8 - 
                    8 $CellContext`k $CellContext`\[Gamma]$$^9 + 
                    4 $CellContext`k^2 $CellContext`\[Gamma]$$^9 + 
                    32 $CellContext`k $CellContext`\[Gamma]$$^10 - 
                    88 $CellContext`k^2 $CellContext`\[Gamma]$$^10 + 
                    72 $CellContext`k^3 $CellContext`\[Gamma]$$^10 - 
                    18 $CellContext`k^4 $CellContext`\[Gamma]$$^10 - 
                    2 $CellContext`k $CellContext`\[Gamma]$$^12 + 
                    5 $CellContext`k^2 $CellContext`\[Gamma]$$^12 - 
                    4 $CellContext`k^3 $CellContext`\[Gamma]$$^12 + \
$CellContext`k^4 $CellContext`\[Gamma]$$^12) - 
                    144 $CellContext`\[Gamma]$$^4 (512 $CellContext`k^2 - 
                    128 $CellContext`k $CellContext`\[Gamma]$$ + 
                    12 $CellContext`\[Gamma]$$^2 + 
                    96 $CellContext`k $CellContext`\[Gamma]$$^2 - 
                    1552 $CellContext`k^2 $CellContext`\[Gamma]$$^2 - 
                    12 $CellContext`\[Gamma]$$^3 + 
                    256 $CellContext`k $CellContext`\[Gamma]$$^3 - 
                    9 $CellContext`\[Gamma]$$^4 - 
                    144 $CellContext`k $CellContext`\[Gamma]$$^4 + 
                    1752 $CellContext`k^2 $CellContext`\[Gamma]$$^4 + 
                    6 $CellContext`\[Gamma]$$^5 - 
                    168 $CellContext`k $CellContext`\[Gamma]$$^5 + 
                    3 $CellContext`\[Gamma]$$^6 + 
                    54 $CellContext`k $CellContext`\[Gamma]$$^6 - 
                    937 $CellContext`k^2 $CellContext`\[Gamma]$$^6 + 
                    44 $CellContext`k $CellContext`\[Gamma]$$^7 - 
                    6 $CellContext`k $CellContext`\[Gamma]$$^8 + 
                    259 $CellContext`k^2 $CellContext`\[Gamma]$$^8 - 
                    4 $CellContext`k $CellContext`\[Gamma]$$^9 - 
                    36 $CellContext`k^2 $CellContext`\[Gamma]$$^10 + 
                    2 $CellContext`k^2 $CellContext`\[Gamma]$$^12) (16 - 
                    256 $CellContext`k + 1152 $CellContext`k^2 - 
                    1024 $CellContext`k^3 + 256 $CellContext`k^4 - 
                    32 $CellContext`\[Gamma]$$ - 
                    256 $CellContext`k $CellContext`\[Gamma]$$ + 
                    128 $CellContext`k^2 $CellContext`\[Gamma]$$ - 
                    8 $CellContext`\[Gamma]$$^2 + 
                    960 $CellContext`k $CellContext`\[Gamma]$$^2 - 
                    3552 $CellContext`k^2 $CellContext`\[Gamma]$$^2 + 
                    3072 $CellContext`k^3 $CellContext`\[Gamma]$$^2 - 
                    768 $CellContext`k^4 $CellContext`\[Gamma]$$^2 + 
                    40 $CellContext`\[Gamma]$$^3 + 
                    512 $CellContext`k $CellContext`\[Gamma]$$^3 - 
                    256 $CellContext`k^2 $CellContext`\[Gamma]$$^3 + \
$CellContext`\[Gamma]$$^4 - 1232 $CellContext`k $CellContext`\[Gamma]$$^4 + 
                    4072 $CellContext`k^2 $CellContext`\[Gamma]$$^4 - 
                    3456 $CellContext`k^3 $CellContext`\[Gamma]$$^4 + 
                    864 $CellContext`k^4 $CellContext`\[Gamma]$$^4 - 
                    20 $CellContext`\[Gamma]$$^5 - 
                    336 $CellContext`k $CellContext`\[Gamma]$$^5 + 
                    168 $CellContext`k^2 $CellContext`\[Gamma]$$^5 - 
                    2 $CellContext`\[Gamma]$$^6 + 
                    708 $CellContext`k $CellContext`\[Gamma]$$^6 - 
                    2210 $CellContext`k^2 $CellContext`\[Gamma]$$^6 + 
                    1856 $CellContext`k^3 $CellContext`\[Gamma]$$^6 - 
                    464 $CellContext`k^4 $CellContext`\[Gamma]$$^6 + 
                    4 $CellContext`\[Gamma]$$^7 + 
                    88 $CellContext`k $CellContext`\[Gamma]$$^7 - 
                    44 $CellContext`k^2 $CellContext`\[Gamma]$$^7 + \
$CellContext`\[Gamma]$$^8 - 210 $CellContext`k $CellContext`\[Gamma]$$^8 + 
                    621 $CellContext`k^2 $CellContext`\[Gamma]$$^8 - 
                    516 $CellContext`k^3 $CellContext`\[Gamma]$$^8 + 
                    129 $CellContext`k^4 $CellContext`\[Gamma]$$^8 - 
                    8 $CellContext`k $CellContext`\[Gamma]$$^9 + 
                    4 $CellContext`k^2 $CellContext`\[Gamma]$$^9 + 
                    32 $CellContext`k $CellContext`\[Gamma]$$^10 - 
                    88 $CellContext`k^2 $CellContext`\[Gamma]$$^10 + 
                    72 $CellContext`k^3 $CellContext`\[Gamma]$$^10 - 
                    18 $CellContext`k^4 $CellContext`\[Gamma]$$^10 - 
                    2 $CellContext`k $CellContext`\[Gamma]$$^12 + 
                    5 $CellContext`k^2 $CellContext`\[Gamma]$$^12 - 
                    
                    4 $CellContext`k^3 $CellContext`\[Gamma]$$^12 + \
$CellContext`k^4 $CellContext`\[Gamma]$$^12))^2)^Rational[1, 2])^
                   Rational[1, 3])^Rational[-1, 2])^Rational[1, 2], 
           Rational[-1, 
             4] $CellContext`k^(-2) (-2 + $CellContext`\[Gamma]$$^2)^(-4) \
($CellContext`k (-2 + $CellContext`\[Gamma]$$^2)^2 (2 + 
              8 (-2 + $CellContext`k) $CellContext`k + 
              4 $CellContext`k $CellContext`\[Gamma]$$ - 
              2 (1 + $CellContext`k (-8 + 
                 5 $CellContext`k)) $CellContext`\[Gamma]$$^2 - 
              4 $CellContext`k $CellContext`\[Gamma]$$^3 + (1 - 
                 2 $CellContext`k)^2 $CellContext`\[Gamma]$$^4) + \
($CellContext`k^2 $CellContext`\[Gamma]$$ (-2 + $CellContext`\[Gamma]$$^2)^6 \
($CellContext`\[Gamma]$$^3 - 
               8 $CellContext`k (-1 + $CellContext`\[Gamma]$$^2) + 
               4 $CellContext`k^2 $CellContext`\[Gamma]$$ (-1 + $CellContext`\
\[Gamma]$$^2)))^Rational[1, 2])}, 1 - $CellContext`k}, {$CellContext`k, 0, 
          1}], 
        Plot[{-$CellContext`\[Gamma]$$^(-2) ((-16) $CellContext`k + 
            2 $CellContext`\[Gamma]$$ - $CellContext`\[Gamma]$$^2 + 
            24 $CellContext`k $CellContext`\[Gamma]$$^2 - $CellContext`\
\[Gamma]$$^3 - 
            9 $CellContext`k $CellContext`\[Gamma]$$^4 + $CellContext`k \
$CellContext`\[Gamma]$$^6) + 
          Rational[-1, 2] (
             4 $CellContext`\[Gamma]$$^(-4) ((-16) $CellContext`k + 
                2 $CellContext`\[Gamma]$$ - $CellContext`\[Gamma]$$^2 + 
                24 $CellContext`k $CellContext`\[Gamma]$$^2 - $CellContext`\
\[Gamma]$$^3 - 
                9 $CellContext`k $CellContext`\[Gamma]$$^4 + $CellContext`k \
$CellContext`\[Gamma]$$^6)^2 + 
             Rational[-4, 3] $CellContext`\[Gamma]$$^(-4) (
               512 $CellContext`k^2 - 
               128 $CellContext`k $CellContext`\[Gamma]$$ + 
               12 $CellContext`\[Gamma]$$^2 + 
               96 $CellContext`k $CellContext`\[Gamma]$$^2 - 
               1552 $CellContext`k^2 $CellContext`\[Gamma]$$^2 - 
               12 $CellContext`\[Gamma]$$^3 + 
               256 $CellContext`k $CellContext`\[Gamma]$$^3 - 
               9 $CellContext`\[Gamma]$$^4 - 
               144 $CellContext`k $CellContext`\[Gamma]$$^4 + 
               1752 $CellContext`k^2 $CellContext`\[Gamma]$$^4 + 
               6 $CellContext`\[Gamma]$$^5 - 
               168 $CellContext`k $CellContext`\[Gamma]$$^5 + 
               3 $CellContext`\[Gamma]$$^6 + 
               54 $CellContext`k $CellContext`\[Gamma]$$^6 - 
               937 $CellContext`k^2 $CellContext`\[Gamma]$$^6 + 
               44 $CellContext`k $CellContext`\[Gamma]$$^7 - 
               6 $CellContext`k $CellContext`\[Gamma]$$^8 + 
               259 $CellContext`k^2 $CellContext`\[Gamma]$$^8 - 
               4 $CellContext`k $CellContext`\[Gamma]$$^9 - 
               36 $CellContext`k^2 $CellContext`\[Gamma]$$^10 + 
               2 $CellContext`k^2 $CellContext`\[Gamma]$$^12) + 
             Rational[4, 3] 
              2^Rational[1, 3] $CellContext`\[Gamma]$$^(-4) (
               262144 $CellContext`k^4 - 
               131072 $CellContext`k^3 $CellContext`\[Gamma]$$ + 
               40960 $CellContext`k^2 $CellContext`\[Gamma]$$^2 - 
               1540096 $CellContext`k^4 $CellContext`\[Gamma]$$^2 - 
               3072 $CellContext`k $CellContext`\[Gamma]$$^3 + 
               647168 $CellContext`k^3 $CellContext`\[Gamma]$$^3 - 
               175360 $CellContext`k^2 $CellContext`\[Gamma]$$^4 + 
               3982336 $CellContext`k^4 $CellContext`\[Gamma]$$^4 + 
               10752 $CellContext`k $CellContext`\[Gamma]$$^5 - 
               1372160 $CellContext`k^3 $CellContext`\[Gamma]$$^5 + 
               313600 $CellContext`k^2 $CellContext`\[Gamma]$$^6 - 
               5985280 $CellContext`k^4 $CellContext`\[Gamma]$$^6 - 
               14976 $CellContext`k $CellContext`\[Gamma]$$^7 + 
               1643520 $CellContext`k^3 $CellContext`\[Gamma]$$^7 - 
               306656 $CellContext`k^2 $CellContext`\[Gamma]$$^8 + 
               5821824 $CellContext`k^4 $CellContext`\[Gamma]$$^8 + 
               10752 $CellContext`k $CellContext`\[Gamma]$$^9 - 
               1232384 $CellContext`k^3 $CellContext`\[Gamma]$$^9 + 
               180848 $CellContext`k^2 $CellContext`\[Gamma]$$^10 - 
               3864512 $CellContext`k^4 $CellContext`\[Gamma]$$^10 - 
               4332 $CellContext`k $CellContext`\[Gamma]$$^11 + 
               605920 $CellContext`k^3 $CellContext`\[Gamma]$$^11 - 
               66989 $CellContext`k^2 $CellContext`\[Gamma]$$^12 + 
               1798596 $CellContext`k^4 $CellContext`\[Gamma]$$^12 + 
               990 $CellContext`k $CellContext`\[Gamma]$$^13 - 
               198480 $CellContext`k^3 $CellContext`\[Gamma]$$^13 + 
               15664 $CellContext`k^2 $CellContext`\[Gamma]$$^14 - 
               592896 $CellContext`k^4 $CellContext`\[Gamma]$$^14 - 
               120 $CellContext`k $CellContext`\[Gamma]$$^15 + 
               42928 $CellContext`k^3 $CellContext`\[Gamma]$$^15 - 
               2239 $CellContext`k^2 $CellContext`\[Gamma]$$^16 + 
               137776 $CellContext`k^4 $CellContext`\[Gamma]$$^16 + 
               6 $CellContext`k $CellContext`\[Gamma]$$^17 - 
               5888 $CellContext`k^3 $CellContext`\[Gamma]$$^17 + 
               178 $CellContext`k^2 $CellContext`\[Gamma]$$^18 - 
               22072 $CellContext`k^4 $CellContext`\[Gamma]$$^18 + 
               464 $CellContext`k^3 $CellContext`\[Gamma]$$^19 - 
               6 $CellContext`k^2 $CellContext`\[Gamma]$$^20 + 
               2320 $CellContext`k^4 $CellContext`\[Gamma]$$^20 - 
               16 $CellContext`k^3 $CellContext`\[Gamma]$$^21 - 
               144 $CellContext`k^4 $CellContext`\[Gamma]$$^22 + 
               4 $CellContext`k^4 $CellContext`\[Gamma]$$^24) (
                16 (512 $CellContext`k^2 - 
                   128 $CellContext`k $CellContext`\[Gamma]$$ + 
                   12 $CellContext`\[Gamma]$$^2 + 
                   96 $CellContext`k $CellContext`\[Gamma]$$^2 - 
                   1552 $CellContext`k^2 $CellContext`\[Gamma]$$^2 - 
                   12 $CellContext`\[Gamma]$$^3 + 
                   256 $CellContext`k $CellContext`\[Gamma]$$^3 - 
                   9 $CellContext`\[Gamma]$$^4 - 
                   144 $CellContext`k $CellContext`\[Gamma]$$^4 + 
                   1752 $CellContext`k^2 $CellContext`\[Gamma]$$^4 + 
                   6 $CellContext`\[Gamma]$$^5 - 
                   168 $CellContext`k $CellContext`\[Gamma]$$^5 + 
                   3 $CellContext`\[Gamma]$$^6 + 
                   54 $CellContext`k $CellContext`\[Gamma]$$^6 - 
                   937 $CellContext`k^2 $CellContext`\[Gamma]$$^6 + 
                   44 $CellContext`k $CellContext`\[Gamma]$$^7 - 
                   6 $CellContext`k $CellContext`\[Gamma]$$^8 + 
                   259 $CellContext`k^2 $CellContext`\[Gamma]$$^8 - 
                   4 $CellContext`k $CellContext`\[Gamma]$$^9 - 
                   36 $CellContext`k^2 $CellContext`\[Gamma]$$^10 + 
                   2 $CellContext`k^2 $CellContext`\[Gamma]$$^12)^3 - 
                144 ((-16) $CellContext`k $CellContext`\[Gamma]$$^2 + 
                 2 $CellContext`\[Gamma]$$^3 - $CellContext`\[Gamma]$$^4 + 
                 24 $CellContext`k $CellContext`\[Gamma]$$^4 - $CellContext`\
\[Gamma]$$^5 - 
                 9 $CellContext`k $CellContext`\[Gamma]$$^6 + $CellContext`k \
$CellContext`\[Gamma]$$^8) (512 $CellContext`k^2 - 
                 128 $CellContext`k $CellContext`\[Gamma]$$ + 
                 12 $CellContext`\[Gamma]$$^2 + 
                 96 $CellContext`k $CellContext`\[Gamma]$$^2 - 
                 1552 $CellContext`k^2 $CellContext`\[Gamma]$$^2 - 
                 12 $CellContext`\[Gamma]$$^3 + 
                 256 $CellContext`k $CellContext`\[Gamma]$$^3 - 
                 9 $CellContext`\[Gamma]$$^4 - 
                 144 $CellContext`k $CellContext`\[Gamma]$$^4 + 
                 1752 $CellContext`k^2 $CellContext`\[Gamma]$$^4 + 
                 6 $CellContext`\[Gamma]$$^5 - 
                 168 $CellContext`k $CellContext`\[Gamma]$$^5 + 
                 3 $CellContext`\[Gamma]$$^6 + 
                 54 $CellContext`k $CellContext`\[Gamma]$$^6 - 
                 937 $CellContext`k^2 $CellContext`\[Gamma]$$^6 + 
                 44 $CellContext`k $CellContext`\[Gamma]$$^7 - 
                 6 $CellContext`k $CellContext`\[Gamma]$$^8 + 
                 259 $CellContext`k^2 $CellContext`\[Gamma]$$^8 - 
                 4 $CellContext`k $CellContext`\[Gamma]$$^9 - 
                 36 $CellContext`k^2 $CellContext`\[Gamma]$$^10 + 
                 2 $CellContext`k^2 $CellContext`\[Gamma]$$^12) (
                 128 $CellContext`k - 1024 $CellContext`k^2 + 
                 512 $CellContext`k^3 + 16 $CellContext`\[Gamma]$$ + 
                 256 $CellContext`k $CellContext`\[Gamma]$$ - 
                 64 $CellContext`k^2 $CellContext`\[Gamma]$$ - 
                 24 $CellContext`\[Gamma]$$^2 - 
                 544 $CellContext`k $CellContext`\[Gamma]$$^2 + 
                 3104 $CellContext`k^2 $CellContext`\[Gamma]$$^2 - 
                 1536 $CellContext`k^3 $CellContext`\[Gamma]$$^2 - 
                 12 $CellContext`\[Gamma]$$^3 - 
                 512 $CellContext`k $CellContext`\[Gamma]$$^3 + 
                 128 $CellContext`k^2 $CellContext`\[Gamma]$$^3 + 
                 22 $CellContext`\[Gamma]$$^4 + 
                 712 $CellContext`k $CellContext`\[Gamma]$$^4 - 
                 3504 $CellContext`k^2 $CellContext`\[Gamma]$$^4 + 
                 1728 $CellContext`k^3 $CellContext`\[Gamma]$$^4 + 
                 6 $CellContext`\[Gamma]$$^5 + 
                 336 $CellContext`k $CellContext`\[Gamma]$$^5 - 
                 84 $CellContext`k^2 $CellContext`\[Gamma]$$^5 - 
                 6 $CellContext`\[Gamma]$$^6 - 
                 390 $CellContext`k $CellContext`\[Gamma]$$^6 + 
                 1874 $CellContext`k^2 $CellContext`\[Gamma]$$^6 - 
                 928 $CellContext`k^3 $CellContext`\[Gamma]$$^6 - 
                 2 $CellContext`\[Gamma]$$^7 - 
                 88 $CellContext`k $CellContext`\[Gamma]$$^7 + 
                 22 $CellContext`k^2 $CellContext`\[Gamma]$$^7 + 
                 109 $CellContext`k $CellContext`\[Gamma]$$^8 - 
                 518 $CellContext`k^2 $CellContext`\[Gamma]$$^8 + 
                 258 $CellContext`k^3 $CellContext`\[Gamma]$$^8 + 
                 8 $CellContext`k $CellContext`\[Gamma]$$^9 - 
                 2 $CellContext`k^2 $CellContext`\[Gamma]$$^9 - 
                 16 $CellContext`k $CellContext`\[Gamma]$$^10 + 
                 72 $CellContext`k^2 $CellContext`\[Gamma]$$^10 - 
                 36 $CellContext`k^3 $CellContext`\[Gamma]$$^10 + \
$CellContext`k $CellContext`\[Gamma]$$^12 - 
                 4 $CellContext`k^2 $CellContext`\[Gamma]$$^12 + 
                 2 $CellContext`k^3 $CellContext`\[Gamma]$$^12) + 
                108 $CellContext`\[Gamma]$$^4 (128 $CellContext`k - 
                   1024 $CellContext`k^2 + 512 $CellContext`k^3 + 
                   16 $CellContext`\[Gamma]$$ + 
                   256 $CellContext`k $CellContext`\[Gamma]$$ - 
                   64 $CellContext`k^2 $CellContext`\[Gamma]$$ - 
                   24 $CellContext`\[Gamma]$$^2 - 
                   544 $CellContext`k $CellContext`\[Gamma]$$^2 + 
                   3104 $CellContext`k^2 $CellContext`\[Gamma]$$^2 - 
                   1536 $CellContext`k^3 $CellContext`\[Gamma]$$^2 - 
                   12 $CellContext`\[Gamma]$$^3 - 
                   512 $CellContext`k $CellContext`\[Gamma]$$^3 + 
                   128 $CellContext`k^2 $CellContext`\[Gamma]$$^3 + 
                   22 $CellContext`\[Gamma]$$^4 + 
                   712 $CellContext`k $CellContext`\[Gamma]$$^4 - 
                   3504 $CellContext`k^2 $CellContext`\[Gamma]$$^4 + 
                   1728 $CellContext`k^3 $CellContext`\[Gamma]$$^4 + 
                   6 $CellContext`\[Gamma]$$^5 + 
                   336 $CellContext`k $CellContext`\[Gamma]$$^5 - 
                   84 $CellContext`k^2 $CellContext`\[Gamma]$$^5 - 
                   6 $CellContext`\[Gamma]$$^6 - 
                   390 $CellContext`k $CellContext`\[Gamma]$$^6 + 
                   1874 $CellContext`k^2 $CellContext`\[Gamma]$$^6 - 
                   928 $CellContext`k^3 $CellContext`\[Gamma]$$^6 - 
                   2 $CellContext`\[Gamma]$$^7 - 
                   88 $CellContext`k $CellContext`\[Gamma]$$^7 + 
                   22 $CellContext`k^2 $CellContext`\[Gamma]$$^7 + 
                   109 $CellContext`k $CellContext`\[Gamma]$$^8 - 
                   518 $CellContext`k^2 $CellContext`\[Gamma]$$^8 + 
                   258 $CellContext`k^3 $CellContext`\[Gamma]$$^8 + 
                   8 $CellContext`k $CellContext`\[Gamma]$$^9 - 
                   2 $CellContext`k^2 $CellContext`\[Gamma]$$^9 - 
                   16 $CellContext`k $CellContext`\[Gamma]$$^10 + 
                   72 $CellContext`k^2 $CellContext`\[Gamma]$$^10 - 
                   36 $CellContext`k^3 $CellContext`\[Gamma]$$^10 + \
$CellContext`k $CellContext`\[Gamma]$$^12 - 
                   4 $CellContext`k^2 $CellContext`\[Gamma]$$^12 + 
                   2 $CellContext`k^3 $CellContext`\[Gamma]$$^12)^2 + 
                432 ((-16) $CellContext`k $CellContext`\[Gamma]$$^2 + 
                   2 $CellContext`\[Gamma]$$^3 - $CellContext`\[Gamma]$$^4 + 
                   24 $CellContext`k $CellContext`\[Gamma]$$^4 - \
$CellContext`\[Gamma]$$^5 - 
                   9 $CellContext`k $CellContext`\[Gamma]$$^6 + \
$CellContext`k $CellContext`\[Gamma]$$^8)^2 (16 - 256 $CellContext`k + 
                  1152 $CellContext`k^2 - 1024 $CellContext`k^3 + 
                  256 $CellContext`k^4 - 32 $CellContext`\[Gamma]$$ - 
                  256 $CellContext`k $CellContext`\[Gamma]$$ + 
                  128 $CellContext`k^2 $CellContext`\[Gamma]$$ - 
                  8 $CellContext`\[Gamma]$$^2 + 
                  960 $CellContext`k $CellContext`\[Gamma]$$^2 - 
                  3552 $CellContext`k^2 $CellContext`\[Gamma]$$^2 + 
                  3072 $CellContext`k^3 $CellContext`\[Gamma]$$^2 - 
                  768 $CellContext`k^4 $CellContext`\[Gamma]$$^2 + 
                  40 $CellContext`\[Gamma]$$^3 + 
                  512 $CellContext`k $CellContext`\[Gamma]$$^3 - 
                  256 $CellContext`k^2 $CellContext`\[Gamma]$$^3 + \
$CellContext`\[Gamma]$$^4 - 1232 $CellContext`k $CellContext`\[Gamma]$$^4 + 
                  4072 $CellContext`k^2 $CellContext`\[Gamma]$$^4 - 
                  3456 $CellContext`k^3 $CellContext`\[Gamma]$$^4 + 
                  864 $CellContext`k^4 $CellContext`\[Gamma]$$^4 - 
                  20 $CellContext`\[Gamma]$$^5 - 
                  336 $CellContext`k $CellContext`\[Gamma]$$^5 + 
                  168 $CellContext`k^2 $CellContext`\[Gamma]$$^5 - 
                  2 $CellContext`\[Gamma]$$^6 + 
                  708 $CellContext`k $CellContext`\[Gamma]$$^6 - 
                  2210 $CellContext`k^2 $CellContext`\[Gamma]$$^6 + 
                  1856 $CellContext`k^3 $CellContext`\[Gamma]$$^6 - 
                  464 $CellContext`k^4 $CellContext`\[Gamma]$$^6 + 
                  4 $CellContext`\[Gamma]$$^7 + 
                  88 $CellContext`k $CellContext`\[Gamma]$$^7 - 
                  44 $CellContext`k^2 $CellContext`\[Gamma]$$^7 + \
$CellContext`\[Gamma]$$^8 - 210 $CellContext`k $CellContext`\[Gamma]$$^8 + 
                  621 $CellContext`k^2 $CellContext`\[Gamma]$$^8 - 
                  516 $CellContext`k^3 $CellContext`\[Gamma]$$^8 + 
                  129 $CellContext`k^4 $CellContext`\[Gamma]$$^8 - 
                  8 $CellContext`k $CellContext`\[Gamma]$$^9 + 
                  4 $CellContext`k^2 $CellContext`\[Gamma]$$^9 + 
                  32 $CellContext`k $CellContext`\[Gamma]$$^10 - 
                  88 $CellContext`k^2 $CellContext`\[Gamma]$$^10 + 
                  72 $CellContext`k^3 $CellContext`\[Gamma]$$^10 - 
                  18 $CellContext`k^4 $CellContext`\[Gamma]$$^10 - 
                  2 $CellContext`k $CellContext`\[Gamma]$$^12 + 
                  5 $CellContext`k^2 $CellContext`\[Gamma]$$^12 - 
                  4 $CellContext`k^3 $CellContext`\[Gamma]$$^12 + \
$CellContext`k^4 $CellContext`\[Gamma]$$^12) - 
                144 $CellContext`\[Gamma]$$^4 (512 $CellContext`k^2 - 
                 128 $CellContext`k $CellContext`\[Gamma]$$ + 
                 12 $CellContext`\[Gamma]$$^2 + 
                 96 $CellContext`k $CellContext`\[Gamma]$$^2 - 
                 1552 $CellContext`k^2 $CellContext`\[Gamma]$$^2 - 
                 12 $CellContext`\[Gamma]$$^3 + 
                 256 $CellContext`k $CellContext`\[Gamma]$$^3 - 
                 9 $CellContext`\[Gamma]$$^4 - 
                 144 $CellContext`k $CellContext`\[Gamma]$$^4 + 
                 1752 $CellContext`k^2 $CellContext`\[Gamma]$$^4 + 
                 6 $CellContext`\[Gamma]$$^5 - 
                 168 $CellContext`k $CellContext`\[Gamma]$$^5 + 
                 3 $CellContext`\[Gamma]$$^6 + 
                 54 $CellContext`k $CellContext`\[Gamma]$$^6 - 
                 937 $CellContext`k^2 $CellContext`\[Gamma]$$^6 + 
                 44 $CellContext`k $CellContext`\[Gamma]$$^7 - 
                 6 $CellContext`k $CellContext`\[Gamma]$$^8 + 
                 259 $CellContext`k^2 $CellContext`\[Gamma]$$^8 - 
                 4 $CellContext`k $CellContext`\[Gamma]$$^9 - 
                 36 $CellContext`k^2 $CellContext`\[Gamma]$$^10 + 
                 2 $CellContext`k^2 $CellContext`\[Gamma]$$^12) (16 - 
                 256 $CellContext`k + 1152 $CellContext`k^2 - 
                 1024 $CellContext`k^3 + 256 $CellContext`k^4 - 
                 32 $CellContext`\[Gamma]$$ - 
                 256 $CellContext`k $CellContext`\[Gamma]$$ + 
                 128 $CellContext`k^2 $CellContext`\[Gamma]$$ - 
                 8 $CellContext`\[Gamma]$$^2 + 
                 960 $CellContext`k $CellContext`\[Gamma]$$^2 - 
                 3552 $CellContext`k^2 $CellContext`\[Gamma]$$^2 + 
                 3072 $CellContext`k^3 $CellContext`\[Gamma]$$^2 - 
                 768 $CellContext`k^4 $CellContext`\[Gamma]$$^2 + 
                 40 $CellContext`\[Gamma]$$^3 + 
                 512 $CellContext`k $CellContext`\[Gamma]$$^3 - 
                 256 $CellContext`k^2 $CellContext`\[Gamma]$$^3 + \
$CellContext`\[Gamma]$$^4 - 1232 $CellContext`k $CellContext`\[Gamma]$$^4 + 
                 4072 $CellContext`k^2 $CellContext`\[Gamma]$$^4 - 
                 3456 $CellContext`k^3 $CellContext`\[Gamma]$$^4 + 
                 864 $CellContext`k^4 $CellContext`\[Gamma]$$^4 - 
                 20 $CellContext`\[Gamma]$$^5 - 
                 336 $CellContext`k $CellContext`\[Gamma]$$^5 + 
                 168 $CellContext`k^2 $CellContext`\[Gamma]$$^5 - 
                 2 $CellContext`\[Gamma]$$^6 + 
                 708 $CellContext`k $CellContext`\[Gamma]$$^6 - 
                 2210 $CellContext`k^2 $CellContext`\[Gamma]$$^6 + 
                 1856 $CellContext`k^3 $CellContext`\[Gamma]$$^6 - 
                 464 $CellContext`k^4 $CellContext`\[Gamma]$$^6 + 
                 4 $CellContext`\[Gamma]$$^7 + 
                 88 $CellContext`k $CellContext`\[Gamma]$$^7 - 
                 44 $CellContext`k^2 $CellContext`\[Gamma]$$^7 + \
$CellContext`\[Gamma]$$^8 - 210 $CellContext`k $CellContext`\[Gamma]$$^8 + 
                 621 $CellContext`k^2 $CellContext`\[Gamma]$$^8 - 
                 516 $CellContext`k^3 $CellContext`\[Gamma]$$^8 + 
                 129 $CellContext`k^4 $CellContext`\[Gamma]$$^8 - 
                 8 $CellContext`k $CellContext`\[Gamma]$$^9 + 
                 4 $CellContext`k^2 $CellContext`\[Gamma]$$^9 + 
                 32 $CellContext`k $CellContext`\[Gamma]$$^10 - 
                 88 $CellContext`k^2 $CellContext`\[Gamma]$$^10 + 
                 72 $CellContext`k^3 $CellContext`\[Gamma]$$^10 - 
                 18 $CellContext`k^4 $CellContext`\[Gamma]$$^10 - 
                 2 $CellContext`k $CellContext`\[Gamma]$$^12 + 
                 5 $CellContext`k^2 $CellContext`\[Gamma]$$^12 - 
                 4 $CellContext`k^3 $CellContext`\[Gamma]$$^12 + \
$CellContext`k^4 $CellContext`\[Gamma]$$^12) + ((-4) (
                    1048576 $CellContext`k^4 - 
                    524288 $CellContext`k^3 $CellContext`\[Gamma]$$ + 
                    163840 $CellContext`k^2 $CellContext`\[Gamma]$$^2 - 
                    6160384 $CellContext`k^4 $CellContext`\[Gamma]$$^2 - 
                    12288 $CellContext`k $CellContext`\[Gamma]$$^3 + 
                    2588672 $CellContext`k^3 $CellContext`\[Gamma]$$^3 - 
                    701440 $CellContext`k^2 $CellContext`\[Gamma]$$^4 + 
                    15929344 $CellContext`k^4 $CellContext`\[Gamma]$$^4 + 
                    43008 $CellContext`k $CellContext`\[Gamma]$$^5 - 
                    5488640 $CellContext`k^3 $CellContext`\[Gamma]$$^5 + 
                    1254400 $CellContext`k^2 $CellContext`\[Gamma]$$^6 - 
                    23941120 $CellContext`k^4 $CellContext`\[Gamma]$$^6 - 
                    59904 $CellContext`k $CellContext`\[Gamma]$$^7 + 
                    6574080 $CellContext`k^3 $CellContext`\[Gamma]$$^7 - 
                    1226624 $CellContext`k^2 $CellContext`\[Gamma]$$^8 + 
                    23287296 $CellContext`k^4 $CellContext`\[Gamma]$$^8 + 
                    43008 $CellContext`k $CellContext`\[Gamma]$$^9 - 
                    4929536 $CellContext`k^3 $CellContext`\[Gamma]$$^9 + 
                    723392 $CellContext`k^2 $CellContext`\[Gamma]$$^10 - 
                    15458048 $CellContext`k^4 $CellContext`\[Gamma]$$^10 - 
                    17328 $CellContext`k $CellContext`\[Gamma]$$^11 + 
                    2423680 $CellContext`k^3 $CellContext`\[Gamma]$$^11 - 
                    267956 $CellContext`k^2 $CellContext`\[Gamma]$$^12 + 
                    7194384 $CellContext`k^4 $CellContext`\[Gamma]$$^12 + 
                    3960 $CellContext`k $CellContext`\[Gamma]$$^13 - 
                    793920 $CellContext`k^3 $CellContext`\[Gamma]$$^13 + 
                    62656 $CellContext`k^2 $CellContext`\[Gamma]$$^14 - 
                    2371584 $CellContext`k^4 $CellContext`\[Gamma]$$^14 - 
                    480 $CellContext`k $CellContext`\[Gamma]$$^15 + 
                    171712 $CellContext`k^3 $CellContext`\[Gamma]$$^15 - 
                    8956 $CellContext`k^2 $CellContext`\[Gamma]$$^16 + 
                    551104 $CellContext`k^4 $CellContext`\[Gamma]$$^16 + 
                    24 $CellContext`k $CellContext`\[Gamma]$$^17 - 
                    23552 $CellContext`k^3 $CellContext`\[Gamma]$$^17 + 
                    712 $CellContext`k^2 $CellContext`\[Gamma]$$^18 - 
                    88288 $CellContext`k^4 $CellContext`\[Gamma]$$^18 + 
                    1856 $CellContext`k^3 $CellContext`\[Gamma]$$^19 - 
                    24 $CellContext`k^2 $CellContext`\[Gamma]$$^20 + 
                    9280 $CellContext`k^4 $CellContext`\[Gamma]$$^20 - 
                    64 $CellContext`k^3 $CellContext`\[Gamma]$$^21 - 
                    576 $CellContext`k^4 $CellContext`\[Gamma]$$^22 + 
                    16 $CellContext`k^4 $CellContext`\[Gamma]$$^24)^3 + (
                    16 (512 $CellContext`k^2 - 
                    128 $CellContext`k $CellContext`\[Gamma]$$ + 
                    12 $CellContext`\[Gamma]$$^2 + 
                    96 $CellContext`k $CellContext`\[Gamma]$$^2 - 
                    1552 $CellContext`k^2 $CellContext`\[Gamma]$$^2 - 
                    12 $CellContext`\[Gamma]$$^3 + 
                    256 $CellContext`k $CellContext`\[Gamma]$$^3 - 
                    9 $CellContext`\[Gamma]$$^4 - 
                    144 $CellContext`k $CellContext`\[Gamma]$$^4 + 
                    1752 $CellContext`k^2 $CellContext`\[Gamma]$$^4 + 
                    6 $CellContext`\[Gamma]$$^5 - 
                    168 $CellContext`k $CellContext`\[Gamma]$$^5 + 
                    3 $CellContext`\[Gamma]$$^6 + 
                    54 $CellContext`k $CellContext`\[Gamma]$$^6 - 
                    937 $CellContext`k^2 $CellContext`\[Gamma]$$^6 + 
                    44 $CellContext`k $CellContext`\[Gamma]$$^7 - 
                    6 $CellContext`k $CellContext`\[Gamma]$$^8 + 
                    259 $CellContext`k^2 $CellContext`\[Gamma]$$^8 - 
                    4 $CellContext`k $CellContext`\[Gamma]$$^9 - 
                    36 $CellContext`k^2 $CellContext`\[Gamma]$$^10 + 
                    2 $CellContext`k^2 $CellContext`\[Gamma]$$^12)^3 - 
                    144 ((-16) $CellContext`k $CellContext`\[Gamma]$$^2 + 
                    2 $CellContext`\[Gamma]$$^3 - $CellContext`\[Gamma]$$^4 + 
                    24 $CellContext`k $CellContext`\[Gamma]$$^4 - \
$CellContext`\[Gamma]$$^5 - 
                    9 $CellContext`k $CellContext`\[Gamma]$$^6 + \
$CellContext`k $CellContext`\[Gamma]$$^8) (512 $CellContext`k^2 - 
                    128 $CellContext`k $CellContext`\[Gamma]$$ + 
                    12 $CellContext`\[Gamma]$$^2 + 
                    96 $CellContext`k $CellContext`\[Gamma]$$^2 - 
                    1552 $CellContext`k^2 $CellContext`\[Gamma]$$^2 - 
                    12 $CellContext`\[Gamma]$$^3 + 
                    256 $CellContext`k $CellContext`\[Gamma]$$^3 - 
                    9 $CellContext`\[Gamma]$$^4 - 
                    144 $CellContext`k $CellContext`\[Gamma]$$^4 + 
                    1752 $CellContext`k^2 $CellContext`\[Gamma]$$^4 + 
                    6 $CellContext`\[Gamma]$$^5 - 
                    168 $CellContext`k $CellContext`\[Gamma]$$^5 + 
                    3 $CellContext`\[Gamma]$$^6 + 
                    54 $CellContext`k $CellContext`\[Gamma]$$^6 - 
                    937 $CellContext`k^2 $CellContext`\[Gamma]$$^6 + 
                    44 $CellContext`k $CellContext`\[Gamma]$$^7 - 
                    6 $CellContext`k $CellContext`\[Gamma]$$^8 + 
                    259 $CellContext`k^2 $CellContext`\[Gamma]$$^8 - 
                    4 $CellContext`k $CellContext`\[Gamma]$$^9 - 
                    36 $CellContext`k^2 $CellContext`\[Gamma]$$^10 + 
                    2 $CellContext`k^2 $CellContext`\[Gamma]$$^12) (
                    128 $CellContext`k - 1024 $CellContext`k^2 + 
                    512 $CellContext`k^3 + 16 $CellContext`\[Gamma]$$ + 
                    256 $CellContext`k $CellContext`\[Gamma]$$ - 
                    64 $CellContext`k^2 $CellContext`\[Gamma]$$ - 
                    24 $CellContext`\[Gamma]$$^2 - 
                    544 $CellContext`k $CellContext`\[Gamma]$$^2 + 
                    3104 $CellContext`k^2 $CellContext`\[Gamma]$$^2 - 
                    1536 $CellContext`k^3 $CellContext`\[Gamma]$$^2 - 
                    12 $CellContext`\[Gamma]$$^3 - 
                    512 $CellContext`k $CellContext`\[Gamma]$$^3 + 
                    128 $CellContext`k^2 $CellContext`\[Gamma]$$^3 + 
                    22 $CellContext`\[Gamma]$$^4 + 
                    712 $CellContext`k $CellContext`\[Gamma]$$^4 - 
                    3504 $CellContext`k^2 $CellContext`\[Gamma]$$^4 + 
                    1728 $CellContext`k^3 $CellContext`\[Gamma]$$^4 + 
                    6 $CellContext`\[Gamma]$$^5 + 
                    336 $CellContext`k $CellContext`\[Gamma]$$^5 - 
                    84 $CellContext`k^2 $CellContext`\[Gamma]$$^5 - 
                    6 $CellContext`\[Gamma]$$^6 - 
                    390 $CellContext`k $CellContext`\[Gamma]$$^6 + 
                    1874 $CellContext`k^2 $CellContext`\[Gamma]$$^6 - 
                    928 $CellContext`k^3 $CellContext`\[Gamma]$$^6 - 
                    2 $CellContext`\[Gamma]$$^7 - 
                    88 $CellContext`k $CellContext`\[Gamma]$$^7 + 
                    22 $CellContext`k^2 $CellContext`\[Gamma]$$^7 + 
                    109 $CellContext`k $CellContext`\[Gamma]$$^8 - 
                    518 $CellContext`k^2 $CellContext`\[Gamma]$$^8 + 
                    258 $CellContext`k^3 $CellContext`\[Gamma]$$^8 + 
                    8 $CellContext`k $CellContext`\[Gamma]$$^9 - 
                    2 $CellContext`k^2 $CellContext`\[Gamma]$$^9 - 
                    16 $CellContext`k $CellContext`\[Gamma]$$^10 + 
                    72 $CellContext`k^2 $CellContext`\[Gamma]$$^10 - 
                    36 $CellContext`k^3 $CellContext`\[Gamma]$$^10 + \
$CellContext`k $CellContext`\[Gamma]$$^12 - 
                    4 $CellContext`k^2 $CellContext`\[Gamma]$$^12 + 
                    2 $CellContext`k^3 $CellContext`\[Gamma]$$^12) + 
                    108 $CellContext`\[Gamma]$$^4 (128 $CellContext`k - 
                    1024 $CellContext`k^2 + 512 $CellContext`k^3 + 
                    16 $CellContext`\[Gamma]$$ + 
                    256 $CellContext`k $CellContext`\[Gamma]$$ - 
                    64 $CellContext`k^2 $CellContext`\[Gamma]$$ - 
                    24 $CellContext`\[Gamma]$$^2 - 
                    544 $CellContext`k $CellContext`\[Gamma]$$^2 + 
                    3104 $CellContext`k^2 $CellContext`\[Gamma]$$^2 - 
                    1536 $CellContext`k^3 $CellContext`\[Gamma]$$^2 - 
                    12 $CellContext`\[Gamma]$$^3 - 
                    512 $CellContext`k $CellContext`\[Gamma]$$^3 + 
                    128 $CellContext`k^2 $CellContext`\[Gamma]$$^3 + 
                    22 $CellContext`\[Gamma]$$^4 + 
                    712 $CellContext`k $CellContext`\[Gamma]$$^4 - 
                    3504 $CellContext`k^2 $CellContext`\[Gamma]$$^4 + 
                    1728 $CellContext`k^3 $CellContext`\[Gamma]$$^4 + 
                    6 $CellContext`\[Gamma]$$^5 + 
                    336 $CellContext`k $CellContext`\[Gamma]$$^5 - 
                    84 $CellContext`k^2 $CellContext`\[Gamma]$$^5 - 
                    6 $CellContext`\[Gamma]$$^6 - 
                    390 $CellContext`k $CellContext`\[Gamma]$$^6 + 
                    1874 $CellContext`k^2 $CellContext`\[Gamma]$$^6 - 
                    928 $CellContext`k^3 $CellContext`\[Gamma]$$^6 - 
                    2 $CellContext`\[Gamma]$$^7 - 
                    88 $CellContext`k $CellContext`\[Gamma]$$^7 + 
                    22 $CellContext`k^2 $CellContext`\[Gamma]$$^7 + 
                    109 $CellContext`k $CellContext`\[Gamma]$$^8 - 
                    518 $CellContext`k^2 $CellContext`\[Gamma]$$^8 + 
                    258 $CellContext`k^3 $CellContext`\[Gamma]$$^8 + 
                    8 $CellContext`k $CellContext`\[Gamma]$$^9 - 
                    2 $CellContext`k^2 $CellContext`\[Gamma]$$^9 - 
                    16 $CellContext`k $CellContext`\[Gamma]$$^10 + 
                    72 $CellContext`k^2 $CellContext`\[Gamma]$$^10 - 
                    36 $CellContext`k^3 $CellContext`\[Gamma]$$^10 + \
$CellContext`k $CellContext`\[Gamma]$$^12 - 
                    4 $CellContext`k^2 $CellContext`\[Gamma]$$^12 + 
                    2 $CellContext`k^3 $CellContext`\[Gamma]$$^12)^2 + 
                    432 ((-16) $CellContext`k $CellContext`\[Gamma]$$^2 + 
                    2 $CellContext`\[Gamma]$$^3 - $CellContext`\[Gamma]$$^4 + 
                    
                    24 $CellContext`k $CellContext`\[Gamma]$$^4 - \
$CellContext`\[Gamma]$$^5 - 
                    9 $CellContext`k $CellContext`\[Gamma]$$^6 + \
$CellContext`k $CellContext`\[Gamma]$$^8)^2 (16 - 256 $CellContext`k + 
                    1152 $CellContext`k^2 - 1024 $CellContext`k^3 + 
                    256 $CellContext`k^4 - 32 $CellContext`\[Gamma]$$ - 
                    256 $CellContext`k $CellContext`\[Gamma]$$ + 
                    128 $CellContext`k^2 $CellContext`\[Gamma]$$ - 
                    8 $CellContext`\[Gamma]$$^2 + 
                    960 $CellContext`k $CellContext`\[Gamma]$$^2 - 
                    3552 $CellContext`k^2 $CellContext`\[Gamma]$$^2 + 
                    3072 $CellContext`k^3 $CellContext`\[Gamma]$$^2 - 
                    768 $CellContext`k^4 $CellContext`\[Gamma]$$^2 + 
                    40 $CellContext`\[Gamma]$$^3 + 
                    512 $CellContext`k $CellContext`\[Gamma]$$^3 - 
                    256 $CellContext`k^2 $CellContext`\[Gamma]$$^3 + \
$CellContext`\[Gamma]$$^4 - 1232 $CellContext`k $CellContext`\[Gamma]$$^4 + 
                    4072 $CellContext`k^2 $CellContext`\[Gamma]$$^4 - 
                    3456 $CellContext`k^3 $CellContext`\[Gamma]$$^4 + 
                    864 $CellContext`k^4 $CellContext`\[Gamma]$$^4 - 
                    20 $CellContext`\[Gamma]$$^5 - 
                    336 $CellContext`k $CellContext`\[Gamma]$$^5 + 
                    168 $CellContext`k^2 $CellContext`\[Gamma]$$^5 - 
                    2 $CellContext`\[Gamma]$$^6 + 
                    708 $CellContext`k $CellContext`\[Gamma]$$^6 - 
                    2210 $CellContext`k^2 $CellContext`\[Gamma]$$^6 + 
                    1856 $CellContext`k^3 $CellContext`\[Gamma]$$^6 - 
                    464 $CellContext`k^4 $CellContext`\[Gamma]$$^6 + 
                    4 $CellContext`\[Gamma]$$^7 + 
                    88 $CellContext`k $CellContext`\[Gamma]$$^7 - 
                    44 $CellContext`k^2 $CellContext`\[Gamma]$$^7 + \
$CellContext`\[Gamma]$$^8 - 210 $CellContext`k $CellContext`\[Gamma]$$^8 + 
                    621 $CellContext`k^2 $CellContext`\[Gamma]$$^8 - 
                    516 $CellContext`k^3 $CellContext`\[Gamma]$$^8 + 
                    129 $CellContext`k^4 $CellContext`\[Gamma]$$^8 - 
                    8 $CellContext`k $CellContext`\[Gamma]$$^9 + 
                    4 $CellContext`k^2 $CellContext`\[Gamma]$$^9 + 
                    32 $CellContext`k $CellContext`\[Gamma]$$^10 - 
                    88 $CellContext`k^2 $CellContext`\[Gamma]$$^10 + 
                    72 $CellContext`k^3 $CellContext`\[Gamma]$$^10 - 
                    18 $CellContext`k^4 $CellContext`\[Gamma]$$^10 - 
                    2 $CellContext`k $CellContext`\[Gamma]$$^12 + 
                    5 $CellContext`k^2 $CellContext`\[Gamma]$$^12 - 
                    4 $CellContext`k^3 $CellContext`\[Gamma]$$^12 + \
$CellContext`k^4 $CellContext`\[Gamma]$$^12) - 
                    144 $CellContext`\[Gamma]$$^4 (512 $CellContext`k^2 - 
                    128 $CellContext`k $CellContext`\[Gamma]$$ + 
                    12 $CellContext`\[Gamma]$$^2 + 
                    96 $CellContext`k $CellContext`\[Gamma]$$^2 - 
                    1552 $CellContext`k^2 $CellContext`\[Gamma]$$^2 - 
                    12 $CellContext`\[Gamma]$$^3 + 
                    256 $CellContext`k $CellContext`\[Gamma]$$^3 - 
                    9 $CellContext`\[Gamma]$$^4 - 
                    144 $CellContext`k $CellContext`\[Gamma]$$^4 + 
                    1752 $CellContext`k^2 $CellContext`\[Gamma]$$^4 + 
                    6 $CellContext`\[Gamma]$$^5 - 
                    168 $CellContext`k $CellContext`\[Gamma]$$^5 + 
                    3 $CellContext`\[Gamma]$$^6 + 
                    54 $CellContext`k $CellContext`\[Gamma]$$^6 - 
                    937 $CellContext`k^2 $CellContext`\[Gamma]$$^6 + 
                    44 $CellContext`k $CellContext`\[Gamma]$$^7 - 
                    6 $CellContext`k $CellContext`\[Gamma]$$^8 + 
                    259 $CellContext`k^2 $CellContext`\[Gamma]$$^8 - 
                    4 $CellContext`k $CellContext`\[Gamma]$$^9 - 
                    36 $CellContext`k^2 $CellContext`\[Gamma]$$^10 + 
                    2 $CellContext`k^2 $CellContext`\[Gamma]$$^12) (16 - 
                    256 $CellContext`k + 1152 $CellContext`k^2 - 
                    1024 $CellContext`k^3 + 256 $CellContext`k^4 - 
                    32 $CellContext`\[Gamma]$$ - 
                    256 $CellContext`k $CellContext`\[Gamma]$$ + 
                    128 $CellContext`k^2 $CellContext`\[Gamma]$$ - 
                    8 $CellContext`\[Gamma]$$^2 + 
                    960 $CellContext`k $CellContext`\[Gamma]$$^2 - 
                    3552 $CellContext`k^2 $CellContext`\[Gamma]$$^2 + 
                    3072 $CellContext`k^3 $CellContext`\[Gamma]$$^2 - 
                    768 $CellContext`k^4 $CellContext`\[Gamma]$$^2 + 
                    40 $CellContext`\[Gamma]$$^3 + 
                    512 $CellContext`k $CellContext`\[Gamma]$$^3 - 
                    256 $CellContext`k^2 $CellContext`\[Gamma]$$^3 + \
$CellContext`\[Gamma]$$^4 - 1232 $CellContext`k $CellContext`\[Gamma]$$^4 + 
                    4072 $CellContext`k^2 $CellContext`\[Gamma]$$^4 - 
                    3456 $CellContext`k^3 $CellContext`\[Gamma]$$^4 + 
                    864 $CellContext`k^4 $CellContext`\[Gamma]$$^4 - 
                    20 $CellContext`\[Gamma]$$^5 - 
                    336 $CellContext`k $CellContext`\[Gamma]$$^5 + 
                    168 $CellContext`k^2 $CellContext`\[Gamma]$$^5 - 
                    2 $CellContext`\[Gamma]$$^6 + 
                    708 $CellContext`k $CellContext`\[Gamma]$$^6 - 
                    2210 $CellContext`k^2 $CellContext`\[Gamma]$$^6 + 
                    1856 $CellContext`k^3 $CellContext`\[Gamma]$$^6 - 
                    464 $CellContext`k^4 $CellContext`\[Gamma]$$^6 + 
                    4 $CellContext`\[Gamma]$$^7 + 
                    88 $CellContext`k $CellContext`\[Gamma]$$^7 - 
                    44 $CellContext`k^2 $CellContext`\[Gamma]$$^7 + \
$CellContext`\[Gamma]$$^8 - 210 $CellContext`k $CellContext`\[Gamma]$$^8 + 
                    621 $CellContext`k^2 $CellContext`\[Gamma]$$^8 - 
                    516 $CellContext`k^3 $CellContext`\[Gamma]$$^8 + 
                    129 $CellContext`k^4 $CellContext`\[Gamma]$$^8 - 
                    8 $CellContext`k $CellContext`\[Gamma]$$^9 + 
                    4 $CellContext`k^2 $CellContext`\[Gamma]$$^9 + 
                    32 $CellContext`k $CellContext`\[Gamma]$$^10 - 
                    88 $CellContext`k^2 $CellContext`\[Gamma]$$^10 + 
                    72 $CellContext`k^3 $CellContext`\[Gamma]$$^10 - 
                    18 $CellContext`k^4 $CellContext`\[Gamma]$$^10 - 
                    2 $CellContext`k $CellContext`\[Gamma]$$^12 + 
                    5 $CellContext`k^2 $CellContext`\[Gamma]$$^12 - 
                    4 $CellContext`k^3 $CellContext`\[Gamma]$$^12 + \
$CellContext`k^4 $CellContext`\[Gamma]$$^12))^2)^Rational[1, 2])^
               Rational[-1, 3] + 
             Rational[1, 3] 
              2^Rational[-1, 3] $CellContext`\[Gamma]$$^(-4) (
                16 (512 $CellContext`k^2 - 
                   128 $CellContext`k $CellContext`\[Gamma]$$ + 
                   12 $CellContext`\[Gamma]$$^2 + 
                   96 $CellContext`k $CellContext`\[Gamma]$$^2 - 
                   1552 $CellContext`k^2 $CellContext`\[Gamma]$$^2 - 
                   12 $CellContext`\[Gamma]$$^3 + 
                   256 $CellContext`k $CellContext`\[Gamma]$$^3 - 
                   9 $CellContext`\[Gamma]$$^4 - 
                   144 $CellContext`k $CellContext`\[Gamma]$$^4 + 
                   1752 $CellContext`k^2 $CellContext`\[Gamma]$$^4 + 
                   6 $CellContext`\[Gamma]$$^5 - 
                   168 $CellContext`k $CellContext`\[Gamma]$$^5 + 
                   3 $CellContext`\[Gamma]$$^6 + 
                   54 $CellContext`k $CellContext`\[Gamma]$$^6 - 
                   937 $CellContext`k^2 $CellContext`\[Gamma]$$^6 + 
                   44 $CellContext`k $CellContext`\[Gamma]$$^7 - 
                   6 $CellContext`k $CellContext`\[Gamma]$$^8 + 
                   259 $CellContext`k^2 $CellContext`\[Gamma]$$^8 - 
                   4 $CellContext`k $CellContext`\[Gamma]$$^9 - 
                   36 $CellContext`k^2 $CellContext`\[Gamma]$$^10 + 
                   2 $CellContext`k^2 $CellContext`\[Gamma]$$^12)^3 - 
                144 ((-16) $CellContext`k $CellContext`\[Gamma]$$^2 + 
                 2 $CellContext`\[Gamma]$$^3 - $CellContext`\[Gamma]$$^4 + 
                 24 $CellContext`k $CellContext`\[Gamma]$$^4 - $CellContext`\
\[Gamma]$$^5 - 
                 9 $CellContext`k $CellContext`\[Gamma]$$^6 + $CellContext`k \
$CellContext`\[Gamma]$$^8) (512 $CellContext`k^2 - 
                 128 $CellContext`k $CellContext`\[Gamma]$$ + 
                 12 $CellContext`\[Gamma]$$^2 + 
                 96 $CellContext`k $CellContext`\[Gamma]$$^2 - 
                 1552 $CellContext`k^2 $CellContext`\[Gamma]$$^2 - 
                 12 $CellContext`\[Gamma]$$^3 + 
                 256 $CellContext`k $CellContext`\[Gamma]$$^3 - 
                 9 $CellContext`\[Gamma]$$^4 - 
                 144 $CellContext`k $CellContext`\[Gamma]$$^4 + 
                 1752 $CellContext`k^2 $CellContext`\[Gamma]$$^4 + 
                 6 $CellContext`\[Gamma]$$^5 - 
                 168 $CellContext`k $CellContext`\[Gamma]$$^5 + 
                 3 $CellContext`\[Gamma]$$^6 + 
                 54 $CellContext`k $CellContext`\[Gamma]$$^6 - 
                 937 $CellContext`k^2 $CellContext`\[Gamma]$$^6 + 
                 44 $CellContext`k $CellContext`\[Gamma]$$^7 - 
                 6 $CellContext`k $CellContext`\[Gamma]$$^8 + 
                 259 $CellContext`k^2 $CellContext`\[Gamma]$$^8 - 
                 4 $CellContext`k $CellContext`\[Gamma]$$^9 - 
                 36 $CellContext`k^2 $CellContext`\[Gamma]$$^10 + 
                 2 $CellContext`k^2 $CellContext`\[Gamma]$$^12) (
                 128 $CellContext`k - 1024 $CellContext`k^2 + 
                 512 $CellContext`k^3 + 16 $CellContext`\[Gamma]$$ + 
                 256 $CellContext`k $CellContext`\[Gamma]$$ - 
                 64 $CellContext`k^2 $CellContext`\[Gamma]$$ - 
                 24 $CellContext`\[Gamma]$$^2 - 
                 544 $CellContext`k $CellContext`\[Gamma]$$^2 + 
                 3104 $CellContext`k^2 $CellContext`\[Gamma]$$^2 - 
                 1536 $CellContext`k^3 $CellContext`\[Gamma]$$^2 - 
                 12 $CellContext`\[Gamma]$$^3 - 
                 512 $CellContext`k $CellContext`\[Gamma]$$^3 + 
                 128 $CellContext`k^2 $CellContext`\[Gamma]$$^3 + 
                 22 $CellContext`\[Gamma]$$^4 + 
                 712 $CellContext`k $CellContext`\[Gamma]$$^4 - 
                 3504 $CellContext`k^2 $CellContext`\[Gamma]$$^4 + 
                 1728 $CellContext`k^3 $CellContext`\[Gamma]$$^4 + 
                 6 $CellContext`\[Gamma]$$^5 + 
                 336 $CellContext`k $CellContext`\[Gamma]$$^5 - 
                 84 $CellContext`k^2 $CellContext`\[Gamma]$$^5 - 
                 6 $CellContext`\[Gamma]$$^6 - 
                 390 $CellContext`k $CellContext`\[Gamma]$$^6 + 
                 1874 $CellContext`k^2 $CellContext`\[Gamma]$$^6 - 
                 928 $CellContext`k^3 $CellContext`\[Gamma]$$^6 - 
                 2 $CellContext`\[Gamma]$$^7 - 
                 88 $CellContext`k $CellContext`\[Gamma]$$^7 + 
                 22 $CellContext`k^2 $CellContext`\[Gamma]$$^7 + 
                 109 $CellContext`k $CellContext`\[Gamma]$$^8 - 
                 518 $CellContext`k^2 $CellContext`\[Gamma]$$^8 + 
                 258 $CellContext`k^3 $CellContext`\[Gamma]$$^8 + 
                 8 $CellContext`k $CellContext`\[Gamma]$$^9 - 
                 2 $CellContext`k^2 $CellContext`\[Gamma]$$^9 - 
                 16 $CellContext`k $CellContext`\[Gamma]$$^10 + 
                 72 $CellContext`k^2 $CellContext`\[Gamma]$$^10 - 
                 36 $CellContext`k^3 $CellContext`\[Gamma]$$^10 + \
$CellContext`k $CellContext`\[Gamma]$$^12 - 
                 4 $CellContext`k^2 $CellContext`\[Gamma]$$^12 + 
                 2 $CellContext`k^3 $CellContext`\[Gamma]$$^12) + 
                108 $CellContext`\[Gamma]$$^4 (128 $CellContext`k - 
                   1024 $CellContext`k^2 + 512 $CellContext`k^3 + 
                   16 $CellContext`\[Gamma]$$ + 
                   256 $CellContext`k $CellContext`\[Gamma]$$ - 
                   64 $CellContext`k^2 $CellContext`\[Gamma]$$ - 
                   24 $CellContext`\[Gamma]$$^2 - 
                   544 $CellContext`k $CellContext`\[Gamma]$$^2 + 
                   3104 $CellContext`k^2 $CellContext`\[Gamma]$$^2 - 
                   1536 $CellContext`k^3 $CellContext`\[Gamma]$$^2 - 
                   12 $CellContext`\[Gamma]$$^3 - 
                   512 $CellContext`k $CellContext`\[Gamma]$$^3 + 
                   128 $CellContext`k^2 $CellContext`\[Gamma]$$^3 + 
                   22 $CellContext`\[Gamma]$$^4 + 
                   712 $CellContext`k $CellContext`\[Gamma]$$^4 - 
                   3504 $CellContext`k^2 $CellContext`\[Gamma]$$^4 + 
                   1728 $CellContext`k^3 $CellContext`\[Gamma]$$^4 + 
                   6 $CellContext`\[Gamma]$$^5 + 
                   336 $CellContext`k $CellContext`\[Gamma]$$^5 - 
                   84 $CellContext`k^2 $CellContext`\[Gamma]$$^5 - 
                   6 $CellContext`\[Gamma]$$^6 - 
                   390 $CellContext`k $CellContext`\[Gamma]$$^6 + 
                   1874 $CellContext`k^2 $CellContext`\[Gamma]$$^6 - 
                   928 $CellContext`k^3 $CellContext`\[Gamma]$$^6 - 
                   2 $CellContext`\[Gamma]$$^7 - 
                   88 $CellContext`k $CellContext`\[Gamma]$$^7 + 
                   22 $CellContext`k^2 $CellContext`\[Gamma]$$^7 + 
                   109 $CellContext`k $CellContext`\[Gamma]$$^8 - 
                   518 $CellContext`k^2 $CellContext`\[Gamma]$$^8 + 
                   258 $CellContext`k^3 $CellContext`\[Gamma]$$^8 + 
                   8 $CellContext`k $CellContext`\[Gamma]$$^9 - 
                   2 $CellContext`k^2 $CellContext`\[Gamma]$$^9 - 
                   16 $CellContext`k $CellContext`\[Gamma]$$^10 + 
                   72 $CellContext`k^2 $CellContext`\[Gamma]$$^10 - 
                   36 $CellContext`k^3 $CellContext`\[Gamma]$$^10 + \
$CellContext`k $CellContext`\[Gamma]$$^12 - 
                   4 $CellContext`k^2 $CellContext`\[Gamma]$$^12 + 
                   2 $CellContext`k^3 $CellContext`\[Gamma]$$^12)^2 + 
                432 ((-16) $CellContext`k $CellContext`\[Gamma]$$^2 + 
                   2 $CellContext`\[Gamma]$$^3 - $CellContext`\[Gamma]$$^4 + 
                   24 $CellContext`k $CellContext`\[Gamma]$$^4 - \
$CellContext`\[Gamma]$$^5 - 
                   9 $CellContext`k $CellContext`\[Gamma]$$^6 + \
$CellContext`k $CellContext`\[Gamma]$$^8)^2 (16 - 256 $CellContext`k + 
                  1152 $CellContext`k^2 - 1024 $CellContext`k^3 + 
                  256 $CellContext`k^4 - 32 $CellContext`\[Gamma]$$ - 
                  256 $CellContext`k $CellContext`\[Gamma]$$ + 
                  128 $CellContext`k^2 $CellContext`\[Gamma]$$ - 
                  8 $CellContext`\[Gamma]$$^2 + 
                  960 $CellContext`k $CellContext`\[Gamma]$$^2 - 
                  3552 $CellContext`k^2 $CellContext`\[Gamma]$$^2 + 
                  3072 $CellContext`k^3 $CellContext`\[Gamma]$$^2 - 
                  768 $CellContext`k^4 $CellContext`\[Gamma]$$^2 + 
                  40 $CellContext`\[Gamma]$$^3 + 
                  512 $CellContext`k $CellContext`\[Gamma]$$^3 - 
                  256 $CellContext`k^2 $CellContext`\[Gamma]$$^3 + \
$CellContext`\[Gamma]$$^4 - 1232 $CellContext`k $CellContext`\[Gamma]$$^4 + 
                  4072 $CellContext`k^2 $CellContext`\[Gamma]$$^4 - 
                  3456 $CellContext`k^3 $CellContext`\[Gamma]$$^4 + 
                  864 $CellContext`k^4 $CellContext`\[Gamma]$$^4 - 
                  20 $CellContext`\[Gamma]$$^5 - 
                  336 $CellContext`k $CellContext`\[Gamma]$$^5 + 
                  168 $CellContext`k^2 $CellContext`\[Gamma]$$^5 - 
                  2 $CellContext`\[Gamma]$$^6 + 
                  708 $CellContext`k $CellContext`\[Gamma]$$^6 - 
                  2210 $CellContext`k^2 $CellContext`\[Gamma]$$^6 + 
                  1856 $CellContext`k^3 $CellContext`\[Gamma]$$^6 - 
                  464 $CellContext`k^4 $CellContext`\[Gamma]$$^6 + 
                  4 $CellContext`\[Gamma]$$^7 + 
                  88 $CellContext`k $CellContext`\[Gamma]$$^7 - 
                  44 $CellContext`k^2 $CellContext`\[Gamma]$$^7 + \
$CellContext`\[Gamma]$$^8 - 210 $CellContext`k $CellContext`\[Gamma]$$^8 + 
                  621 $CellContext`k^2 $CellContext`\[Gamma]$$^8 - 
                  516 $CellContext`k^3 $CellContext`\[Gamma]$$^8 + 
                  129 $CellContext`k^4 $CellContext`\[Gamma]$$^8 - 
                  8 $CellContext`k $CellContext`\[Gamma]$$^9 + 
                  4 $CellContext`k^2 $CellContext`\[Gamma]$$^9 + 
                  32 $CellContext`k $CellContext`\[Gamma]$$^10 - 
                  88 $CellContext`k^2 $CellContext`\[Gamma]$$^10 + 
                  72 $CellContext`k^3 $CellContext`\[Gamma]$$^10 - 
                  18 $CellContext`k^4 $CellContext`\[Gamma]$$^10 - 
                  2 $CellContext`k $CellContext`\[Gamma]$$^12 + 
                  5 $CellContext`k^2 $CellContext`\[Gamma]$$^12 - 
                  4 $CellContext`k^3 $CellContext`\[Gamma]$$^12 + \
$CellContext`k^4 $CellContext`\[Gamma]$$^12) - 
                144 $CellContext`\[Gamma]$$^4 (512 $CellContext`k^2 - 
                 128 $CellContext`k $CellContext`\[Gamma]$$ + 
                 12 $CellContext`\[Gamma]$$^2 + 
                 96 $CellContext`k $CellContext`\[Gamma]$$^2 - 
                 1552 $CellContext`k^2 $CellContext`\[Gamma]$$^2 - 
                 12 $CellContext`\[Gamma]$$^3 + 
                 256 $CellContext`k $CellContext`\[Gamma]$$^3 - 
                 9 $CellContext`\[Gamma]$$^4 - 
                 144 $CellContext`k $CellContext`\[Gamma]$$^4 + 
                 1752 $CellContext`k^2 $CellContext`\[Gamma]$$^4 + 
                 6 $CellContext`\[Gamma]$$^5 - 
                 168 $CellContext`k $CellContext`\[Gamma]$$^5 + 
                 3 $CellContext`\[Gamma]$$^6 + 
                 54 $CellContext`k $CellContext`\[Gamma]$$^6 - 
                 937 $CellContext`k^2 $CellContext`\[Gamma]$$^6 + 
                 44 $CellContext`k $CellContext`\[Gamma]$$^7 - 
                 6 $CellContext`k $CellContext`\[Gamma]$$^8 + 
                 259 $CellContext`k^2 $CellContext`\[Gamma]$$^8 - 
                 4 $CellContext`k $CellContext`\[Gamma]$$^9 - 
                 36 $CellContext`k^2 $CellContext`\[Gamma]$$^10 + 
                 2 $CellContext`k^2 $CellContext`\[Gamma]$$^12) (16 - 
                 256 $CellContext`k + 1152 $CellContext`k^2 - 
                 1024 $CellContext`k^3 + 256 $CellContext`k^4 - 
                 32 $CellContext`\[Gamma]$$ - 
                 256 $CellContext`k $CellContext`\[Gamma]$$ + 
                 128 $CellContext`k^2 $CellContext`\[Gamma]$$ - 
                 8 $CellContext`\[Gamma]$$^2 + 
                 960 $CellContext`k $CellContext`\[Gamma]$$^2 - 
                 3552 $CellContext`k^2 $CellContext`\[Gamma]$$^2 + 
                 3072 $CellContext`k^3 $CellContext`\[Gamma]$$^2 - 
                 768 $CellContext`k^4 $CellContext`\[Gamma]$$^2 + 
                 40 $CellContext`\[Gamma]$$^3 + 
                 512 $CellContext`k $CellContext`\[Gamma]$$^3 - 
                 256 $CellContext`k^2 $CellContext`\[Gamma]$$^3 + \
$CellContext`\[Gamma]$$^4 - 1232 $CellContext`k $CellContext`\[Gamma]$$^4 + 
                 4072 $CellContext`k^2 $CellContext`\[Gamma]$$^4 - 
                 3456 $CellContext`k^3 $CellContext`\[Gamma]$$^4 + 
                 864 $CellContext`k^4 $CellContext`\[Gamma]$$^4 - 
                 20 $CellContext`\[Gamma]$$^5 - 
                 336 $CellContext`k $CellContext`\[Gamma]$$^5 + 
                 168 $CellContext`k^2 $CellContext`\[Gamma]$$^5 - 
                 2 $CellContext`\[Gamma]$$^6 + 
                 708 $CellContext`k $CellContext`\[Gamma]$$^6 - 
                 2210 $CellContext`k^2 $CellContext`\[Gamma]$$^6 + 
                 1856 $CellContext`k^3 $CellContext`\[Gamma]$$^6 - 
                 464 $CellContext`k^4 $CellContext`\[Gamma]$$^6 + 
                 4 $CellContext`\[Gamma]$$^7 + 
                 88 $CellContext`k $CellContext`\[Gamma]$$^7 - 
                 44 $CellContext`k^2 $CellContext`\[Gamma]$$^7 + \
$CellContext`\[Gamma]$$^8 - 210 $CellContext`k $CellContext`\[Gamma]$$^8 + 
                 621 $CellContext`k^2 $CellContext`\[Gamma]$$^8 - 
                 516 $CellContext`k^3 $CellContext`\[Gamma]$$^8 + 
                 129 $CellContext`k^4 $CellContext`\[Gamma]$$^8 - 
                 8 $CellContext`k $CellContext`\[Gamma]$$^9 + 
                 4 $CellContext`k^2 $CellContext`\[Gamma]$$^9 + 
                 32 $CellContext`k $CellContext`\[Gamma]$$^10 - 
                 88 $CellContext`k^2 $CellContext`\[Gamma]$$^10 + 
                 72 $CellContext`k^3 $CellContext`\[Gamma]$$^10 - 
                 18 $CellContext`k^4 $CellContext`\[Gamma]$$^10 - 
                 2 $CellContext`k $CellContext`\[Gamma]$$^12 + 
                 5 $CellContext`k^2 $CellContext`\[Gamma]$$^12 - 
                 4 $CellContext`k^3 $CellContext`\[Gamma]$$^12 + \
$CellContext`k^4 $CellContext`\[Gamma]$$^12) + ((-4) (
                    1048576 $CellContext`k^4 - 
                    524288 $CellContext`k^3 $CellContext`\[Gamma]$$ + 
                    163840 $CellContext`k^2 $CellContext`\[Gamma]$$^2 - 
                    6160384 $CellContext`k^4 $CellContext`\[Gamma]$$^2 - 
                    12288 $CellContext`k $CellContext`\[Gamma]$$^3 + 
                    2588672 $CellContext`k^3 $CellContext`\[Gamma]$$^3 - 
                    701440 $CellContext`k^2 $CellContext`\[Gamma]$$^4 + 
                    15929344 $CellContext`k^4 $CellContext`\[Gamma]$$^4 + 
                    43008 $CellContext`k $CellContext`\[Gamma]$$^5 - 
                    5488640 $CellContext`k^3 $CellContext`\[Gamma]$$^5 + 
                    1254400 $CellContext`k^2 $CellContext`\[Gamma]$$^6 - 
                    23941120 $CellContext`k^4 $CellContext`\[Gamma]$$^6 - 
                    59904 $CellContext`k $CellContext`\[Gamma]$$^7 + 
                    6574080 $CellContext`k^3 $CellContext`\[Gamma]$$^7 - 
                    1226624 $CellContext`k^2 $CellContext`\[Gamma]$$^8 + 
                    23287296 $CellContext`k^4 $CellContext`\[Gamma]$$^8 + 
                    43008 $CellContext`k $CellContext`\[Gamma]$$^9 - 
                    4929536 $CellContext`k^3 $CellContext`\[Gamma]$$^9 + 
                    723392 $CellContext`k^2 $CellContext`\[Gamma]$$^10 - 
                    15458048 $CellContext`k^4 $CellContext`\[Gamma]$$^10 - 
                    17328 $CellContext`k $CellContext`\[Gamma]$$^11 + 
                    2423680 $CellContext`k^3 $CellContext`\[Gamma]$$^11 - 
                    267956 $CellContext`k^2 $CellContext`\[Gamma]$$^12 + 
                    7194384 $CellContext`k^4 $CellContext`\[Gamma]$$^12 + 
                    3960 $CellContext`k $CellContext`\[Gamma]$$^13 - 
                    793920 $CellContext`k^3 $CellContext`\[Gamma]$$^13 + 
                    62656 $CellContext`k^2 $CellContext`\[Gamma]$$^14 - 
                    2371584 $CellContext`k^4 $CellContext`\[Gamma]$$^14 - 
                    480 $CellContext`k $CellContext`\[Gamma]$$^15 + 
                    171712 $CellContext`k^3 $CellContext`\[Gamma]$$^15 - 
                    8956 $CellContext`k^2 $CellContext`\[Gamma]$$^16 + 
                    551104 $CellContext`k^4 $CellContext`\[Gamma]$$^16 + 
                    24 $CellContext`k $CellContext`\[Gamma]$$^17 - 
                    23552 $CellContext`k^3 $CellContext`\[Gamma]$$^17 + 
                    712 $CellContext`k^2 $CellContext`\[Gamma]$$^18 - 
                    88288 $CellContext`k^4 $CellContext`\[Gamma]$$^18 + 
                    1856 $CellContext`k^3 $CellContext`\[Gamma]$$^19 - 
                    24 $CellContext`k^2 $CellContext`\[Gamma]$$^20 + 
                    9280 $CellContext`k^4 $CellContext`\[Gamma]$$^20 - 
                    64 $CellContext`k^3 $CellContext`\[Gamma]$$^21 - 
                    576 $CellContext`k^4 $CellContext`\[Gamma]$$^22 + 
                    16 $CellContext`k^4 $CellContext`\[Gamma]$$^24)^3 + (
                    16 (512 $CellContext`k^2 - 
                    128 $CellContext`k $CellContext`\[Gamma]$$ + 
                    12 $CellContext`\[Gamma]$$^2 + 
                    96 $CellContext`k $CellContext`\[Gamma]$$^2 - 
                    1552 $CellContext`k^2 $CellContext`\[Gamma]$$^2 - 
                    12 $CellContext`\[Gamma]$$^3 + 
                    256 $CellContext`k $CellContext`\[Gamma]$$^3 - 
                    9 $CellContext`\[Gamma]$$^4 - 
                    144 $CellContext`k $CellContext`\[Gamma]$$^4 + 
                    1752 $CellContext`k^2 $CellContext`\[Gamma]$$^4 + 
                    6 $CellContext`\[Gamma]$$^5 - 
                    168 $CellContext`k $CellContext`\[Gamma]$$^5 + 
                    3 $CellContext`\[Gamma]$$^6 + 
                    54 $CellContext`k $CellContext`\[Gamma]$$^6 - 
                    937 $CellContext`k^2 $CellContext`\[Gamma]$$^6 + 
                    44 $CellContext`k $CellContext`\[Gamma]$$^7 - 
                    6 $CellContext`k $CellContext`\[Gamma]$$^8 + 
                    259 $CellContext`k^2 $CellContext`\[Gamma]$$^8 - 
                    4 $CellContext`k $CellContext`\[Gamma]$$^9 - 
                    36 $CellContext`k^2 $CellContext`\[Gamma]$$^10 + 
                    2 $CellContext`k^2 $CellContext`\[Gamma]$$^12)^3 - 
                    144 ((-16) $CellContext`k $CellContext`\[Gamma]$$^2 + 
                    2 $CellContext`\[Gamma]$$^3 - $CellContext`\[Gamma]$$^4 + 
                    24 $CellContext`k $CellContext`\[Gamma]$$^4 - \
$CellContext`\[Gamma]$$^5 - 
                    9 $CellContext`k $CellContext`\[Gamma]$$^6 + \
$CellContext`k $CellContext`\[Gamma]$$^8) (512 $CellContext`k^2 - 
                    128 $CellContext`k $CellContext`\[Gamma]$$ + 
                    12 $CellContext`\[Gamma]$$^2 + 
                    96 $CellContext`k $CellContext`\[Gamma]$$^2 - 
                    1552 $CellContext`k^2 $CellContext`\[Gamma]$$^2 - 
                    12 $CellContext`\[Gamma]$$^3 + 
                    256 $CellContext`k $CellContext`\[Gamma]$$^3 - 
                    9 $CellContext`\[Gamma]$$^4 - 
                    144 $CellContext`k $CellContext`\[Gamma]$$^4 + 
                    1752 $CellContext`k^2 $CellContext`\[Gamma]$$^4 + 
                    6 $CellContext`\[Gamma]$$^5 - 
                    168 $CellContext`k $CellContext`\[Gamma]$$^5 + 
                    3 $CellContext`\[Gamma]$$^6 + 
                    54 $CellContext`k $CellContext`\[Gamma]$$^6 - 
                    937 $CellContext`k^2 $CellContext`\[Gamma]$$^6 + 
                    44 $CellContext`k $CellContext`\[Gamma]$$^7 - 
                    6 $CellContext`k $CellContext`\[Gamma]$$^8 + 
                    259 $CellContext`k^2 $CellContext`\[Gamma]$$^8 - 
                    4 $CellContext`k $CellContext`\[Gamma]$$^9 - 
                    36 $CellContext`k^2 $CellContext`\[Gamma]$$^10 + 
                    2 $CellContext`k^2 $CellContext`\[Gamma]$$^12) (
                    128 $CellContext`k - 1024 $CellContext`k^2 + 
                    512 $CellContext`k^3 + 16 $CellContext`\[Gamma]$$ + 
                    256 $CellContext`k $CellContext`\[Gamma]$$ - 
                    64 $CellContext`k^2 $CellContext`\[Gamma]$$ - 
                    24 $CellContext`\[Gamma]$$^2 - 
                    544 $CellContext`k $CellContext`\[Gamma]$$^2 + 
                    3104 $CellContext`k^2 $CellContext`\[Gamma]$$^2 - 
                    1536 $CellContext`k^3 $CellContext`\[Gamma]$$^2 - 
                    12 $CellContext`\[Gamma]$$^3 - 
                    512 $CellContext`k $CellContext`\[Gamma]$$^3 + 
                    128 $CellContext`k^2 $CellContext`\[Gamma]$$^3 + 
                    22 $CellContext`\[Gamma]$$^4 + 
                    712 $CellContext`k $CellContext`\[Gamma]$$^4 - 
                    3504 $CellContext`k^2 $CellContext`\[Gamma]$$^4 + 
                    1728 $CellContext`k^3 $CellContext`\[Gamma]$$^4 + 
                    6 $CellContext`\[Gamma]$$^5 + 
                    336 $CellContext`k $CellContext`\[Gamma]$$^5 - 
                    84 $CellContext`k^2 $CellContext`\[Gamma]$$^5 - 
                    6 $CellContext`\[Gamma]$$^6 - 
                    390 $CellContext`k $CellContext`\[Gamma]$$^6 + 
                    1874 $CellContext`k^2 $CellContext`\[Gamma]$$^6 - 
                    928 $CellContext`k^3 $CellContext`\[Gamma]$$^6 - 
                    2 $CellContext`\[Gamma]$$^7 - 
                    88 $CellContext`k $CellContext`\[Gamma]$$^7 + 
                    22 $CellContext`k^2 $CellContext`\[Gamma]$$^7 + 
                    109 $CellContext`k $CellContext`\[Gamma]$$^8 - 
                    518 $CellContext`k^2 $CellContext`\[Gamma]$$^8 + 
                    258 $CellContext`k^3 $CellContext`\[Gamma]$$^8 + 
                    8 $CellContext`k $CellContext`\[Gamma]$$^9 - 
                    2 $CellContext`k^2 $CellContext`\[Gamma]$$^9 - 
                    16 $CellContext`k $CellContext`\[Gamma]$$^10 + 
                    72 $CellContext`k^2 $CellContext`\[Gamma]$$^10 - 
                    36 $CellContext`k^3 $CellContext`\[Gamma]$$^10 + \
$CellContext`k $CellContext`\[Gamma]$$^12 - 
                    4 $CellContext`k^2 $CellContext`\[Gamma]$$^12 + 
                    2 $CellContext`k^3 $CellContext`\[Gamma]$$^12) + 
                    108 $CellContext`\[Gamma]$$^4 (128 $CellContext`k - 
                    1024 $CellContext`k^2 + 512 $CellContext`k^3 + 
                    16 $CellContext`\[Gamma]$$ + 
                    256 $CellContext`k $CellContext`\[Gamma]$$ - 
                    64 $CellContext`k^2 $CellContext`\[Gamma]$$ - 
                    24 $CellContext`\[Gamma]$$^2 - 
                    544 $CellContext`k $CellContext`\[Gamma]$$^2 + 
                    3104 $CellContext`k^2 $CellContext`\[Gamma]$$^2 - 
                    1536 $CellContext`k^3 $CellContext`\[Gamma]$$^2 - 
                    12 $CellContext`\[Gamma]$$^3 - 
                    512 $CellContext`k $CellContext`\[Gamma]$$^3 + 
                    128 $CellContext`k^2 $CellContext`\[Gamma]$$^3 + 
                    22 $CellContext`\[Gamma]$$^4 + 
                    712 $CellContext`k $CellContext`\[Gamma]$$^4 - 
                    3504 $CellContext`k^2 $CellContext`\[Gamma]$$^4 + 
                    1728 $CellContext`k^3 $CellContext`\[Gamma]$$^4 + 
                    6 $CellContext`\[Gamma]$$^5 + 
                    336 $CellContext`k $CellContext`\[Gamma]$$^5 - 
                    84 $CellContext`k^2 $CellContext`\[Gamma]$$^5 - 
                    6 $CellContext`\[Gamma]$$^6 - 
                    390 $CellContext`k $CellContext`\[Gamma]$$^6 + 
                    1874 $CellContext`k^2 $CellContext`\[Gamma]$$^6 - 
                    928 $CellContext`k^3 $CellContext`\[Gamma]$$^6 - 
                    2 $CellContext`\[Gamma]$$^7 - 
                    88 $CellContext`k $CellContext`\[Gamma]$$^7 + 
                    22 $CellContext`k^2 $CellContext`\[Gamma]$$^7 + 
                    109 $CellContext`k $CellContext`\[Gamma]$$^8 - 
                    518 $CellContext`k^2 $CellContext`\[Gamma]$$^8 + 
                    258 $CellContext`k^3 $CellContext`\[Gamma]$$^8 + 
                    8 $CellContext`k $CellContext`\[Gamma]$$^9 - 
                    2 $CellContext`k^2 $CellContext`\[Gamma]$$^9 - 
                    16 $CellContext`k $CellContext`\[Gamma]$$^10 + 
                    72 $CellContext`k^2 $CellContext`\[Gamma]$$^10 - 
                    36 $CellContext`k^3 $CellContext`\[Gamma]$$^10 + \
$CellContext`k $CellContext`\[Gamma]$$^12 - 
                    4 $CellContext`k^2 $CellContext`\[Gamma]$$^12 + 
                    2 $CellContext`k^3 $CellContext`\[Gamma]$$^12)^2 + 
                    432 ((-16) $CellContext`k $CellContext`\[Gamma]$$^2 + 
                    2 $CellContext`\[Gamma]$$^3 - $CellContext`\[Gamma]$$^4 + 
                    24 $CellContext`k $CellContext`\[Gamma]$$^4 - \
$CellContext`\[Gamma]$$^5 - 
                    9 $CellContext`k $CellContext`\[Gamma]$$^6 + \
$CellContext`k $CellContext`\[Gamma]$$^8)^2 (16 - 256 $CellContext`k + 
                    1152 $CellContext`k^2 - 1024 $CellContext`k^3 + 
                    256 $CellContext`k^4 - 32 $CellContext`\[Gamma]$$ - 
                    256 $CellContext`k $CellContext`\[Gamma]$$ + 
                    128 $CellContext`k^2 $CellContext`\[Gamma]$$ - 
                    8 $CellContext`\[Gamma]$$^2 + 
                    960 $CellContext`k $CellContext`\[Gamma]$$^2 - 
                    3552 $CellContext`k^2 $CellContext`\[Gamma]$$^2 + 
                    3072 $CellContext`k^3 $CellContext`\[Gamma]$$^2 - 
                    768 $CellContext`k^4 $CellContext`\[Gamma]$$^2 + 
                    40 $CellContext`\[Gamma]$$^3 + 
                    512 $CellContext`k $CellContext`\[Gamma]$$^3 - 
                    256 $CellContext`k^2 $CellContext`\[Gamma]$$^3 + \
$CellContext`\[Gamma]$$^4 - 1232 $CellContext`k $CellContext`\[Gamma]$$^4 + 
                    4072 $CellContext`k^2 $CellContext`\[Gamma]$$^4 - 
                    3456 $CellContext`k^3 $CellContext`\[Gamma]$$^4 + 
                    864 $CellContext`k^4 $CellContext`\[Gamma]$$^4 - 
                    20 $CellContext`\[Gamma]$$^5 - 
                    336 $CellContext`k $CellContext`\[Gamma]$$^5 + 
                    168 $CellContext`k^2 $CellContext`\[Gamma]$$^5 - 
                    2 $CellContext`\[Gamma]$$^6 + 
                    708 $CellContext`k $CellContext`\[Gamma]$$^6 - 
                    2210 $CellContext`k^2 $CellContext`\[Gamma]$$^6 + 
                    1856 $CellContext`k^3 $CellContext`\[Gamma]$$^6 - 
                    464 $CellContext`k^4 $CellContext`\[Gamma]$$^6 + 
                    4 $CellContext`\[Gamma]$$^7 + 
                    88 $CellContext`k $CellContext`\[Gamma]$$^7 - 
                    44 $CellContext`k^2 $CellContext`\[Gamma]$$^7 + \
$CellContext`\[Gamma]$$^8 - 210 $CellContext`k $CellContext`\[Gamma]$$^8 + 
                    621 $CellContext`k^2 $CellContext`\[Gamma]$$^8 - 
                    516 $CellContext`k^3 $CellContext`\[Gamma]$$^8 + 
                    129 $CellContext`k^4 $CellContext`\[Gamma]$$^8 - 
                    8 $CellContext`k $CellContext`\[Gamma]$$^9 + 
                    4 $CellContext`k^2 $CellContext`\[Gamma]$$^9 + 
                    32 $CellContext`k $CellContext`\[Gamma]$$^10 - 
                    88 $CellContext`k^2 $CellContext`\[Gamma]$$^10 + 
                    72 $CellContext`k^3 $CellContext`\[Gamma]$$^10 - 
                    18 $CellContext`k^4 $CellContext`\[Gamma]$$^10 - 
                    2 $CellContext`k $CellContext`\[Gamma]$$^12 + 
                    5 $CellContext`k^2 $CellContext`\[Gamma]$$^12 - 
                    4 $CellContext`k^3 $CellContext`\[Gamma]$$^12 + \
$CellContext`k^4 $CellContext`\[Gamma]$$^12) - 
                    144 $CellContext`\[Gamma]$$^4 (512 $CellContext`k^2 - 
                    128 $CellContext`k $CellContext`\[Gamma]$$ + 
                    12 $CellContext`\[Gamma]$$^2 + 
                    96 $CellContext`k $CellContext`\[Gamma]$$^2 - 
                    1552 $CellContext`k^2 $CellContext`\[Gamma]$$^2 - 
                    12 $CellContext`\[Gamma]$$^3 + 
                    256 $CellContext`k $CellContext`\[Gamma]$$^3 - 
                    9 $CellContext`\[Gamma]$$^4 - 
                    144 $CellContext`k $CellContext`\[Gamma]$$^4 + 
                    1752 $CellContext`k^2 $CellContext`\[Gamma]$$^4 + 
                    6 $CellContext`\[Gamma]$$^5 - 
                    168 $CellContext`k $CellContext`\[Gamma]$$^5 + 
                    3 $CellContext`\[Gamma]$$^6 + 
                    54 $CellContext`k $CellContext`\[Gamma]$$^6 - 
                    937 $CellContext`k^2 $CellContext`\[Gamma]$$^6 + 
                    44 $CellContext`k $CellContext`\[Gamma]$$^7 - 
                    6 $CellContext`k $CellContext`\[Gamma]$$^8 + 
                    259 $CellContext`k^2 $CellContext`\[Gamma]$$^8 - 
                    4 $CellContext`k $CellContext`\[Gamma]$$^9 - 
                    36 $CellContext`k^2 $CellContext`\[Gamma]$$^10 + 
                    2 $CellContext`k^2 $CellContext`\[Gamma]$$^12) (16 - 
                    256 $CellContext`k + 1152 $CellContext`k^2 - 
                    1024 $CellContext`k^3 + 256 $CellContext`k^4 - 
                    32 $CellContext`\[Gamma]$$ - 
                    256 $CellContext`k $CellContext`\[Gamma]$$ + 
                    128 $CellContext`k^2 $CellContext`\[Gamma]$$ - 
                    8 $CellContext`\[Gamma]$$^2 + 
                    960 $CellContext`k $CellContext`\[Gamma]$$^2 - 
                    3552 $CellContext`k^2 $CellContext`\[Gamma]$$^2 + 
                    3072 $CellContext`k^3 $CellContext`\[Gamma]$$^2 - 
                    768 $CellContext`k^4 $CellContext`\[Gamma]$$^2 + 
                    40 $CellContext`\[Gamma]$$^3 + 
                    512 $CellContext`k $CellContext`\[Gamma]$$^3 - 
                    256 $CellContext`k^2 $CellContext`\[Gamma]$$^3 + \
$CellContext`\[Gamma]$$^4 - 1232 $CellContext`k $CellContext`\[Gamma]$$^4 + 
                    4072 $CellContext`k^2 $CellContext`\[Gamma]$$^4 - 
                    3456 $CellContext`k^3 $CellContext`\[Gamma]$$^4 + 
                    864 $CellContext`k^4 $CellContext`\[Gamma]$$^4 - 
                    20 $CellContext`\[Gamma]$$^5 - 
                    336 $CellContext`k $CellContext`\[Gamma]$$^5 + 
                    168 $CellContext`k^2 $CellContext`\[Gamma]$$^5 - 
                    2 $CellContext`\[Gamma]$$^6 + 
                    708 $CellContext`k $CellContext`\[Gamma]$$^6 - 
                    2210 $CellContext`k^2 $CellContext`\[Gamma]$$^6 + 
                    1856 $CellContext`k^3 $CellContext`\[Gamma]$$^6 - 
                    464 $CellContext`k^4 $CellContext`\[Gamma]$$^6 + 
                    4 $CellContext`\[Gamma]$$^7 + 
                    88 $CellContext`k $CellContext`\[Gamma]$$^7 - 
                    44 $CellContext`k^2 $CellContext`\[Gamma]$$^7 + \
$CellContext`\[Gamma]$$^8 - 210 $CellContext`k $CellContext`\[Gamma]$$^8 + 
                    621 $CellContext`k^2 $CellContext`\[Gamma]$$^8 - 
                    516 $CellContext`k^3 $CellContext`\[Gamma]$$^8 + 
                    129 $CellContext`k^4 $CellContext`\[Gamma]$$^8 - 
                    8 $CellContext`k $CellContext`\[Gamma]$$^9 + 
                    4 $CellContext`k^2 $CellContext`\[Gamma]$$^9 + 
                    32 $CellContext`k $CellContext`\[Gamma]$$^10 - 
                    88 $CellContext`k^2 $CellContext`\[Gamma]$$^10 + 
                    72 $CellContext`k^3 $CellContext`\[Gamma]$$^10 - 
                    18 $CellContext`k^4 $CellContext`\[Gamma]$$^10 - 
                    2 $CellContext`k $CellContext`\[Gamma]$$^12 + 
                    5 $CellContext`k^2 $CellContext`\[Gamma]$$^12 - 
                    4 $CellContext`k^3 $CellContext`\[Gamma]$$^12 + \
$CellContext`k^4 $CellContext`\[Gamma]$$^12))^2)^Rational[1, 2])^
               Rational[1, 3])^Rational[1, 2] + 
          Rational[-1, 2] (
             8 $CellContext`\[Gamma]$$^(-4) ((-16) $CellContext`k + 
                2 $CellContext`\[Gamma]$$ - $CellContext`\[Gamma]$$^2 + 
                24 $CellContext`k $CellContext`\[Gamma]$$^2 - $CellContext`\
\[Gamma]$$^3 - 
                9 $CellContext`k $CellContext`\[Gamma]$$^4 + $CellContext`k \
$CellContext`\[Gamma]$$^6)^2 + 
             Rational[-8, 3] $CellContext`\[Gamma]$$^(-4) (
               512 $CellContext`k^2 - 
               128 $CellContext`k $CellContext`\[Gamma]$$ + 
               12 $CellContext`\[Gamma]$$^2 + 
               96 $CellContext`k $CellContext`\[Gamma]$$^2 - 
               1552 $CellContext`k^2 $CellContext`\[Gamma]$$^2 - 
               12 $CellContext`\[Gamma]$$^3 + 
               256 $CellContext`k $CellContext`\[Gamma]$$^3 - 
               9 $CellContext`\[Gamma]$$^4 - 
               144 $CellContext`k $CellContext`\[Gamma]$$^4 + 
               1752 $CellContext`k^2 $CellContext`\[Gamma]$$^4 + 
               6 $CellContext`\[Gamma]$$^5 - 
               168 $CellContext`k $CellContext`\[Gamma]$$^5 + 
               3 $CellContext`\[Gamma]$$^6 + 
               54 $CellContext`k $CellContext`\[Gamma]$$^6 - 
               937 $CellContext`k^2 $CellContext`\[Gamma]$$^6 + 
               44 $CellContext`k $CellContext`\[Gamma]$$^7 - 
               6 $CellContext`k $CellContext`\[Gamma]$$^8 + 
               259 $CellContext`k^2 $CellContext`\[Gamma]$$^8 - 
               4 $CellContext`k $CellContext`\[Gamma]$$^9 - 
               36 $CellContext`k^2 $CellContext`\[Gamma]$$^10 + 
               2 $CellContext`k^2 $CellContext`\[Gamma]$$^12) + 
             Rational[-4, 3] 
              2^Rational[1, 3] $CellContext`\[Gamma]$$^(-4) (
               262144 $CellContext`k^4 - 
               131072 $CellContext`k^3 $CellContext`\[Gamma]$$ + 
               40960 $CellContext`k^2 $CellContext`\[Gamma]$$^2 - 
               1540096 $CellContext`k^4 $CellContext`\[Gamma]$$^2 - 
               3072 $CellContext`k $CellContext`\[Gamma]$$^3 + 
               647168 $CellContext`k^3 $CellContext`\[Gamma]$$^3 - 
               175360 $CellContext`k^2 $CellContext`\[Gamma]$$^4 + 
               3982336 $CellContext`k^4 $CellContext`\[Gamma]$$^4 + 
               10752 $CellContext`k $CellContext`\[Gamma]$$^5 - 
               1372160 $CellContext`k^3 $CellContext`\[Gamma]$$^5 + 
               313600 $CellContext`k^2 $CellContext`\[Gamma]$$^6 - 
               5985280 $CellContext`k^4 $CellContext`\[Gamma]$$^6 - 
               14976 $CellContext`k $CellContext`\[Gamma]$$^7 + 
               1643520 $CellContext`k^3 $CellContext`\[Gamma]$$^7 - 
               306656 $CellContext`k^2 $CellContext`\[Gamma]$$^8 + 
               5821824 $CellContext`k^4 $CellContext`\[Gamma]$$^8 + 
               10752 $CellContext`k $CellContext`\[Gamma]$$^9 - 
               1232384 $CellContext`k^3 $CellContext`\[Gamma]$$^9 + 
               180848 $CellContext`k^2 $CellContext`\[Gamma]$$^10 - 
               3864512 $CellContext`k^4 $CellContext`\[Gamma]$$^10 - 
               4332 $CellContext`k $CellContext`\[Gamma]$$^11 + 
               605920 $CellContext`k^3 $CellContext`\[Gamma]$$^11 - 
               66989 $CellContext`k^2 $CellContext`\[Gamma]$$^12 + 
               1798596 $CellContext`k^4 $CellContext`\[Gamma]$$^12 + 
               990 $CellContext`k $CellContext`\[Gamma]$$^13 - 
               198480 $CellContext`k^3 $CellContext`\[Gamma]$$^13 + 
               15664 $CellContext`k^2 $CellContext`\[Gamma]$$^14 - 
               592896 $CellContext`k^4 $CellContext`\[Gamma]$$^14 - 
               120 $CellContext`k $CellContext`\[Gamma]$$^15 + 
               42928 $CellContext`k^3 $CellContext`\[Gamma]$$^15 - 
               2239 $CellContext`k^2 $CellContext`\[Gamma]$$^16 + 
               137776 $CellContext`k^4 $CellContext`\[Gamma]$$^16 + 
               6 $CellContext`k $CellContext`\[Gamma]$$^17 - 
               5888 $CellContext`k^3 $CellContext`\[Gamma]$$^17 + 
               178 $CellContext`k^2 $CellContext`\[Gamma]$$^18 - 
               22072 $CellContext`k^4 $CellContext`\[Gamma]$$^18 + 
               464 $CellContext`k^3 $CellContext`\[Gamma]$$^19 - 
               6 $CellContext`k^2 $CellContext`\[Gamma]$$^20 + 
               2320 $CellContext`k^4 $CellContext`\[Gamma]$$^20 - 
               16 $CellContext`k^3 $CellContext`\[Gamma]$$^21 - 
               144 $CellContext`k^4 $CellContext`\[Gamma]$$^22 + 
               4 $CellContext`k^4 $CellContext`\[Gamma]$$^24) (
                16 (512 $CellContext`k^2 - 
                   128 $CellContext`k $CellContext`\[Gamma]$$ + 
                   12 $CellContext`\[Gamma]$$^2 + 
                   96 $CellContext`k $CellContext`\[Gamma]$$^2 - 
                   1552 $CellContext`k^2 $CellContext`\[Gamma]$$^2 - 
                   12 $CellContext`\[Gamma]$$^3 + 
                   256 $CellContext`k $CellContext`\[Gamma]$$^3 - 
                   9 $CellContext`\[Gamma]$$^4 - 
                   144 $CellContext`k $CellContext`\[Gamma]$$^4 + 
                   1752 $CellContext`k^2 $CellContext`\[Gamma]$$^4 + 
                   6 $CellContext`\[Gamma]$$^5 - 
                   168 $CellContext`k $CellContext`\[Gamma]$$^5 + 
                   3 $CellContext`\[Gamma]$$^6 + 
                   54 $CellContext`k $CellContext`\[Gamma]$$^6 - 
                   937 $CellContext`k^2 $CellContext`\[Gamma]$$^6 + 
                   44 $CellContext`k $CellContext`\[Gamma]$$^7 - 
                   6 $CellContext`k $CellContext`\[Gamma]$$^8 + 
                   259 $CellContext`k^2 $CellContext`\[Gamma]$$^8 - 
                   4 $CellContext`k $CellContext`\[Gamma]$$^9 - 
                   36 $CellContext`k^2 $CellContext`\[Gamma]$$^10 + 
                   2 $CellContext`k^2 $CellContext`\[Gamma]$$^12)^3 - 
                144 ((-16) $CellContext`k $CellContext`\[Gamma]$$^2 + 
                 2 $CellContext`\[Gamma]$$^3 - $CellContext`\[Gamma]$$^4 + 
                 24 $CellContext`k $CellContext`\[Gamma]$$^4 - $CellContext`\
\[Gamma]$$^5 - 
                 9 $CellContext`k $CellContext`\[Gamma]$$^6 + $CellContext`k \
$CellContext`\[Gamma]$$^8) (512 $CellContext`k^2 - 
                 128 $CellContext`k $CellContext`\[Gamma]$$ + 
                 12 $CellContext`\[Gamma]$$^2 + 
                 96 $CellContext`k $CellContext`\[Gamma]$$^2 - 
                 1552 $CellContext`k^2 $CellContext`\[Gamma]$$^2 - 
                 12 $CellContext`\[Gamma]$$^3 + 
                 256 $CellContext`k $CellContext`\[Gamma]$$^3 - 
                 9 $CellContext`\[Gamma]$$^4 - 
                 144 $CellContext`k $CellContext`\[Gamma]$$^4 + 
                 1752 $CellContext`k^2 $CellContext`\[Gamma]$$^4 + 
                 6 $CellContext`\[Gamma]$$^5 - 
                 168 $CellContext`k $CellContext`\[Gamma]$$^5 + 
                 3 $CellContext`\[Gamma]$$^6 + 
                 54 $CellContext`k $CellContext`\[Gamma]$$^6 - 
                 937 $CellContext`k^2 $CellContext`\[Gamma]$$^6 + 
                 44 $CellContext`k $CellContext`\[Gamma]$$^7 - 
                 6 $CellContext`k $CellContext`\[Gamma]$$^8 + 
                 259 $CellContext`k^2 $CellContext`\[Gamma]$$^8 - 
                 4 $CellContext`k $CellContext`\[Gamma]$$^9 - 
                 36 $CellContext`k^2 $CellContext`\[Gamma]$$^10 + 
                 2 $CellContext`k^2 $CellContext`\[Gamma]$$^12) (
                 128 $CellContext`k - 1024 $CellContext`k^2 + 
                 512 $CellContext`k^3 + 16 $CellContext`\[Gamma]$$ + 
                 256 $CellContext`k $CellContext`\[Gamma]$$ - 
                 64 $CellContext`k^2 $CellContext`\[Gamma]$$ - 
                 24 $CellContext`\[Gamma]$$^2 - 
                 544 $CellContext`k $CellContext`\[Gamma]$$^2 + 
                 3104 $CellContext`k^2 $CellContext`\[Gamma]$$^2 - 
                 1536 $CellContext`k^3 $CellContext`\[Gamma]$$^2 - 
                 12 $CellContext`\[Gamma]$$^3 - 
                 512 $CellContext`k $CellContext`\[Gamma]$$^3 + 
                 128 $CellContext`k^2 $CellContext`\[Gamma]$$^3 + 
                 22 $CellContext`\[Gamma]$$^4 + 
                 712 $CellContext`k $CellContext`\[Gamma]$$^4 - 
                 3504 $CellContext`k^2 $CellContext`\[Gamma]$$^4 + 
                 1728 $CellContext`k^3 $CellContext`\[Gamma]$$^4 + 
                 6 $CellContext`\[Gamma]$$^5 + 
                 336 $CellContext`k $CellContext`\[Gamma]$$^5 - 
                 84 $CellContext`k^2 $CellContext`\[Gamma]$$^5 - 
                 6 $CellContext`\[Gamma]$$^6 - 
                 390 $CellContext`k $CellContext`\[Gamma]$$^6 + 
                 1874 $CellContext`k^2 $CellContext`\[Gamma]$$^6 - 
                 928 $CellContext`k^3 $CellContext`\[Gamma]$$^6 - 
                 2 $CellContext`\[Gamma]$$^7 - 
                 88 $CellContext`k $CellContext`\[Gamma]$$^7 + 
                 22 $CellContext`k^2 $CellContext`\[Gamma]$$^7 + 
                 109 $CellContext`k $CellContext`\[Gamma]$$^8 - 
                 518 $CellContext`k^2 $CellContext`\[Gamma]$$^8 + 
                 258 $CellContext`k^3 $CellContext`\[Gamma]$$^8 + 
                 8 $CellContext`k $CellContext`\[Gamma]$$^9 - 
                 2 $CellContext`k^2 $CellContext`\[Gamma]$$^9 - 
                 16 $CellContext`k $CellContext`\[Gamma]$$^10 + 
                 72 $CellContext`k^2 $CellContext`\[Gamma]$$^10 - 
                 36 $CellContext`k^3 $CellContext`\[Gamma]$$^10 + \
$CellContext`k $CellContext`\[Gamma]$$^12 - 
                 4 $CellContext`k^2 $CellContext`\[Gamma]$$^12 + 
                 2 $CellContext`k^3 $CellContext`\[Gamma]$$^12) + 
                108 $CellContext`\[Gamma]$$^4 (128 $CellContext`k - 
                   1024 $CellContext`k^2 + 512 $CellContext`k^3 + 
                   16 $CellContext`\[Gamma]$$ + 
                   256 $CellContext`k $CellContext`\[Gamma]$$ - 
                   64 $CellContext`k^2 $CellContext`\[Gamma]$$ - 
                   24 $CellContext`\[Gamma]$$^2 - 
                   544 $CellContext`k $CellContext`\[Gamma]$$^2 + 
                   3104 $CellContext`k^2 $CellContext`\[Gamma]$$^2 - 
                   1536 $CellContext`k^3 $CellContext`\[Gamma]$$^2 - 
                   12 $CellContext`\[Gamma]$$^3 - 
                   512 $CellContext`k $CellContext`\[Gamma]$$^3 + 
                   128 $CellContext`k^2 $CellContext`\[Gamma]$$^3 + 
                   22 $CellContext`\[Gamma]$$^4 + 
                   712 $CellContext`k $CellContext`\[Gamma]$$^4 - 
                   3504 $CellContext`k^2 $CellContext`\[Gamma]$$^4 + 
                   1728 $CellContext`k^3 $CellContext`\[Gamma]$$^4 + 
                   6 $CellContext`\[Gamma]$$^5 + 
                   336 $CellContext`k $CellContext`\[Gamma]$$^5 - 
                   84 $CellContext`k^2 $CellContext`\[Gamma]$$^5 - 
                   6 $CellContext`\[Gamma]$$^6 - 
                   390 $CellContext`k $CellContext`\[Gamma]$$^6 + 
                   1874 $CellContext`k^2 $CellContext`\[Gamma]$$^6 - 
                   928 $CellContext`k^3 $CellContext`\[Gamma]$$^6 - 
                   2 $CellContext`\[Gamma]$$^7 - 
                   88 $CellContext`k $CellContext`\[Gamma]$$^7 + 
                   22 $CellContext`k^2 $CellContext`\[Gamma]$$^7 + 
                   109 $CellContext`k $CellContext`\[Gamma]$$^8 - 
                   518 $CellContext`k^2 $CellContext`\[Gamma]$$^8 + 
                   258 $CellContext`k^3 $CellContext`\[Gamma]$$^8 + 
                   8 $CellContext`k $CellContext`\[Gamma]$$^9 - 
                   2 $CellContext`k^2 $CellContext`\[Gamma]$$^9 - 
                   16 $CellContext`k $CellContext`\[Gamma]$$^10 + 
                   72 $CellContext`k^2 $CellContext`\[Gamma]$$^10 - 
                   36 $CellContext`k^3 $CellContext`\[Gamma]$$^10 + \
$CellContext`k $CellContext`\[Gamma]$$^12 - 
                   4 $CellContext`k^2 $CellContext`\[Gamma]$$^12 + 
                   2 $CellContext`k^3 $CellContext`\[Gamma]$$^12)^2 + 
                432 ((-16) $CellContext`k $CellContext`\[Gamma]$$^2 + 
                   2 $CellContext`\[Gamma]$$^3 - $CellContext`\[Gamma]$$^4 + 
                   24 $CellContext`k $CellContext`\[Gamma]$$^4 - \
$CellContext`\[Gamma]$$^5 - 
                   9 $CellContext`k $CellContext`\[Gamma]$$^6 + \
$CellContext`k $CellContext`\[Gamma]$$^8)^2 (16 - 256 $CellContext`k + 
                  1152 $CellContext`k^2 - 1024 $CellContext`k^3 + 
                  256 $CellContext`k^4 - 32 $CellContext`\[Gamma]$$ - 
                  256 $CellContext`k $CellContext`\[Gamma]$$ + 
                  128 $CellContext`k^2 $CellContext`\[Gamma]$$ - 
                  8 $CellContext`\[Gamma]$$^2 + 
                  960 $CellContext`k $CellContext`\[Gamma]$$^2 - 
                  3552 $CellContext`k^2 $CellContext`\[Gamma]$$^2 + 
                  3072 $CellContext`k^3 $CellContext`\[Gamma]$$^2 - 
                  768 $CellContext`k^4 $CellContext`\[Gamma]$$^2 + 
                  40 $CellContext`\[Gamma]$$^3 + 
                  512 $CellContext`k $CellContext`\[Gamma]$$^3 - 
                  256 $CellContext`k^2 $CellContext`\[Gamma]$$^3 + \
$CellContext`\[Gamma]$$^4 - 1232 $CellContext`k $CellContext`\[Gamma]$$^4 + 
                  4072 $CellContext`k^2 $CellContext`\[Gamma]$$^4 - 
                  3456 $CellContext`k^3 $CellContext`\[Gamma]$$^4 + 
                  864 $CellContext`k^4 $CellContext`\[Gamma]$$^4 - 
                  20 $CellContext`\[Gamma]$$^5 - 
                  336 $CellContext`k $CellContext`\[Gamma]$$^5 + 
                  168 $CellContext`k^2 $CellContext`\[Gamma]$$^5 - 
                  2 $CellContext`\[Gamma]$$^6 + 
                  708 $CellContext`k $CellContext`\[Gamma]$$^6 - 
                  2210 $CellContext`k^2 $CellContext`\[Gamma]$$^6 + 
                  1856 $CellContext`k^3 $CellContext`\[Gamma]$$^6 - 
                  464 $CellContext`k^4 $CellContext`\[Gamma]$$^6 + 
                  4 $CellContext`\[Gamma]$$^7 + 
                  88 $CellContext`k $CellContext`\[Gamma]$$^7 - 
                  44 $CellContext`k^2 $CellContext`\[Gamma]$$^7 + \
$CellContext`\[Gamma]$$^8 - 210 $CellContext`k $CellContext`\[Gamma]$$^8 + 
                  621 $CellContext`k^2 $CellContext`\[Gamma]$$^8 - 
                  516 $CellContext`k^3 $CellContext`\[Gamma]$$^8 + 
                  129 $CellContext`k^4 $CellContext`\[Gamma]$$^8 - 
                  8 $CellContext`k $CellContext`\[Gamma]$$^9 + 
                  4 $CellContext`k^2 $CellContext`\[Gamma]$$^9 + 
                  32 $CellContext`k $CellContext`\[Gamma]$$^10 - 
                  88 $CellContext`k^2 $CellContext`\[Gamma]$$^10 + 
                  72 $CellContext`k^3 $CellContext`\[Gamma]$$^10 - 
                  18 $CellContext`k^4 $CellContext`\[Gamma]$$^10 - 
                  2 $CellContext`k $CellContext`\[Gamma]$$^12 + 
                  5 $CellContext`k^2 $CellContext`\[Gamma]$$^12 - 
                  4 $CellContext`k^3 $CellContext`\[Gamma]$$^12 + \
$CellContext`k^4 $CellContext`\[Gamma]$$^12) - 
                144 $CellContext`\[Gamma]$$^4 (512 $CellContext`k^2 - 
                 128 $CellContext`k $CellContext`\[Gamma]$$ + 
                 12 $CellContext`\[Gamma]$$^2 + 
                 96 $CellContext`k $CellContext`\[Gamma]$$^2 - 
                 1552 $CellContext`k^2 $CellContext`\[Gamma]$$^2 - 
                 12 $CellContext`\[Gamma]$$^3 + 
                 256 $CellContext`k $CellContext`\[Gamma]$$^3 - 
                 9 $CellContext`\[Gamma]$$^4 - 
                 144 $CellContext`k $CellContext`\[Gamma]$$^4 + 
                 1752 $CellContext`k^2 $CellContext`\[Gamma]$$^4 + 
                 6 $CellContext`\[Gamma]$$^5 - 
                 168 $CellContext`k $CellContext`\[Gamma]$$^5 + 
                 3 $CellContext`\[Gamma]$$^6 + 
                 54 $CellContext`k $CellContext`\[Gamma]$$^6 - 
                 937 $CellContext`k^2 $CellContext`\[Gamma]$$^6 + 
                 44 $CellContext`k $CellContext`\[Gamma]$$^7 - 
                 6 $CellContext`k $CellContext`\[Gamma]$$^8 + 
                 259 $CellContext`k^2 $CellContext`\[Gamma]$$^8 - 
                 4 $CellContext`k $CellContext`\[Gamma]$$^9 - 
                 36 $CellContext`k^2 $CellContext`\[Gamma]$$^10 + 
                 2 $CellContext`k^2 $CellContext`\[Gamma]$$^12) (16 - 
                 256 $CellContext`k + 1152 $CellContext`k^2 - 
                 1024 $CellContext`k^3 + 256 $CellContext`k^4 - 
                 32 $CellContext`\[Gamma]$$ - 
                 256 $CellContext`k $CellContext`\[Gamma]$$ + 
                 128 $CellContext`k^2 $CellContext`\[Gamma]$$ - 
                 8 $CellContext`\[Gamma]$$^2 + 
                 960 $CellContext`k $CellContext`\[Gamma]$$^2 - 
                 3552 $CellContext`k^2 $CellContext`\[Gamma]$$^2 + 
                 3072 $CellContext`k^3 $CellContext`\[Gamma]$$^2 - 
                 768 $CellContext`k^4 $CellContext`\[Gamma]$$^2 + 
                 40 $CellContext`\[Gamma]$$^3 + 
                 512 $CellContext`k $CellContext`\[Gamma]$$^3 - 
                 256 $CellContext`k^2 $CellContext`\[Gamma]$$^3 + \
$CellContext`\[Gamma]$$^4 - 1232 $CellContext`k $CellContext`\[Gamma]$$^4 + 
                 4072 $CellContext`k^2 $CellContext`\[Gamma]$$^4 - 
                 3456 $CellContext`k^3 $CellContext`\[Gamma]$$^4 + 
                 864 $CellContext`k^4 $CellContext`\[Gamma]$$^4 - 
                 20 $CellContext`\[Gamma]$$^5 - 
                 336 $CellContext`k $CellContext`\[Gamma]$$^5 + 
                 168 $CellContext`k^2 $CellContext`\[Gamma]$$^5 - 
                 2 $CellContext`\[Gamma]$$^6 + 
                 708 $CellContext`k $CellContext`\[Gamma]$$^6 - 
                 2210 $CellContext`k^2 $CellContext`\[Gamma]$$^6 + 
                 1856 $CellContext`k^3 $CellContext`\[Gamma]$$^6 - 
                 464 $CellContext`k^4 $CellContext`\[Gamma]$$^6 + 
                 4 $CellContext`\[Gamma]$$^7 + 
                 88 $CellContext`k $CellContext`\[Gamma]$$^7 - 
                 44 $CellContext`k^2 $CellContext`\[Gamma]$$^7 + \
$CellContext`\[Gamma]$$^8 - 210 $CellContext`k $CellContext`\[Gamma]$$^8 + 
                 621 $CellContext`k^2 $CellContext`\[Gamma]$$^8 - 
                 516 $CellContext`k^3 $CellContext`\[Gamma]$$^8 + 
                 129 $CellContext`k^4 $CellContext`\[Gamma]$$^8 - 
                 8 $CellContext`k $CellContext`\[Gamma]$$^9 + 
                 4 $CellContext`k^2 $CellContext`\[Gamma]$$^9 + 
                 32 $CellContext`k $CellContext`\[Gamma]$$^10 - 
                 88 $CellContext`k^2 $CellContext`\[Gamma]$$^10 + 
                 72 $CellContext`k^3 $CellContext`\[Gamma]$$^10 - 
                 18 $CellContext`k^4 $CellContext`\[Gamma]$$^10 - 
                 2 $CellContext`k $CellContext`\[Gamma]$$^12 + 
                 5 $CellContext`k^2 $CellContext`\[Gamma]$$^12 - 
                 4 $CellContext`k^3 $CellContext`\[Gamma]$$^12 + \
$CellContext`k^4 $CellContext`\[Gamma]$$^12) + ((-4) (
                    1048576 $CellContext`k^4 - 
                    524288 $CellContext`k^3 $CellContext`\[Gamma]$$ + 
                    163840 $CellContext`k^2 $CellContext`\[Gamma]$$^2 - 
                    6160384 $CellContext`k^4 $CellContext`\[Gamma]$$^2 - 
                    12288 $CellContext`k $CellContext`\[Gamma]$$^3 + 
                    2588672 $CellContext`k^3 $CellContext`\[Gamma]$$^3 - 
                    701440 $CellContext`k^2 $CellContext`\[Gamma]$$^4 + 
                    15929344 $CellContext`k^4 $CellContext`\[Gamma]$$^4 + 
                    43008 $CellContext`k $CellContext`\[Gamma]$$^5 - 
                    5488640 $CellContext`k^3 $CellContext`\[Gamma]$$^5 + 
                    1254400 $CellContext`k^2 $CellContext`\[Gamma]$$^6 - 
                    23941120 $CellContext`k^4 $CellContext`\[Gamma]$$^6 - 
                    59904 $CellContext`k $CellContext`\[Gamma]$$^7 + 
                    6574080 $CellContext`k^3 $CellContext`\[Gamma]$$^7 - 
                    1226624 $CellContext`k^2 $CellContext`\[Gamma]$$^8 + 
                    23287296 $CellContext`k^4 $CellContext`\[Gamma]$$^8 + 
                    43008 $CellContext`k $CellContext`\[Gamma]$$^9 - 
                    4929536 $CellContext`k^3 $CellContext`\[Gamma]$$^9 + 
                    723392 $CellContext`k^2 $CellContext`\[Gamma]$$^10 - 
                    15458048 $CellContext`k^4 $CellContext`\[Gamma]$$^10 - 
                    17328 $CellContext`k $CellContext`\[Gamma]$$^11 + 
                    2423680 $CellContext`k^3 $CellContext`\[Gamma]$$^11 - 
                    267956 $CellContext`k^2 $CellContext`\[Gamma]$$^12 + 
                    7194384 $CellContext`k^4 $CellContext`\[Gamma]$$^12 + 
                    3960 $CellContext`k $CellContext`\[Gamma]$$^13 - 
                    793920 $CellContext`k^3 $CellContext`\[Gamma]$$^13 + 
                    62656 $CellContext`k^2 $CellContext`\[Gamma]$$^14 - 
                    2371584 $CellContext`k^4 $CellContext`\[Gamma]$$^14 - 
                    480 $CellContext`k $CellContext`\[Gamma]$$^15 + 
                    171712 $CellContext`k^3 $CellContext`\[Gamma]$$^15 - 
                    8956 $CellContext`k^2 $CellContext`\[Gamma]$$^16 + 
                    551104 $CellContext`k^4 $CellContext`\[Gamma]$$^16 + 
                    24 $CellContext`k $CellContext`\[Gamma]$$^17 - 
                    23552 $CellContext`k^3 $CellContext`\[Gamma]$$^17 + 
                    712 $CellContext`k^2 $CellContext`\[Gamma]$$^18 - 
                    88288 $CellContext`k^4 $CellContext`\[Gamma]$$^18 + 
                    1856 $CellContext`k^3 $CellContext`\[Gamma]$$^19 - 
                    24 $CellContext`k^2 $CellContext`\[Gamma]$$^20 + 
                    9280 $CellContext`k^4 $CellContext`\[Gamma]$$^20 - 
                    64 $CellContext`k^3 $CellContext`\[Gamma]$$^21 - 
                    576 $CellContext`k^4 $CellContext`\[Gamma]$$^22 + 
                    16 $CellContext`k^4 $CellContext`\[Gamma]$$^24)^3 + (
                    16 (512 $CellContext`k^2 - 
                    128 $CellContext`k $CellContext`\[Gamma]$$ + 
                    12 $CellContext`\[Gamma]$$^2 + 
                    96 $CellContext`k $CellContext`\[Gamma]$$^2 - 
                    1552 $CellContext`k^2 $CellContext`\[Gamma]$$^2 - 
                    12 $CellContext`\[Gamma]$$^3 + 
                    256 $CellContext`k $CellContext`\[Gamma]$$^3 - 
                    9 $CellContext`\[Gamma]$$^4 - 
                    144 $CellContext`k $CellContext`\[Gamma]$$^4 + 
                    1752 $CellContext`k^2 $CellContext`\[Gamma]$$^4 + 
                    6 $CellContext`\[Gamma]$$^5 - 
                    168 $CellContext`k $CellContext`\[Gamma]$$^5 + 
                    3 $CellContext`\[Gamma]$$^6 + 
                    54 $CellContext`k $CellContext`\[Gamma]$$^6 - 
                    937 $CellContext`k^2 $CellContext`\[Gamma]$$^6 + 
                    44 $CellContext`k $CellContext`\[Gamma]$$^7 - 
                    6 $CellContext`k $CellContext`\[Gamma]$$^8 + 
                    259 $CellContext`k^2 $CellContext`\[Gamma]$$^8 - 
                    4 $CellContext`k $CellContext`\[Gamma]$$^9 - 
                    36 $CellContext`k^2 $CellContext`\[Gamma]$$^10 + 
                    2 $CellContext`k^2 $CellContext`\[Gamma]$$^12)^3 - 
                    144 ((-16) $CellContext`k $CellContext`\[Gamma]$$^2 + 
                    2 $CellContext`\[Gamma]$$^3 - $CellContext`\[Gamma]$$^4 + 
                    24 $CellContext`k $CellContext`\[Gamma]$$^4 - \
$CellContext`\[Gamma]$$^5 - 
                    9 $CellContext`k $CellContext`\[Gamma]$$^6 + \
$CellContext`k $CellContext`\[Gamma]$$^8) (512 $CellContext`k^2 - 
                    128 $CellContext`k $CellContext`\[Gamma]$$ + 
                    12 $CellContext`\[Gamma]$$^2 + 
                    96 $CellContext`k $CellContext`\[Gamma]$$^2 - 
                    1552 $CellContext`k^2 $CellContext`\[Gamma]$$^2 - 
                    12 $CellContext`\[Gamma]$$^3 + 
                    256 $CellContext`k $CellContext`\[Gamma]$$^3 - 
                    9 $CellContext`\[Gamma]$$^4 - 
                    144 $CellContext`k $CellContext`\[Gamma]$$^4 + 
                    1752 $CellContext`k^2 $CellContext`\[Gamma]$$^4 + 
                    6 $CellContext`\[Gamma]$$^5 - 
                    168 $CellContext`k $CellContext`\[Gamma]$$^5 + 
                    3 $CellContext`\[Gamma]$$^6 + 
                    54 $CellContext`k $CellContext`\[Gamma]$$^6 - 
                    937 $CellContext`k^2 $CellContext`\[Gamma]$$^6 + 
                    44 $CellContext`k $CellContext`\[Gamma]$$^7 - 
                    6 $CellContext`k $CellContext`\[Gamma]$$^8 + 
                    259 $CellContext`k^2 $CellContext`\[Gamma]$$^8 - 
                    4 $CellContext`k $CellContext`\[Gamma]$$^9 - 
                    36 $CellContext`k^2 $CellContext`\[Gamma]$$^10 + 
                    2 $CellContext`k^2 $CellContext`\[Gamma]$$^12) (
                    128 $CellContext`k - 1024 $CellContext`k^2 + 
                    512 $CellContext`k^3 + 16 $CellContext`\[Gamma]$$ + 
                    256 $CellContext`k $CellContext`\[Gamma]$$ - 
                    64 $CellContext`k^2 $CellContext`\[Gamma]$$ - 
                    24 $CellContext`\[Gamma]$$^2 - 
                    544 $CellContext`k $CellContext`\[Gamma]$$^2 + 
                    3104 $CellContext`k^2 $CellContext`\[Gamma]$$^2 - 
                    1536 $CellContext`k^3 $CellContext`\[Gamma]$$^2 - 
                    12 $CellContext`\[Gamma]$$^3 - 
                    512 $CellContext`k $CellContext`\[Gamma]$$^3 + 
                    128 $CellContext`k^2 $CellContext`\[Gamma]$$^3 + 
                    22 $CellContext`\[Gamma]$$^4 + 
                    712 $CellContext`k $CellContext`\[Gamma]$$^4 - 
                    3504 $CellContext`k^2 $CellContext`\[Gamma]$$^4 + 
                    1728 $CellContext`k^3 $CellContext`\[Gamma]$$^4 + 
                    6 $CellContext`\[Gamma]$$^5 + 
                    336 $CellContext`k $CellContext`\[Gamma]$$^5 - 
                    84 $CellContext`k^2 $CellContext`\[Gamma]$$^5 - 
                    6 $CellContext`\[Gamma]$$^6 - 
                    390 $CellContext`k $CellContext`\[Gamma]$$^6 + 
                    1874 $CellContext`k^2 $CellContext`\[Gamma]$$^6 - 
                    928 $CellContext`k^3 $CellContext`\[Gamma]$$^6 - 
                    2 $CellContext`\[Gamma]$$^7 - 
                    88 $CellContext`k $CellContext`\[Gamma]$$^7 + 
                    22 $CellContext`k^2 $CellContext`\[Gamma]$$^7 + 
                    109 $CellContext`k $CellContext`\[Gamma]$$^8 - 
                    518 $CellContext`k^2 $CellContext`\[Gamma]$$^8 + 
                    258 $CellContext`k^3 $CellContext`\[Gamma]$$^8 + 
                    8 $CellContext`k $CellContext`\[Gamma]$$^9 - 
                    2 $CellContext`k^2 $CellContext`\[Gamma]$$^9 - 
                    16 $CellContext`k $CellContext`\[Gamma]$$^10 + 
                    72 $CellContext`k^2 $CellContext`\[Gamma]$$^10 - 
                    36 $CellContext`k^3 $CellContext`\[Gamma]$$^10 + \
$CellContext`k $CellContext`\[Gamma]$$^12 - 
                    4 $CellContext`k^2 $CellContext`\[Gamma]$$^12 + 
                    2 $CellContext`k^3 $CellContext`\[Gamma]$$^12) + 
                    108 $CellContext`\[Gamma]$$^4 (128 $CellContext`k - 
                    1024 $CellContext`k^2 + 512 $CellContext`k^3 + 
                    16 $CellContext`\[Gamma]$$ + 
                    256 $CellContext`k $CellContext`\[Gamma]$$ - 
                    64 $CellContext`k^2 $CellContext`\[Gamma]$$ - 
                    24 $CellContext`\[Gamma]$$^2 - 
                    544 $CellContext`k $CellContext`\[Gamma]$$^2 + 
                    3104 $CellContext`k^2 $CellContext`\[Gamma]$$^2 - 
                    1536 $CellContext`k^3 $CellContext`\[Gamma]$$^2 - 
                    12 $CellContext`\[Gamma]$$^3 - 
                    512 $CellContext`k $CellContext`\[Gamma]$$^3 + 
                    128 $CellContext`k^2 $CellContext`\[Gamma]$$^3 + 
                    22 $CellContext`\[Gamma]$$^4 + 
                    712 $CellContext`k $CellContext`\[Gamma]$$^4 - 
                    3504 $CellContext`k^2 $CellContext`\[Gamma]$$^4 + 
                    1728 $CellContext`k^3 $CellContext`\[Gamma]$$^4 + 
                    6 $CellContext`\[Gamma]$$^5 + 
                    336 $CellContext`k $CellContext`\[Gamma]$$^5 - 
                    84 $CellContext`k^2 $CellContext`\[Gamma]$$^5 - 
                    6 $CellContext`\[Gamma]$$^6 - 
                    390 $CellContext`k $CellContext`\[Gamma]$$^6 + 
                    1874 $CellContext`k^2 $CellContext`\[Gamma]$$^6 - 
                    928 $CellContext`k^3 $CellContext`\[Gamma]$$^6 - 
                    2 $CellContext`\[Gamma]$$^7 - 
                    88 $CellContext`k $CellContext`\[Gamma]$$^7 + 
                    22 $CellContext`k^2 $CellContext`\[Gamma]$$^7 + 
                    109 $CellContext`k $CellContext`\[Gamma]$$^8 - 
                    518 $CellContext`k^2 $CellContext`\[Gamma]$$^8 + 
                    258 $CellContext`k^3 $CellContext`\[Gamma]$$^8 + 
                    8 $CellContext`k $CellContext`\[Gamma]$$^9 - 
                    2 $CellContext`k^2 $CellContext`\[Gamma]$$^9 - 
                    16 $CellContext`k $CellContext`\[Gamma]$$^10 + 
                    72 $CellContext`k^2 $CellContext`\[Gamma]$$^10 - 
                    36 $CellContext`k^3 $CellContext`\[Gamma]$$^10 + \
$CellContext`k $CellContext`\[Gamma]$$^12 - 
                    4 $CellContext`k^2 $CellContext`\[Gamma]$$^12 + 
                    2 $CellContext`k^3 $CellContext`\[Gamma]$$^12)^2 + 
                    432 ((-16) $CellContext`k $CellContext`\[Gamma]$$^2 + 
                    2 $CellContext`\[Gamma]$$^3 - $CellContext`\[Gamma]$$^4 + 
                    24 $CellContext`k $CellContext`\[Gamma]$$^4 - \
$CellContext`\[Gamma]$$^5 - 
                    9 $CellContext`k $CellContext`\[Gamma]$$^6 + \
$CellContext`k $CellContext`\[Gamma]$$^8)^2 (16 - 256 $CellContext`k + 
                    1152 $CellContext`k^2 - 1024 $CellContext`k^3 + 
                    256 $CellContext`k^4 - 32 $CellContext`\[Gamma]$$ - 
                    256 $CellContext`k $CellContext`\[Gamma]$$ + 
                    128 $CellContext`k^2 $CellContext`\[Gamma]$$ - 
                    8 $CellContext`\[Gamma]$$^2 + 
                    960 $CellContext`k $CellContext`\[Gamma]$$^2 - 
                    3552 $CellContext`k^2 $CellContext`\[Gamma]$$^2 + 
                    3072 $CellContext`k^3 $CellContext`\[Gamma]$$^2 - 
                    768 $CellContext`k^4 $CellContext`\[Gamma]$$^2 + 
                    40 $CellContext`\[Gamma]$$^3 + 
                    512 $CellContext`k $CellContext`\[Gamma]$$^3 - 
                    256 $CellContext`k^2 $CellContext`\[Gamma]$$^3 + \
$CellContext`\[Gamma]$$^4 - 1232 $CellContext`k $CellContext`\[Gamma]$$^4 + 
                    4072 $CellContext`k^2 $CellContext`\[Gamma]$$^4 - 
                    3456 $CellContext`k^3 $CellContext`\[Gamma]$$^4 + 
                    864 $CellContext`k^4 $CellContext`\[Gamma]$$^4 - 
                    20 $CellContext`\[Gamma]$$^5 - 
                    336 $CellContext`k $CellContext`\[Gamma]$$^5 + 
                    168 $CellContext`k^2 $CellContext`\[Gamma]$$^5 - 
                    2 $CellContext`\[Gamma]$$^6 + 
                    708 $CellContext`k $CellContext`\[Gamma]$$^6 - 
                    2210 $CellContext`k^2 $CellContext`\[Gamma]$$^6 + 
                    1856 $CellContext`k^3 $CellContext`\[Gamma]$$^6 - 
                    464 $CellContext`k^4 $CellContext`\[Gamma]$$^6 + 
                    4 $CellContext`\[Gamma]$$^7 + 
                    88 $CellContext`k $CellContext`\[Gamma]$$^7 - 
                    44 $CellContext`k^2 $CellContext`\[Gamma]$$^7 + \
$CellContext`\[Gamma]$$^8 - 210 $CellContext`k $CellContext`\[Gamma]$$^8 + 
                    621 $CellContext`k^2 $CellContext`\[Gamma]$$^8 - 
                    516 $CellContext`k^3 $CellContext`\[Gamma]$$^8 + 
                    129 $CellContext`k^4 $CellContext`\[Gamma]$$^8 - 
                    8 $CellContext`k $CellContext`\[Gamma]$$^9 + 
                    4 $CellContext`k^2 $CellContext`\[Gamma]$$^9 + 
                    32 $CellContext`k $CellContext`\[Gamma]$$^10 - 
                    88 $CellContext`k^2 $CellContext`\[Gamma]$$^10 + 
                    72 $CellContext`k^3 $CellContext`\[Gamma]$$^10 - 
                    18 $CellContext`k^4 $CellContext`\[Gamma]$$^10 - 
                    2 $CellContext`k $CellContext`\[Gamma]$$^12 + 
                    5 $CellContext`k^2 $CellContext`\[Gamma]$$^12 - 
                    4 $CellContext`k^3 $CellContext`\[Gamma]$$^12 + \
$CellContext`k^4 $CellContext`\[Gamma]$$^12) - 
                    144 $CellContext`\[Gamma]$$^4 (512 $CellContext`k^2 - 
                    128 $CellContext`k $CellContext`\[Gamma]$$ + 
                    12 $CellContext`\[Gamma]$$^2 + 
                    96 $CellContext`k $CellContext`\[Gamma]$$^2 - 
                    1552 $CellContext`k^2 $CellContext`\[Gamma]$$^2 - 
                    12 $CellContext`\[Gamma]$$^3 + 
                    256 $CellContext`k $CellContext`\[Gamma]$$^3 - 
                    9 $CellContext`\[Gamma]$$^4 - 
                    144 $CellContext`k $CellContext`\[Gamma]$$^4 + 
                    1752 $CellContext`k^2 $CellContext`\[Gamma]$$^4 + 
                    6 $CellContext`\[Gamma]$$^5 - 
                    168 $CellContext`k $CellContext`\[Gamma]$$^5 + 
                    3 $CellContext`\[Gamma]$$^6 + 
                    54 $CellContext`k $CellContext`\[Gamma]$$^6 - 
                    937 $CellContext`k^2 $CellContext`\[Gamma]$$^6 + 
                    44 $CellContext`k $CellContext`\[Gamma]$$^7 - 
                    6 $CellContext`k $CellContext`\[Gamma]$$^8 + 
                    259 $CellContext`k^2 $CellContext`\[Gamma]$$^8 - 
                    4 $CellContext`k $CellContext`\[Gamma]$$^9 - 
                    36 $CellContext`k^2 $CellContext`\[Gamma]$$^10 + 
                    2 $CellContext`k^2 $CellContext`\[Gamma]$$^12) (16 - 
                    256 $CellContext`k + 1152 $CellContext`k^2 - 
                    1024 $CellContext`k^3 + 256 $CellContext`k^4 - 
                    32 $CellContext`\[Gamma]$$ - 
                    256 $CellContext`k $CellContext`\[Gamma]$$ + 
                    128 $CellContext`k^2 $CellContext`\[Gamma]$$ - 
                    8 $CellContext`\[Gamma]$$^2 + 
                    960 $CellContext`k $CellContext`\[Gamma]$$^2 - 
                    3552 $CellContext`k^2 $CellContext`\[Gamma]$$^2 + 
                    3072 $CellContext`k^3 $CellContext`\[Gamma]$$^2 - 
                    768 $CellContext`k^4 $CellContext`\[Gamma]$$^2 + 
                    40 $CellContext`\[Gamma]$$^3 + 
                    512 $CellContext`k $CellContext`\[Gamma]$$^3 - 
                    256 $CellContext`k^2 $CellContext`\[Gamma]$$^3 + \
$CellContext`\[Gamma]$$^4 - 1232 $CellContext`k $CellContext`\[Gamma]$$^4 + 
                    4072 $CellContext`k^2 $CellContext`\[Gamma]$$^4 - 
                    3456 $CellContext`k^3 $CellContext`\[Gamma]$$^4 + 
                    864 $CellContext`k^4 $CellContext`\[Gamma]$$^4 - 
                    20 $CellContext`\[Gamma]$$^5 - 
                    336 $CellContext`k $CellContext`\[Gamma]$$^5 + 
                    168 $CellContext`k^2 $CellContext`\[Gamma]$$^5 - 
                    2 $CellContext`\[Gamma]$$^6 + 
                    708 $CellContext`k $CellContext`\[Gamma]$$^6 - 
                    2210 $CellContext`k^2 $CellContext`\[Gamma]$$^6 + 
                    1856 $CellContext`k^3 $CellContext`\[Gamma]$$^6 - 
                    464 $CellContext`k^4 $CellContext`\[Gamma]$$^6 + 
                    4 $CellContext`\[Gamma]$$^7 + 
                    88 $CellContext`k $CellContext`\[Gamma]$$^7 - 
                    44 $CellContext`k^2 $CellContext`\[Gamma]$$^7 + \
$CellContext`\[Gamma]$$^8 - 210 $CellContext`k $CellContext`\[Gamma]$$^8 + 
                    621 $CellContext`k^2 $CellContext`\[Gamma]$$^8 - 
                    516 $CellContext`k^3 $CellContext`\[Gamma]$$^8 + 
                    129 $CellContext`k^4 $CellContext`\[Gamma]$$^8 - 
                    8 $CellContext`k $CellContext`\[Gamma]$$^9 + 
                    4 $CellContext`k^2 $CellContext`\[Gamma]$$^9 + 
                    32 $CellContext`k $CellContext`\[Gamma]$$^10 - 
                    88 $CellContext`k^2 $CellContext`\[Gamma]$$^10 + 
                    72 $CellContext`k^3 $CellContext`\[Gamma]$$^10 - 
                    18 $CellContext`k^4 $CellContext`\[Gamma]$$^10 - 
                    2 $CellContext`k $CellContext`\[Gamma]$$^12 + 
                    5 $CellContext`k^2 $CellContext`\[Gamma]$$^12 - 
                    4 $CellContext`k^3 $CellContext`\[Gamma]$$^12 + \
$CellContext`k^4 $CellContext`\[Gamma]$$^12))^2)^Rational[1, 2])^
               Rational[-1, 3] + 
             Rational[-1, 3] 
              2^Rational[-1, 3] $CellContext`\[Gamma]$$^(-4) (
                16 (512 $CellContext`k^2 - 
                   128 $CellContext`k $CellContext`\[Gamma]$$ + 
                   12 $CellContext`\[Gamma]$$^2 + 
                   96 $CellContext`k $CellContext`\[Gamma]$$^2 - 
                   1552 $CellContext`k^2 $CellContext`\[Gamma]$$^2 - 
                   12 $CellContext`\[Gamma]$$^3 + 
                   256 $CellContext`k $CellContext`\[Gamma]$$^3 - 
                   9 $CellContext`\[Gamma]$$^4 - 
                   144 $CellContext`k $CellContext`\[Gamma]$$^4 + 
                   1752 $CellContext`k^2 $CellContext`\[Gamma]$$^4 + 
                   6 $CellContext`\[Gamma]$$^5 - 
                   168 $CellContext`k $CellContext`\[Gamma]$$^5 + 
                   3 $CellContext`\[Gamma]$$^6 + 
                   54 $CellContext`k $CellContext`\[Gamma]$$^6 - 
                   937 $CellContext`k^2 $CellContext`\[Gamma]$$^6 + 
                   44 $CellContext`k $CellContext`\[Gamma]$$^7 - 
                   6 $CellContext`k $CellContext`\[Gamma]$$^8 + 
                   259 $CellContext`k^2 $CellContext`\[Gamma]$$^8 - 
                   4 $CellContext`k $CellContext`\[Gamma]$$^9 - 
                   36 $CellContext`k^2 $CellContext`\[Gamma]$$^10 + 
                   2 $CellContext`k^2 $CellContext`\[Gamma]$$^12)^3 - 
                144 ((-16) $CellContext`k $CellContext`\[Gamma]$$^2 + 
                 2 $CellContext`\[Gamma]$$^3 - $CellContext`\[Gamma]$$^4 + 
                 24 $CellContext`k $CellContext`\[Gamma]$$^4 - $CellContext`\
\[Gamma]$$^5 - 
                 9 $CellContext`k $CellContext`\[Gamma]$$^6 + $CellContext`k \
$CellContext`\[Gamma]$$^8) (512 $CellContext`k^2 - 
                 128 $CellContext`k $CellContext`\[Gamma]$$ + 
                 12 $CellContext`\[Gamma]$$^2 + 
                 96 $CellContext`k $CellContext`\[Gamma]$$^2 - 
                 1552 $CellContext`k^2 $CellContext`\[Gamma]$$^2 - 
                 12 $CellContext`\[Gamma]$$^3 + 
                 256 $CellContext`k $CellContext`\[Gamma]$$^3 - 
                 9 $CellContext`\[Gamma]$$^4 - 
                 144 $CellContext`k $CellContext`\[Gamma]$$^4 + 
                 1752 $CellContext`k^2 $CellContext`\[Gamma]$$^4 + 
                 6 $CellContext`\[Gamma]$$^5 - 
                 168 $CellContext`k $CellContext`\[Gamma]$$^5 + 
                 3 $CellContext`\[Gamma]$$^6 + 
                 54 $CellContext`k $CellContext`\[Gamma]$$^6 - 
                 937 $CellContext`k^2 $CellContext`\[Gamma]$$^6 + 
                 44 $CellContext`k $CellContext`\[Gamma]$$^7 - 
                 6 $CellContext`k $CellContext`\[Gamma]$$^8 + 
                 259 $CellContext`k^2 $CellContext`\[Gamma]$$^8 - 
                 4 $CellContext`k $CellContext`\[Gamma]$$^9 - 
                 36 $CellContext`k^2 $CellContext`\[Gamma]$$^10 + 
                 2 $CellContext`k^2 $CellContext`\[Gamma]$$^12) (
                 128 $CellContext`k - 1024 $CellContext`k^2 + 
                 512 $CellContext`k^3 + 16 $CellContext`\[Gamma]$$ + 
                 256 $CellContext`k $CellContext`\[Gamma]$$ - 
                 64 $CellContext`k^2 $CellContext`\[Gamma]$$ - 
                 24 $CellContext`\[Gamma]$$^2 - 
                 544 $CellContext`k $CellContext`\[Gamma]$$^2 + 
                 3104 $CellContext`k^2 $CellContext`\[Gamma]$$^2 - 
                 1536 $CellContext`k^3 $CellContext`\[Gamma]$$^2 - 
                 12 $CellContext`\[Gamma]$$^3 - 
                 512 $CellContext`k $CellContext`\[Gamma]$$^3 + 
                 128 $CellContext`k^2 $CellContext`\[Gamma]$$^3 + 
                 22 $CellContext`\[Gamma]$$^4 + 
                 712 $CellContext`k $CellContext`\[Gamma]$$^4 - 
                 3504 $CellContext`k^2 $CellContext`\[Gamma]$$^4 + 
                 1728 $CellContext`k^3 $CellContext`\[Gamma]$$^4 + 
                 6 $CellContext`\[Gamma]$$^5 + 
                 336 $CellContext`k $CellContext`\[Gamma]$$^5 - 
                 84 $CellContext`k^2 $CellContext`\[Gamma]$$^5 - 
                 6 $CellContext`\[Gamma]$$^6 - 
                 390 $CellContext`k $CellContext`\[Gamma]$$^6 + 
                 1874 $CellContext`k^2 $CellContext`\[Gamma]$$^6 - 
                 928 $CellContext`k^3 $CellContext`\[Gamma]$$^6 - 
                 2 $CellContext`\[Gamma]$$^7 - 
                 88 $CellContext`k $CellContext`\[Gamma]$$^7 + 
                 22 $CellContext`k^2 $CellContext`\[Gamma]$$^7 + 
                 109 $CellContext`k $CellContext`\[Gamma]$$^8 - 
                 518 $CellContext`k^2 $CellContext`\[Gamma]$$^8 + 
                 258 $CellContext`k^3 $CellContext`\[Gamma]$$^8 + 
                 8 $CellContext`k $CellContext`\[Gamma]$$^9 - 
                 2 $CellContext`k^2 $CellContext`\[Gamma]$$^9 - 
                 16 $CellContext`k $CellContext`\[Gamma]$$^10 + 
                 72 $CellContext`k^2 $CellContext`\[Gamma]$$^10 - 
                 36 $CellContext`k^3 $CellContext`\[Gamma]$$^10 + \
$CellContext`k $CellContext`\[Gamma]$$^12 - 
                 4 $CellContext`k^2 $CellContext`\[Gamma]$$^12 + 
                 2 $CellContext`k^3 $CellContext`\[Gamma]$$^12) + 
                108 $CellContext`\[Gamma]$$^4 (128 $CellContext`k - 
                   1024 $CellContext`k^2 + 512 $CellContext`k^3 + 
                   16 $CellContext`\[Gamma]$$ + 
                   256 $CellContext`k $CellContext`\[Gamma]$$ - 
                   64 $CellContext`k^2 $CellContext`\[Gamma]$$ - 
                   24 $CellContext`\[Gamma]$$^2 - 
                   544 $CellContext`k $CellContext`\[Gamma]$$^2 + 
                   3104 $CellContext`k^2 $CellContext`\[Gamma]$$^2 - 
                   1536 $CellContext`k^3 $CellContext`\[Gamma]$$^2 - 
                   12 $CellContext`\[Gamma]$$^3 - 
                   512 $CellContext`k $CellContext`\[Gamma]$$^3 + 
                   128 $CellContext`k^2 $CellContext`\[Gamma]$$^3 + 
                   22 $CellContext`\[Gamma]$$^4 + 
                   712 $CellContext`k $CellContext`\[Gamma]$$^4 - 
                   3504 $CellContext`k^2 $CellContext`\[Gamma]$$^4 + 
                   1728 $CellContext`k^3 $CellContext`\[Gamma]$$^4 + 
                   6 $CellContext`\[Gamma]$$^5 + 
                   336 $CellContext`k $CellContext`\[Gamma]$$^5 - 
                   84 $CellContext`k^2 $CellContext`\[Gamma]$$^5 - 
                   6 $CellContext`\[Gamma]$$^6 - 
                   390 $CellContext`k $CellContext`\[Gamma]$$^6 + 
                   1874 $CellContext`k^2 $CellContext`\[Gamma]$$^6 - 
                   928 $CellContext`k^3 $CellContext`\[Gamma]$$^6 - 
                   2 $CellContext`\[Gamma]$$^7 - 
                   88 $CellContext`k $CellContext`\[Gamma]$$^7 + 
                   22 $CellContext`k^2 $CellContext`\[Gamma]$$^7 + 
                   109 $CellContext`k $CellContext`\[Gamma]$$^8 - 
                   518 $CellContext`k^2 $CellContext`\[Gamma]$$^8 + 
                   258 $CellContext`k^3 $CellContext`\[Gamma]$$^8 + 
                   8 $CellContext`k $CellContext`\[Gamma]$$^9 - 
                   2 $CellContext`k^2 $CellContext`\[Gamma]$$^9 - 
                   16 $CellContext`k $CellContext`\[Gamma]$$^10 + 
                   72 $CellContext`k^2 $CellContext`\[Gamma]$$^10 - 
                   
                   36 $CellContext`k^3 $CellContext`\[Gamma]$$^10 + \
$CellContext`k $CellContext`\[Gamma]$$^12 - 
                   4 $CellContext`k^2 $CellContext`\[Gamma]$$^12 + 
                   2 $CellContext`k^3 $CellContext`\[Gamma]$$^12)^2 + 
                432 ((-16) $CellContext`k $CellContext`\[Gamma]$$^2 + 
                   2 $CellContext`\[Gamma]$$^3 - $CellContext`\[Gamma]$$^4 + 
                   24 $CellContext`k $CellContext`\[Gamma]$$^4 - \
$CellContext`\[Gamma]$$^5 - 
                   9 $CellContext`k $CellContext`\[Gamma]$$^6 + \
$CellContext`k $CellContext`\[Gamma]$$^8)^2 (16 - 256 $CellContext`k + 
                  1152 $CellContext`k^2 - 1024 $CellContext`k^3 + 
                  256 $CellContext`k^4 - 32 $CellContext`\[Gamma]$$ - 
                  256 $CellContext`k $CellContext`\[Gamma]$$ + 
                  128 $CellContext`k^2 $CellContext`\[Gamma]$$ - 
                  8 $CellContext`\[Gamma]$$^2 + 
                  960 $CellContext`k $CellContext`\[Gamma]$$^2 - 
                  3552 $CellContext`k^2 $CellContext`\[Gamma]$$^2 + 
                  3072 $CellContext`k^3 $CellContext`\[Gamma]$$^2 - 
                  768 $CellContext`k^4 $CellContext`\[Gamma]$$^2 + 
                  40 $CellContext`\[Gamma]$$^3 + 
                  512 $CellContext`k $CellContext`\[Gamma]$$^3 - 
                  256 $CellContext`k^2 $CellContext`\[Gamma]$$^3 + \
$CellContext`\[Gamma]$$^4 - 1232 $CellContext`k $CellContext`\[Gamma]$$^4 + 
                  4072 $CellContext`k^2 $CellContext`\[Gamma]$$^4 - 
                  3456 $CellContext`k^3 $CellContext`\[Gamma]$$^4 + 
                  864 $CellContext`k^4 $CellContext`\[Gamma]$$^4 - 
                  20 $CellContext`\[Gamma]$$^5 - 
                  336 $CellContext`k $CellContext`\[Gamma]$$^5 + 
                  168 $CellContext`k^2 $CellContext`\[Gamma]$$^5 - 
                  2 $CellContext`\[Gamma]$$^6 + 
                  708 $CellContext`k $CellContext`\[Gamma]$$^6 - 
                  2210 $CellContext`k^2 $CellContext`\[Gamma]$$^6 + 
                  1856 $CellContext`k^3 $CellContext`\[Gamma]$$^6 - 
                  464 $CellContext`k^4 $CellContext`\[Gamma]$$^6 + 
                  4 $CellContext`\[Gamma]$$^7 + 
                  88 $CellContext`k $CellContext`\[Gamma]$$^7 - 
                  44 $CellContext`k^2 $CellContext`\[Gamma]$$^7 + \
$CellContext`\[Gamma]$$^8 - 210 $CellContext`k $CellContext`\[Gamma]$$^8 + 
                  621 $CellContext`k^2 $CellContext`\[Gamma]$$^8 - 
                  516 $CellContext`k^3 $CellContext`\[Gamma]$$^8 + 
                  129 $CellContext`k^4 $CellContext`\[Gamma]$$^8 - 
                  8 $CellContext`k $CellContext`\[Gamma]$$^9 + 
                  4 $CellContext`k^2 $CellContext`\[Gamma]$$^9 + 
                  32 $CellContext`k $CellContext`\[Gamma]$$^10 - 
                  88 $CellContext`k^2 $CellContext`\[Gamma]$$^10 + 
                  72 $CellContext`k^3 $CellContext`\[Gamma]$$^10 - 
                  18 $CellContext`k^4 $CellContext`\[Gamma]$$^10 - 
                  2 $CellContext`k $CellContext`\[Gamma]$$^12 + 
                  5 $CellContext`k^2 $CellContext`\[Gamma]$$^12 - 
                  4 $CellContext`k^3 $CellContext`\[Gamma]$$^12 + \
$CellContext`k^4 $CellContext`\[Gamma]$$^12) - 
                144 $CellContext`\[Gamma]$$^4 (512 $CellContext`k^2 - 
                 128 $CellContext`k $CellContext`\[Gamma]$$ + 
                 12 $CellContext`\[Gamma]$$^2 + 
                 96 $CellContext`k $CellContext`\[Gamma]$$^2 - 
                 1552 $CellContext`k^2 $CellContext`\[Gamma]$$^2 - 
                 12 $CellContext`\[Gamma]$$^3 + 
                 256 $CellContext`k $CellContext`\[Gamma]$$^3 - 
                 9 $CellContext`\[Gamma]$$^4 - 
                 144 $CellContext`k $CellContext`\[Gamma]$$^4 + 
                 1752 $CellContext`k^2 $CellContext`\[Gamma]$$^4 + 
                 6 $CellContext`\[Gamma]$$^5 - 
                 168 $CellContext`k $CellContext`\[Gamma]$$^5 + 
                 3 $CellContext`\[Gamma]$$^6 + 
                 54 $CellContext`k $CellContext`\[Gamma]$$^6 - 
                 937 $CellContext`k^2 $CellContext`\[Gamma]$$^6 + 
                 44 $CellContext`k $CellContext`\[Gamma]$$^7 - 
                 6 $CellContext`k $CellContext`\[Gamma]$$^8 + 
                 259 $CellContext`k^2 $CellContext`\[Gamma]$$^8 - 
                 4 $CellContext`k $CellContext`\[Gamma]$$^9 - 
                 36 $CellContext`k^2 $CellContext`\[Gamma]$$^10 + 
                 2 $CellContext`k^2 $CellContext`\[Gamma]$$^12) (16 - 
                 256 $CellContext`k + 1152 $CellContext`k^2 - 
                 1024 $CellContext`k^3 + 256 $CellContext`k^4 - 
                 32 $CellContext`\[Gamma]$$ - 
                 256 $CellContext`k $CellContext`\[Gamma]$$ + 
                 128 $CellContext`k^2 $CellContext`\[Gamma]$$ - 
                 8 $CellContext`\[Gamma]$$^2 + 
                 960 $CellContext`k $CellContext`\[Gamma]$$^2 - 
                 3552 $CellContext`k^2 $CellContext`\[Gamma]$$^2 + 
                 3072 $CellContext`k^3 $CellContext`\[Gamma]$$^2 - 
                 768 $CellContext`k^4 $CellContext`\[Gamma]$$^2 + 
                 40 $CellContext`\[Gamma]$$^3 + 
                 512 $CellContext`k $CellContext`\[Gamma]$$^3 - 
                 256 $CellContext`k^2 $CellContext`\[Gamma]$$^3 + \
$CellContext`\[Gamma]$$^4 - 1232 $CellContext`k $CellContext`\[Gamma]$$^4 + 
                 4072 $CellContext`k^2 $CellContext`\[Gamma]$$^4 - 
                 3456 $CellContext`k^3 $CellContext`\[Gamma]$$^4 + 
                 864 $CellContext`k^4 $CellContext`\[Gamma]$$^4 - 
                 20 $CellContext`\[Gamma]$$^5 - 
                 336 $CellContext`k $CellContext`\[Gamma]$$^5 + 
                 168 $CellContext`k^2 $CellContext`\[Gamma]$$^5 - 
                 2 $CellContext`\[Gamma]$$^6 + 
                 708 $CellContext`k $CellContext`\[Gamma]$$^6 - 
                 2210 $CellContext`k^2 $CellContext`\[Gamma]$$^6 + 
                 1856 $CellContext`k^3 $CellContext`\[Gamma]$$^6 - 
                 464 $CellContext`k^4 $CellContext`\[Gamma]$$^6 + 
                 4 $CellContext`\[Gamma]$$^7 + 
                 88 $CellContext`k $CellContext`\[Gamma]$$^7 - 
                 44 $CellContext`k^2 $CellContext`\[Gamma]$$^7 + \
$CellContext`\[Gamma]$$^8 - 210 $CellContext`k $CellContext`\[Gamma]$$^8 + 
                 621 $CellContext`k^2 $CellContext`\[Gamma]$$^8 - 
                 516 $CellContext`k^3 $CellContext`\[Gamma]$$^8 + 
                 129 $CellContext`k^4 $CellContext`\[Gamma]$$^8 - 
                 8 $CellContext`k $CellContext`\[Gamma]$$^9 + 
                 4 $CellContext`k^2 $CellContext`\[Gamma]$$^9 + 
                 32 $CellContext`k $CellContext`\[Gamma]$$^10 - 
                 88 $CellContext`k^2 $CellContext`\[Gamma]$$^10 + 
                 72 $CellContext`k^3 $CellContext`\[Gamma]$$^10 - 
                 18 $CellContext`k^4 $CellContext`\[Gamma]$$^10 - 
                 2 $CellContext`k $CellContext`\[Gamma]$$^12 + 
                 5 $CellContext`k^2 $CellContext`\[Gamma]$$^12 - 
                 4 $CellContext`k^3 $CellContext`\[Gamma]$$^12 + \
$CellContext`k^4 $CellContext`\[Gamma]$$^12) + ((-4) (
                    1048576 $CellContext`k^4 - 
                    524288 $CellContext`k^3 $CellContext`\[Gamma]$$ + 
                    163840 $CellContext`k^2 $CellContext`\[Gamma]$$^2 - 
                    6160384 $CellContext`k^4 $CellContext`\[Gamma]$$^2 - 
                    12288 $CellContext`k $CellContext`\[Gamma]$$^3 + 
                    2588672 $CellContext`k^3 $CellContext`\[Gamma]$$^3 - 
                    701440 $CellContext`k^2 $CellContext`\[Gamma]$$^4 + 
                    15929344 $CellContext`k^4 $CellContext`\[Gamma]$$^4 + 
                    43008 $CellContext`k $CellContext`\[Gamma]$$^5 - 
                    5488640 $CellContext`k^3 $CellContext`\[Gamma]$$^5 + 
                    1254400 $CellContext`k^2 $CellContext`\[Gamma]$$^6 - 
                    23941120 $CellContext`k^4 $CellContext`\[Gamma]$$^6 - 
                    59904 $CellContext`k $CellContext`\[Gamma]$$^7 + 
                    6574080 $CellContext`k^3 $CellContext`\[Gamma]$$^7 - 
                    1226624 $CellContext`k^2 $CellContext`\[Gamma]$$^8 + 
                    23287296 $CellContext`k^4 $CellContext`\[Gamma]$$^8 + 
                    43008 $CellContext`k $CellContext`\[Gamma]$$^9 - 
                    4929536 $CellContext`k^3 $CellContext`\[Gamma]$$^9 + 
                    723392 $CellContext`k^2 $CellContext`\[Gamma]$$^10 - 
                    15458048 $CellContext`k^4 $CellContext`\[Gamma]$$^10 - 
                    17328 $CellContext`k $CellContext`\[Gamma]$$^11 + 
                    2423680 $CellContext`k^3 $CellContext`\[Gamma]$$^11 - 
                    267956 $CellContext`k^2 $CellContext`\[Gamma]$$^12 + 
                    7194384 $CellContext`k^4 $CellContext`\[Gamma]$$^12 + 
                    3960 $CellContext`k $CellContext`\[Gamma]$$^13 - 
                    793920 $CellContext`k^3 $CellContext`\[Gamma]$$^13 + 
                    62656 $CellContext`k^2 $CellContext`\[Gamma]$$^14 - 
                    2371584 $CellContext`k^4 $CellContext`\[Gamma]$$^14 - 
                    480 $CellContext`k $CellContext`\[Gamma]$$^15 + 
                    171712 $CellContext`k^3 $CellContext`\[Gamma]$$^15 - 
                    8956 $CellContext`k^2 $CellContext`\[Gamma]$$^16 + 
                    551104 $CellContext`k^4 $CellContext`\[Gamma]$$^16 + 
                    24 $CellContext`k $CellContext`\[Gamma]$$^17 - 
                    23552 $CellContext`k^3 $CellContext`\[Gamma]$$^17 + 
                    712 $CellContext`k^2 $CellContext`\[Gamma]$$^18 - 
                    88288 $CellContext`k^4 $CellContext`\[Gamma]$$^18 + 
                    1856 $CellContext`k^3 $CellContext`\[Gamma]$$^19 - 
                    24 $CellContext`k^2 $CellContext`\[Gamma]$$^20 + 
                    9280 $CellContext`k^4 $CellContext`\[Gamma]$$^20 - 
                    64 $CellContext`k^3 $CellContext`\[Gamma]$$^21 - 
                    576 $CellContext`k^4 $CellContext`\[Gamma]$$^22 + 
                    16 $CellContext`k^4 $CellContext`\[Gamma]$$^24)^3 + (
                    16 (512 $CellContext`k^2 - 
                    128 $CellContext`k $CellContext`\[Gamma]$$ + 
                    12 $CellContext`\[Gamma]$$^2 + 
                    96 $CellContext`k $CellContext`\[Gamma]$$^2 - 
                    1552 $CellContext`k^2 $CellContext`\[Gamma]$$^2 - 
                    12 $CellContext`\[Gamma]$$^3 + 
                    256 $CellContext`k $CellContext`\[Gamma]$$^3 - 
                    9 $CellContext`\[Gamma]$$^4 - 
                    144 $CellContext`k $CellContext`\[Gamma]$$^4 + 
                    1752 $CellContext`k^2 $CellContext`\[Gamma]$$^4 + 
                    6 $CellContext`\[Gamma]$$^5 - 
                    168 $CellContext`k $CellContext`\[Gamma]$$^5 + 
                    3 $CellContext`\[Gamma]$$^6 + 
                    54 $CellContext`k $CellContext`\[Gamma]$$^6 - 
                    937 $CellContext`k^2 $CellContext`\[Gamma]$$^6 + 
                    44 $CellContext`k $CellContext`\[Gamma]$$^7 - 
                    6 $CellContext`k $CellContext`\[Gamma]$$^8 + 
                    259 $CellContext`k^2 $CellContext`\[Gamma]$$^8 - 
                    4 $CellContext`k $CellContext`\[Gamma]$$^9 - 
                    36 $CellContext`k^2 $CellContext`\[Gamma]$$^10 + 
                    2 $CellContext`k^2 $CellContext`\[Gamma]$$^12)^3 - 
                    144 ((-16) $CellContext`k $CellContext`\[Gamma]$$^2 + 
                    2 $CellContext`\[Gamma]$$^3 - $CellContext`\[Gamma]$$^4 + 
                    24 $CellContext`k $CellContext`\[Gamma]$$^4 - \
$CellContext`\[Gamma]$$^5 - 
                    9 $CellContext`k $CellContext`\[Gamma]$$^6 + \
$CellContext`k $CellContext`\[Gamma]$$^8) (512 $CellContext`k^2 - 
                    128 $CellContext`k $CellContext`\[Gamma]$$ + 
                    12 $CellContext`\[Gamma]$$^2 + 
                    96 $CellContext`k $CellContext`\[Gamma]$$^2 - 
                    1552 $CellContext`k^2 $CellContext`\[Gamma]$$^2 - 
                    12 $CellContext`\[Gamma]$$^3 + 
                    256 $CellContext`k $CellContext`\[Gamma]$$^3 - 
                    9 $CellContext`\[Gamma]$$^4 - 
                    144 $CellContext`k $CellContext`\[Gamma]$$^4 + 
                    1752 $CellContext`k^2 $CellContext`\[Gamma]$$^4 + 
                    6 $CellContext`\[Gamma]$$^5 - 
                    168 $CellContext`k $CellContext`\[Gamma]$$^5 + 
                    3 $CellContext`\[Gamma]$$^6 + 
                    54 $CellContext`k $CellContext`\[Gamma]$$^6 - 
                    937 $CellContext`k^2 $CellContext`\[Gamma]$$^6 + 
                    44 $CellContext`k $CellContext`\[Gamma]$$^7 - 
                    6 $CellContext`k $CellContext`\[Gamma]$$^8 + 
                    259 $CellContext`k^2 $CellContext`\[Gamma]$$^8 - 
                    4 $CellContext`k $CellContext`\[Gamma]$$^9 - 
                    36 $CellContext`k^2 $CellContext`\[Gamma]$$^10 + 
                    2 $CellContext`k^2 $CellContext`\[Gamma]$$^12) (
                    128 $CellContext`k - 1024 $CellContext`k^2 + 
                    512 $CellContext`k^3 + 16 $CellContext`\[Gamma]$$ + 
                    256 $CellContext`k $CellContext`\[Gamma]$$ - 
                    64 $CellContext`k^2 $CellContext`\[Gamma]$$ - 
                    24 $CellContext`\[Gamma]$$^2 - 
                    544 $CellContext`k $CellContext`\[Gamma]$$^2 + 
                    3104 $CellContext`k^2 $CellContext`\[Gamma]$$^2 - 
                    1536 $CellContext`k^3 $CellContext`\[Gamma]$$^2 - 
                    12 $CellContext`\[Gamma]$$^3 - 
                    512 $CellContext`k $CellContext`\[Gamma]$$^3 + 
                    128 $CellContext`k^2 $CellContext`\[Gamma]$$^3 + 
                    22 $CellContext`\[Gamma]$$^4 + 
                    712 $CellContext`k $CellContext`\[Gamma]$$^4 - 
                    3504 $CellContext`k^2 $CellContext`\[Gamma]$$^4 + 
                    1728 $CellContext`k^3 $CellContext`\[Gamma]$$^4 + 
                    6 $CellContext`\[Gamma]$$^5 + 
                    336 $CellContext`k $CellContext`\[Gamma]$$^5 - 
                    84 $CellContext`k^2 $CellContext`\[Gamma]$$^5 - 
                    6 $CellContext`\[Gamma]$$^6 - 
                    390 $CellContext`k $CellContext`\[Gamma]$$^6 + 
                    1874 $CellContext`k^2 $CellContext`\[Gamma]$$^6 - 
                    928 $CellContext`k^3 $CellContext`\[Gamma]$$^6 - 
                    2 $CellContext`\[Gamma]$$^7 - 
                    88 $CellContext`k $CellContext`\[Gamma]$$^7 + 
                    22 $CellContext`k^2 $CellContext`\[Gamma]$$^7 + 
                    109 $CellContext`k $CellContext`\[Gamma]$$^8 - 
                    518 $CellContext`k^2 $CellContext`\[Gamma]$$^8 + 
                    258 $CellContext`k^3 $CellContext`\[Gamma]$$^8 + 
                    8 $CellContext`k $CellContext`\[Gamma]$$^9 - 
                    2 $CellContext`k^2 $CellContext`\[Gamma]$$^9 - 
                    16 $CellContext`k $CellContext`\[Gamma]$$^10 + 
                    72 $CellContext`k^2 $CellContext`\[Gamma]$$^10 - 
                    36 $CellContext`k^3 $CellContext`\[Gamma]$$^10 + \
$CellContext`k $CellContext`\[Gamma]$$^12 - 
                    4 $CellContext`k^2 $CellContext`\[Gamma]$$^12 + 
                    2 $CellContext`k^3 $CellContext`\[Gamma]$$^12) + 
                    108 $CellContext`\[Gamma]$$^4 (128 $CellContext`k - 
                    1024 $CellContext`k^2 + 512 $CellContext`k^3 + 
                    16 $CellContext`\[Gamma]$$ + 
                    256 $CellContext`k $CellContext`\[Gamma]$$ - 
                    64 $CellContext`k^2 $CellContext`\[Gamma]$$ - 
                    24 $CellContext`\[Gamma]$$^2 - 
                    544 $CellContext`k $CellContext`\[Gamma]$$^2 + 
                    3104 $CellContext`k^2 $CellContext`\[Gamma]$$^2 - 
                    1536 $CellContext`k^3 $CellContext`\[Gamma]$$^2 - 
                    12 $CellContext`\[Gamma]$$^3 - 
                    512 $CellContext`k $CellContext`\[Gamma]$$^3 + 
                    128 $CellContext`k^2 $CellContext`\[Gamma]$$^3 + 
                    22 $CellContext`\[Gamma]$$^4 + 
                    712 $CellContext`k $CellContext`\[Gamma]$$^4 - 
                    3504 $CellContext`k^2 $CellContext`\[Gamma]$$^4 + 
                    1728 $CellContext`k^3 $CellContext`\[Gamma]$$^4 + 
                    6 $CellContext`\[Gamma]$$^5 + 
                    336 $CellContext`k $CellContext`\[Gamma]$$^5 - 
                    84 $CellContext`k^2 $CellContext`\[Gamma]$$^5 - 
                    6 $CellContext`\[Gamma]$$^6 - 
                    390 $CellContext`k $CellContext`\[Gamma]$$^6 + 
                    1874 $CellContext`k^2 $CellContext`\[Gamma]$$^6 - 
                    928 $CellContext`k^3 $CellContext`\[Gamma]$$^6 - 
                    2 $CellContext`\[Gamma]$$^7 - 
                    88 $CellContext`k $CellContext`\[Gamma]$$^7 + 
                    22 $CellContext`k^2 $CellContext`\[Gamma]$$^7 + 
                    109 $CellContext`k $CellContext`\[Gamma]$$^8 - 
                    518 $CellContext`k^2 $CellContext`\[Gamma]$$^8 + 
                    258 $CellContext`k^3 $CellContext`\[Gamma]$$^8 + 
                    8 $CellContext`k $CellContext`\[Gamma]$$^9 - 
                    2 $CellContext`k^2 $CellContext`\[Gamma]$$^9 - 
                    16 $CellContext`k $CellContext`\[Gamma]$$^10 + 
                    72 $CellContext`k^2 $CellContext`\[Gamma]$$^10 - 
                    36 $CellContext`k^3 $CellContext`\[Gamma]$$^10 + \
$CellContext`k $CellContext`\[Gamma]$$^12 - 
                    4 $CellContext`k^2 $CellContext`\[Gamma]$$^12 + 
                    2 $CellContext`k^3 $CellContext`\[Gamma]$$^12)^2 + 
                    432 ((-16) $CellContext`k $CellContext`\[Gamma]$$^2 + 
                    2 $CellContext`\[Gamma]$$^3 - $CellContext`\[Gamma]$$^4 + 
                    24 $CellContext`k $CellContext`\[Gamma]$$^4 - \
$CellContext`\[Gamma]$$^5 - 
                    9 $CellContext`k $CellContext`\[Gamma]$$^6 + \
$CellContext`k $CellContext`\[Gamma]$$^8)^2 (16 - 256 $CellContext`k + 
                    1152 $CellContext`k^2 - 1024 $CellContext`k^3 + 
                    256 $CellContext`k^4 - 32 $CellContext`\[Gamma]$$ - 
                    256 $CellContext`k $CellContext`\[Gamma]$$ + 
                    128 $CellContext`k^2 $CellContext`\[Gamma]$$ - 
                    8 $CellContext`\[Gamma]$$^2 + 
                    960 $CellContext`k $CellContext`\[Gamma]$$^2 - 
                    3552 $CellContext`k^2 $CellContext`\[Gamma]$$^2 + 
                    3072 $CellContext`k^3 $CellContext`\[Gamma]$$^2 - 
                    768 $CellContext`k^4 $CellContext`\[Gamma]$$^2 + 
                    40 $CellContext`\[Gamma]$$^3 + 
                    512 $CellContext`k $CellContext`\[Gamma]$$^3 - 
                    256 $CellContext`k^2 $CellContext`\[Gamma]$$^3 + \
$CellContext`\[Gamma]$$^4 - 1232 $CellContext`k $CellContext`\[Gamma]$$^4 + 
                    4072 $CellContext`k^2 $CellContext`\[Gamma]$$^4 - 
                    3456 $CellContext`k^3 $CellContext`\[Gamma]$$^4 + 
                    864 $CellContext`k^4 $CellContext`\[Gamma]$$^4 - 
                    20 $CellContext`\[Gamma]$$^5 - 
                    336 $CellContext`k $CellContext`\[Gamma]$$^5 + 
                    168 $CellContext`k^2 $CellContext`\[Gamma]$$^5 - 
                    2 $CellContext`\[Gamma]$$^6 + 
                    708 $CellContext`k $CellContext`\[Gamma]$$^6 - 
                    2210 $CellContext`k^2 $CellContext`\[Gamma]$$^6 + 
                    1856 $CellContext`k^3 $CellContext`\[Gamma]$$^6 - 
                    464 $CellContext`k^4 $CellContext`\[Gamma]$$^6 + 
                    4 $CellContext`\[Gamma]$$^7 + 
                    88 $CellContext`k $CellContext`\[Gamma]$$^7 - 
                    44 $CellContext`k^2 $CellContext`\[Gamma]$$^7 + \
$CellContext`\[Gamma]$$^8 - 210 $CellContext`k $CellContext`\[Gamma]$$^8 + 
                    621 $CellContext`k^2 $CellContext`\[Gamma]$$^8 - 
                    516 $CellContext`k^3 $CellContext`\[Gamma]$$^8 + 
                    129 $CellContext`k^4 $CellContext`\[Gamma]$$^8 - 
                    8 $CellContext`k $CellContext`\[Gamma]$$^9 + 
                    4 $CellContext`k^2 $CellContext`\[Gamma]$$^9 + 
                    32 $CellContext`k $CellContext`\[Gamma]$$^10 - 
                    88 $CellContext`k^2 $CellContext`\[Gamma]$$^10 + 
                    72 $CellContext`k^3 $CellContext`\[Gamma]$$^10 - 
                    18 $CellContext`k^4 $CellContext`\[Gamma]$$^10 - 
                    2 $CellContext`k $CellContext`\[Gamma]$$^12 + 
                    5 $CellContext`k^2 $CellContext`\[Gamma]$$^12 - 
                    4 $CellContext`k^3 $CellContext`\[Gamma]$$^12 + \
$CellContext`k^4 $CellContext`\[Gamma]$$^12) - 
                    144 $CellContext`\[Gamma]$$^4 (512 $CellContext`k^2 - 
                    128 $CellContext`k $CellContext`\[Gamma]$$ + 
                    12 $CellContext`\[Gamma]$$^2 + 
                    96 $CellContext`k $CellContext`\[Gamma]$$^2 - 
                    1552 $CellContext`k^2 $CellContext`\[Gamma]$$^2 - 
                    12 $CellContext`\[Gamma]$$^3 + 
                    256 $CellContext`k $CellContext`\[Gamma]$$^3 - 
                    9 $CellContext`\[Gamma]$$^4 - 
                    144 $CellContext`k $CellContext`\[Gamma]$$^4 + 
                    1752 $CellContext`k^2 $CellContext`\[Gamma]$$^4 + 
                    6 $CellContext`\[Gamma]$$^5 - 
                    168 $CellContext`k $CellContext`\[Gamma]$$^5 + 
                    3 $CellContext`\[Gamma]$$^6 + 
                    54 $CellContext`k $CellContext`\[Gamma]$$^6 - 
                    937 $CellContext`k^2 $CellContext`\[Gamma]$$^6 + 
                    44 $CellContext`k $CellContext`\[Gamma]$$^7 - 
                    6 $CellContext`k $CellContext`\[Gamma]$$^8 + 
                    259 $CellContext`k^2 $CellContext`\[Gamma]$$^8 - 
                    4 $CellContext`k $CellContext`\[Gamma]$$^9 - 
                    36 $CellContext`k^2 $CellContext`\[Gamma]$$^10 + 
                    2 $CellContext`k^2 $CellContext`\[Gamma]$$^12) (16 - 
                    256 $CellContext`k + 1152 $CellContext`k^2 - 
                    1024 $CellContext`k^3 + 256 $CellContext`k^4 - 
                    32 $CellContext`\[Gamma]$$ - 
                    256 $CellContext`k $CellContext`\[Gamma]$$ + 
                    128 $CellContext`k^2 $CellContext`\[Gamma]$$ - 
                    8 $CellContext`\[Gamma]$$^2 + 
                    960 $CellContext`k $CellContext`\[Gamma]$$^2 - 
                    3552 $CellContext`k^2 $CellContext`\[Gamma]$$^2 + 
                    3072 $CellContext`k^3 $CellContext`\[Gamma]$$^2 - 
                    768 $CellContext`k^4 $CellContext`\[Gamma]$$^2 + 
                    40 $CellContext`\[Gamma]$$^3 + 
                    512 $CellContext`k $CellContext`\[Gamma]$$^3 - 
                    256 $CellContext`k^2 $CellContext`\[Gamma]$$^3 + \
$CellContext`\[Gamma]$$^4 - 1232 $CellContext`k $CellContext`\[Gamma]$$^4 + 
                    4072 $CellContext`k^2 $CellContext`\[Gamma]$$^4 - 
                    3456 $CellContext`k^3 $CellContext`\[Gamma]$$^4 + 
                    864 $CellContext`k^4 $CellContext`\[Gamma]$$^4 - 
                    20 $CellContext`\[Gamma]$$^5 - 
                    336 $CellContext`k $CellContext`\[Gamma]$$^5 + 
                    168 $CellContext`k^2 $CellContext`\[Gamma]$$^5 - 
                    2 $CellContext`\[Gamma]$$^6 + 
                    708 $CellContext`k $CellContext`\[Gamma]$$^6 - 
                    2210 $CellContext`k^2 $CellContext`\[Gamma]$$^6 + 
                    1856 $CellContext`k^3 $CellContext`\[Gamma]$$^6 - 
                    464 $CellContext`k^4 $CellContext`\[Gamma]$$^6 + 
                    4 $CellContext`\[Gamma]$$^7 + 
                    88 $CellContext`k $CellContext`\[Gamma]$$^7 - 
                    44 $CellContext`k^2 $CellContext`\[Gamma]$$^7 + \
$CellContext`\[Gamma]$$^8 - 210 $CellContext`k $CellContext`\[Gamma]$$^8 + 
                    621 $CellContext`k^2 $CellContext`\[Gamma]$$^8 - 
                    516 $CellContext`k^3 $CellContext`\[Gamma]$$^8 + 
                    129 $CellContext`k^4 $CellContext`\[Gamma]$$^8 - 
                    8 $CellContext`k $CellContext`\[Gamma]$$^9 + 
                    4 $CellContext`k^2 $CellContext`\[Gamma]$$^9 + 
                    32 $CellContext`k $CellContext`\[Gamma]$$^10 - 
                    88 $CellContext`k^2 $CellContext`\[Gamma]$$^10 + 
                    72 $CellContext`k^3 $CellContext`\[Gamma]$$^10 - 
                    18 $CellContext`k^4 $CellContext`\[Gamma]$$^10 - 
                    2 $CellContext`k $CellContext`\[Gamma]$$^12 + 
                    5 $CellContext`k^2 $CellContext`\[Gamma]$$^12 - 
                    4 $CellContext`k^3 $CellContext`\[Gamma]$$^12 + \
$CellContext`k^4 $CellContext`\[Gamma]$$^12))^2)^Rational[1, 2])^
               Rational[1, 3] + 
             Rational[-1, 
                4] ((-64) $CellContext`\[Gamma]$$^(-6) ((-16) $CellContext`k + 
                  2 $CellContext`\[Gamma]$$ - $CellContext`\[Gamma]$$^2 + 
                  24 $CellContext`k $CellContext`\[Gamma]$$^2 - $CellContext`\
\[Gamma]$$^3 - 
                  9 $CellContext`k $CellContext`\[Gamma]$$^4 + $CellContext`k \
$CellContext`\[Gamma]$$^6)^3 + 
               32 $CellContext`\[Gamma]$$^(-6) ((-16) $CellContext`k + 
                 2 $CellContext`\[Gamma]$$ - $CellContext`\[Gamma]$$^2 + 
                 24 $CellContext`k $CellContext`\[Gamma]$$^2 - $CellContext`\
\[Gamma]$$^3 - 
                 9 $CellContext`k $CellContext`\[Gamma]$$^4 + $CellContext`k \
$CellContext`\[Gamma]$$^6) (512 $CellContext`k^2 - 
                 128 $CellContext`k $CellContext`\[Gamma]$$ + 
                 12 $CellContext`\[Gamma]$$^2 + 
                 96 $CellContext`k $CellContext`\[Gamma]$$^2 - 
                 1552 $CellContext`k^2 $CellContext`\[Gamma]$$^2 - 
                 12 $CellContext`\[Gamma]$$^3 + 
                 256 $CellContext`k $CellContext`\[Gamma]$$^3 - 
                 9 $CellContext`\[Gamma]$$^4 - 
                 144 $CellContext`k $CellContext`\[Gamma]$$^4 + 
                 1752 $CellContext`k^2 $CellContext`\[Gamma]$$^4 + 
                 6 $CellContext`\[Gamma]$$^5 - 
                 168 $CellContext`k $CellContext`\[Gamma]$$^5 + 
                 3 $CellContext`\[Gamma]$$^6 + 
                 54 $CellContext`k $CellContext`\[Gamma]$$^6 - 
                 937 $CellContext`k^2 $CellContext`\[Gamma]$$^6 + 
                 44 $CellContext`k $CellContext`\[Gamma]$$^7 - 
                 6 $CellContext`k $CellContext`\[Gamma]$$^8 + 
                 259 $CellContext`k^2 $CellContext`\[Gamma]$$^8 - 
                 4 $CellContext`k $CellContext`\[Gamma]$$^9 - 
                 36 $CellContext`k^2 $CellContext`\[Gamma]$$^10 + 
                 2 $CellContext`k^2 $CellContext`\[Gamma]$$^12) - 
               16 $CellContext`\[Gamma]$$^(-4) (128 $CellContext`k - 
                1024 $CellContext`k^2 + 512 $CellContext`k^3 + 
                16 $CellContext`\[Gamma]$$ + 
                256 $CellContext`k $CellContext`\[Gamma]$$ - 
                64 $CellContext`k^2 $CellContext`\[Gamma]$$ - 
                24 $CellContext`\[Gamma]$$^2 - 
                544 $CellContext`k $CellContext`\[Gamma]$$^2 + 
                3104 $CellContext`k^2 $CellContext`\[Gamma]$$^2 - 
                1536 $CellContext`k^3 $CellContext`\[Gamma]$$^2 - 
                12 $CellContext`\[Gamma]$$^3 - 
                512 $CellContext`k $CellContext`\[Gamma]$$^3 + 
                128 $CellContext`k^2 $CellContext`\[Gamma]$$^3 + 
                22 $CellContext`\[Gamma]$$^4 + 
                712 $CellContext`k $CellContext`\[Gamma]$$^4 - 
                3504 $CellContext`k^2 $CellContext`\[Gamma]$$^4 + 
                1728 $CellContext`k^3 $CellContext`\[Gamma]$$^4 + 
                6 $CellContext`\[Gamma]$$^5 + 
                336 $CellContext`k $CellContext`\[Gamma]$$^5 - 
                84 $CellContext`k^2 $CellContext`\[Gamma]$$^5 - 
                6 $CellContext`\[Gamma]$$^6 - 
                390 $CellContext`k $CellContext`\[Gamma]$$^6 + 
                1874 $CellContext`k^2 $CellContext`\[Gamma]$$^6 - 
                928 $CellContext`k^3 $CellContext`\[Gamma]$$^6 - 
                2 $CellContext`\[Gamma]$$^7 - 
                88 $CellContext`k $CellContext`\[Gamma]$$^7 + 
                22 $CellContext`k^2 $CellContext`\[Gamma]$$^7 + 
                109 $CellContext`k $CellContext`\[Gamma]$$^8 - 
                518 $CellContext`k^2 $CellContext`\[Gamma]$$^8 + 
                258 $CellContext`k^3 $CellContext`\[Gamma]$$^8 + 
                8 $CellContext`k $CellContext`\[Gamma]$$^9 - 
                2 $CellContext`k^2 $CellContext`\[Gamma]$$^9 - 
                16 $CellContext`k $CellContext`\[Gamma]$$^10 + 
                72 $CellContext`k^2 $CellContext`\[Gamma]$$^10 - 
                36 $CellContext`k^3 $CellContext`\[Gamma]$$^10 + \
$CellContext`k $CellContext`\[Gamma]$$^12 - 
                4 $CellContext`k^2 $CellContext`\[Gamma]$$^12 + 
                2 $CellContext`k^3 $CellContext`\[Gamma]$$^12)) (
                4 $CellContext`\[Gamma]$$^(-4) ((-16) $CellContext`k + 
                   2 $CellContext`\[Gamma]$$ - $CellContext`\[Gamma]$$^2 + 
                   24 $CellContext`k $CellContext`\[Gamma]$$^2 - \
$CellContext`\[Gamma]$$^3 - 
                   9 $CellContext`k $CellContext`\[Gamma]$$^4 + \
$CellContext`k $CellContext`\[Gamma]$$^6)^2 + 
                Rational[-4, 3] $CellContext`\[Gamma]$$^(-4) (
                  512 $CellContext`k^2 - 
                  128 $CellContext`k $CellContext`\[Gamma]$$ + 
                  12 $CellContext`\[Gamma]$$^2 + 
                  96 $CellContext`k $CellContext`\[Gamma]$$^2 - 
                  1552 $CellContext`k^2 $CellContext`\[Gamma]$$^2 - 
                  12 $CellContext`\[Gamma]$$^3 + 
                  256 $CellContext`k $CellContext`\[Gamma]$$^3 - 
                  9 $CellContext`\[Gamma]$$^4 - 
                  144 $CellContext`k $CellContext`\[Gamma]$$^4 + 
                  1752 $CellContext`k^2 $CellContext`\[Gamma]$$^4 + 
                  6 $CellContext`\[Gamma]$$^5 - 
                  168 $CellContext`k $CellContext`\[Gamma]$$^5 + 
                  3 $CellContext`\[Gamma]$$^6 + 
                  54 $CellContext`k $CellContext`\[Gamma]$$^6 - 
                  937 $CellContext`k^2 $CellContext`\[Gamma]$$^6 + 
                  44 $CellContext`k $CellContext`\[Gamma]$$^7 - 
                  6 $CellContext`k $CellContext`\[Gamma]$$^8 + 
                  259 $CellContext`k^2 $CellContext`\[Gamma]$$^8 - 
                  4 $CellContext`k $CellContext`\[Gamma]$$^9 - 
                  36 $CellContext`k^2 $CellContext`\[Gamma]$$^10 + 
                  2 $CellContext`k^2 $CellContext`\[Gamma]$$^12) + 
                Rational[4, 3] 
                 2^Rational[1, 3] $CellContext`\[Gamma]$$^(-4) (
                  262144 $CellContext`k^4 - 
                  131072 $CellContext`k^3 $CellContext`\[Gamma]$$ + 
                  40960 $CellContext`k^2 $CellContext`\[Gamma]$$^2 - 
                  1540096 $CellContext`k^4 $CellContext`\[Gamma]$$^2 - 
                  3072 $CellContext`k $CellContext`\[Gamma]$$^3 + 
                  647168 $CellContext`k^3 $CellContext`\[Gamma]$$^3 - 
                  175360 $CellContext`k^2 $CellContext`\[Gamma]$$^4 + 
                  3982336 $CellContext`k^4 $CellContext`\[Gamma]$$^4 + 
                  10752 $CellContext`k $CellContext`\[Gamma]$$^5 - 
                  1372160 $CellContext`k^3 $CellContext`\[Gamma]$$^5 + 
                  313600 $CellContext`k^2 $CellContext`\[Gamma]$$^6 - 
                  5985280 $CellContext`k^4 $CellContext`\[Gamma]$$^6 - 
                  14976 $CellContext`k $CellContext`\[Gamma]$$^7 + 
                  1643520 $CellContext`k^3 $CellContext`\[Gamma]$$^7 - 
                  306656 $CellContext`k^2 $CellContext`\[Gamma]$$^8 + 
                  5821824 $CellContext`k^4 $CellContext`\[Gamma]$$^8 + 
                  10752 $CellContext`k $CellContext`\[Gamma]$$^9 - 
                  1232384 $CellContext`k^3 $CellContext`\[Gamma]$$^9 + 
                  180848 $CellContext`k^2 $CellContext`\[Gamma]$$^10 - 
                  3864512 $CellContext`k^4 $CellContext`\[Gamma]$$^10 - 
                  4332 $CellContext`k $CellContext`\[Gamma]$$^11 + 
                  605920 $CellContext`k^3 $CellContext`\[Gamma]$$^11 - 
                  66989 $CellContext`k^2 $CellContext`\[Gamma]$$^12 + 
                  1798596 $CellContext`k^4 $CellContext`\[Gamma]$$^12 + 
                  990 $CellContext`k $CellContext`\[Gamma]$$^13 - 
                  198480 $CellContext`k^3 $CellContext`\[Gamma]$$^13 + 
                  15664 $CellContext`k^2 $CellContext`\[Gamma]$$^14 - 
                  592896 $CellContext`k^4 $CellContext`\[Gamma]$$^14 - 
                  120 $CellContext`k $CellContext`\[Gamma]$$^15 + 
                  42928 $CellContext`k^3 $CellContext`\[Gamma]$$^15 - 
                  2239 $CellContext`k^2 $CellContext`\[Gamma]$$^16 + 
                  137776 $CellContext`k^4 $CellContext`\[Gamma]$$^16 + 
                  6 $CellContext`k $CellContext`\[Gamma]$$^17 - 
                  5888 $CellContext`k^3 $CellContext`\[Gamma]$$^17 + 
                  178 $CellContext`k^2 $CellContext`\[Gamma]$$^18 - 
                  22072 $CellContext`k^4 $CellContext`\[Gamma]$$^18 + 
                  464 $CellContext`k^3 $CellContext`\[Gamma]$$^19 - 
                  6 $CellContext`k^2 $CellContext`\[Gamma]$$^20 + 
                  2320 $CellContext`k^4 $CellContext`\[Gamma]$$^20 - 
                  16 $CellContext`k^3 $CellContext`\[Gamma]$$^21 - 
                  144 $CellContext`k^4 $CellContext`\[Gamma]$$^22 + 
                  4 $CellContext`k^4 $CellContext`\[Gamma]$$^24) (
                   16 (512 $CellContext`k^2 - 
                    128 $CellContext`k $CellContext`\[Gamma]$$ + 
                    12 $CellContext`\[Gamma]$$^2 + 
                    96 $CellContext`k $CellContext`\[Gamma]$$^2 - 
                    1552 $CellContext`k^2 $CellContext`\[Gamma]$$^2 - 
                    12 $CellContext`\[Gamma]$$^3 + 
                    256 $CellContext`k $CellContext`\[Gamma]$$^3 - 
                    9 $CellContext`\[Gamma]$$^4 - 
                    144 $CellContext`k $CellContext`\[Gamma]$$^4 + 
                    1752 $CellContext`k^2 $CellContext`\[Gamma]$$^4 + 
                    6 $CellContext`\[Gamma]$$^5 - 
                    168 $CellContext`k $CellContext`\[Gamma]$$^5 + 
                    3 $CellContext`\[Gamma]$$^6 + 
                    54 $CellContext`k $CellContext`\[Gamma]$$^6 - 
                    937 $CellContext`k^2 $CellContext`\[Gamma]$$^6 + 
                    44 $CellContext`k $CellContext`\[Gamma]$$^7 - 
                    6 $CellContext`k $CellContext`\[Gamma]$$^8 + 
                    259 $CellContext`k^2 $CellContext`\[Gamma]$$^8 - 
                    4 $CellContext`k $CellContext`\[Gamma]$$^9 - 
                    36 $CellContext`k^2 $CellContext`\[Gamma]$$^10 + 
                    2 $CellContext`k^2 $CellContext`\[Gamma]$$^12)^3 - 
                   144 ((-16) $CellContext`k $CellContext`\[Gamma]$$^2 + 
                    2 $CellContext`\[Gamma]$$^3 - $CellContext`\[Gamma]$$^4 + 
                    24 $CellContext`k $CellContext`\[Gamma]$$^4 - \
$CellContext`\[Gamma]$$^5 - 
                    9 $CellContext`k $CellContext`\[Gamma]$$^6 + \
$CellContext`k $CellContext`\[Gamma]$$^8) (512 $CellContext`k^2 - 
                    128 $CellContext`k $CellContext`\[Gamma]$$ + 
                    12 $CellContext`\[Gamma]$$^2 + 
                    96 $CellContext`k $CellContext`\[Gamma]$$^2 - 
                    1552 $CellContext`k^2 $CellContext`\[Gamma]$$^2 - 
                    12 $CellContext`\[Gamma]$$^3 + 
                    256 $CellContext`k $CellContext`\[Gamma]$$^3 - 
                    9 $CellContext`\[Gamma]$$^4 - 
                    144 $CellContext`k $CellContext`\[Gamma]$$^4 + 
                    1752 $CellContext`k^2 $CellContext`\[Gamma]$$^4 + 
                    6 $CellContext`\[Gamma]$$^5 - 
                    168 $CellContext`k $CellContext`\[Gamma]$$^5 + 
                    3 $CellContext`\[Gamma]$$^6 + 
                    54 $CellContext`k $CellContext`\[Gamma]$$^6 - 
                    937 $CellContext`k^2 $CellContext`\[Gamma]$$^6 + 
                    44 $CellContext`k $CellContext`\[Gamma]$$^7 - 
                    6 $CellContext`k $CellContext`\[Gamma]$$^8 + 
                    259 $CellContext`k^2 $CellContext`\[Gamma]$$^8 - 
                    4 $CellContext`k $CellContext`\[Gamma]$$^9 - 
                    36 $CellContext`k^2 $CellContext`\[Gamma]$$^10 + 
                    2 $CellContext`k^2 $CellContext`\[Gamma]$$^12) (
                    128 $CellContext`k - 1024 $CellContext`k^2 + 
                    512 $CellContext`k^3 + 16 $CellContext`\[Gamma]$$ + 
                    256 $CellContext`k $CellContext`\[Gamma]$$ - 
                    64 $CellContext`k^2 $CellContext`\[Gamma]$$ - 
                    24 $CellContext`\[Gamma]$$^2 - 
                    544 $CellContext`k $CellContext`\[Gamma]$$^2 + 
                    3104 $CellContext`k^2 $CellContext`\[Gamma]$$^2 - 
                    1536 $CellContext`k^3 $CellContext`\[Gamma]$$^2 - 
                    12 $CellContext`\[Gamma]$$^3 - 
                    512 $CellContext`k $CellContext`\[Gamma]$$^3 + 
                    128 $CellContext`k^2 $CellContext`\[Gamma]$$^3 + 
                    22 $CellContext`\[Gamma]$$^4 + 
                    712 $CellContext`k $CellContext`\[Gamma]$$^4 - 
                    3504 $CellContext`k^2 $CellContext`\[Gamma]$$^4 + 
                    1728 $CellContext`k^3 $CellContext`\[Gamma]$$^4 + 
                    6 $CellContext`\[Gamma]$$^5 + 
                    336 $CellContext`k $CellContext`\[Gamma]$$^5 - 
                    84 $CellContext`k^2 $CellContext`\[Gamma]$$^5 - 
                    6 $CellContext`\[Gamma]$$^6 - 
                    390 $CellContext`k $CellContext`\[Gamma]$$^6 + 
                    1874 $CellContext`k^2 $CellContext`\[Gamma]$$^6 - 
                    928 $CellContext`k^3 $CellContext`\[Gamma]$$^6 - 
                    2 $CellContext`\[Gamma]$$^7 - 
                    88 $CellContext`k $CellContext`\[Gamma]$$^7 + 
                    22 $CellContext`k^2 $CellContext`\[Gamma]$$^7 + 
                    109 $CellContext`k $CellContext`\[Gamma]$$^8 - 
                    518 $CellContext`k^2 $CellContext`\[Gamma]$$^8 + 
                    258 $CellContext`k^3 $CellContext`\[Gamma]$$^8 + 
                    8 $CellContext`k $CellContext`\[Gamma]$$^9 - 
                    2 $CellContext`k^2 $CellContext`\[Gamma]$$^9 - 
                    16 $CellContext`k $CellContext`\[Gamma]$$^10 + 
                    72 $CellContext`k^2 $CellContext`\[Gamma]$$^10 - 
                    36 $CellContext`k^3 $CellContext`\[Gamma]$$^10 + \
$CellContext`k $CellContext`\[Gamma]$$^12 - 
                    4 $CellContext`k^2 $CellContext`\[Gamma]$$^12 + 
                    2 $CellContext`k^3 $CellContext`\[Gamma]$$^12) + 
                   108 $CellContext`\[Gamma]$$^4 (128 $CellContext`k - 
                    1024 $CellContext`k^2 + 512 $CellContext`k^3 + 
                    16 $CellContext`\[Gamma]$$ + 
                    256 $CellContext`k $CellContext`\[Gamma]$$ - 
                    64 $CellContext`k^2 $CellContext`\[Gamma]$$ - 
                    24 $CellContext`\[Gamma]$$^2 - 
                    544 $CellContext`k $CellContext`\[Gamma]$$^2 + 
                    3104 $CellContext`k^2 $CellContext`\[Gamma]$$^2 - 
                    1536 $CellContext`k^3 $CellContext`\[Gamma]$$^2 - 
                    12 $CellContext`\[Gamma]$$^3 - 
                    512 $CellContext`k $CellContext`\[Gamma]$$^3 + 
                    128 $CellContext`k^2 $CellContext`\[Gamma]$$^3 + 
                    22 $CellContext`\[Gamma]$$^4 + 
                    712 $CellContext`k $CellContext`\[Gamma]$$^4 - 
                    3504 $CellContext`k^2 $CellContext`\[Gamma]$$^4 + 
                    1728 $CellContext`k^3 $CellContext`\[Gamma]$$^4 + 
                    6 $CellContext`\[Gamma]$$^5 + 
                    336 $CellContext`k $CellContext`\[Gamma]$$^5 - 
                    84 $CellContext`k^2 $CellContext`\[Gamma]$$^5 - 
                    6 $CellContext`\[Gamma]$$^6 - 
                    390 $CellContext`k $CellContext`\[Gamma]$$^6 + 
                    1874 $CellContext`k^2 $CellContext`\[Gamma]$$^6 - 
                    928 $CellContext`k^3 $CellContext`\[Gamma]$$^6 - 
                    2 $CellContext`\[Gamma]$$^7 - 
                    88 $CellContext`k $CellContext`\[Gamma]$$^7 + 
                    22 $CellContext`k^2 $CellContext`\[Gamma]$$^7 + 
                    109 $CellContext`k $CellContext`\[Gamma]$$^8 - 
                    518 $CellContext`k^2 $CellContext`\[Gamma]$$^8 + 
                    258 $CellContext`k^3 $CellContext`\[Gamma]$$^8 + 
                    8 $CellContext`k $CellContext`\[Gamma]$$^9 - 
                    2 $CellContext`k^2 $CellContext`\[Gamma]$$^9 - 
                    16 $CellContext`k $CellContext`\[Gamma]$$^10 + 
                    72 $CellContext`k^2 $CellContext`\[Gamma]$$^10 - 
                    36 $CellContext`k^3 $CellContext`\[Gamma]$$^10 + \
$CellContext`k $CellContext`\[Gamma]$$^12 - 
                    4 $CellContext`k^2 $CellContext`\[Gamma]$$^12 + 
                    2 $CellContext`k^3 $CellContext`\[Gamma]$$^12)^2 + 
                   432 ((-16) $CellContext`k $CellContext`\[Gamma]$$^2 + 
                    2 $CellContext`\[Gamma]$$^3 - $CellContext`\[Gamma]$$^4 + 
                    
                    24 $CellContext`k $CellContext`\[Gamma]$$^4 - \
$CellContext`\[Gamma]$$^5 - 
                    9 $CellContext`k $CellContext`\[Gamma]$$^6 + \
$CellContext`k $CellContext`\[Gamma]$$^8)^2 (16 - 256 $CellContext`k + 
                    1152 $CellContext`k^2 - 1024 $CellContext`k^3 + 
                    256 $CellContext`k^4 - 32 $CellContext`\[Gamma]$$ - 
                    256 $CellContext`k $CellContext`\[Gamma]$$ + 
                    128 $CellContext`k^2 $CellContext`\[Gamma]$$ - 
                    8 $CellContext`\[Gamma]$$^2 + 
                    960 $CellContext`k $CellContext`\[Gamma]$$^2 - 
                    3552 $CellContext`k^2 $CellContext`\[Gamma]$$^2 + 
                    3072 $CellContext`k^3 $CellContext`\[Gamma]$$^2 - 
                    768 $CellContext`k^4 $CellContext`\[Gamma]$$^2 + 
                    40 $CellContext`\[Gamma]$$^3 + 
                    512 $CellContext`k $CellContext`\[Gamma]$$^3 - 
                    256 $CellContext`k^2 $CellContext`\[Gamma]$$^3 + \
$CellContext`\[Gamma]$$^4 - 1232 $CellContext`k $CellContext`\[Gamma]$$^4 + 
                    4072 $CellContext`k^2 $CellContext`\[Gamma]$$^4 - 
                    3456 $CellContext`k^3 $CellContext`\[Gamma]$$^4 + 
                    864 $CellContext`k^4 $CellContext`\[Gamma]$$^4 - 
                    20 $CellContext`\[Gamma]$$^5 - 
                    336 $CellContext`k $CellContext`\[Gamma]$$^5 + 
                    168 $CellContext`k^2 $CellContext`\[Gamma]$$^5 - 
                    2 $CellContext`\[Gamma]$$^6 + 
                    708 $CellContext`k $CellContext`\[Gamma]$$^6 - 
                    2210 $CellContext`k^2 $CellContext`\[Gamma]$$^6 + 
                    1856 $CellContext`k^3 $CellContext`\[Gamma]$$^6 - 
                    464 $CellContext`k^4 $CellContext`\[Gamma]$$^6 + 
                    4 $CellContext`\[Gamma]$$^7 + 
                    88 $CellContext`k $CellContext`\[Gamma]$$^7 - 
                    44 $CellContext`k^2 $CellContext`\[Gamma]$$^7 + \
$CellContext`\[Gamma]$$^8 - 210 $CellContext`k $CellContext`\[Gamma]$$^8 + 
                    621 $CellContext`k^2 $CellContext`\[Gamma]$$^8 - 
                    516 $CellContext`k^3 $CellContext`\[Gamma]$$^8 + 
                    129 $CellContext`k^4 $CellContext`\[Gamma]$$^8 - 
                    8 $CellContext`k $CellContext`\[Gamma]$$^9 + 
                    4 $CellContext`k^2 $CellContext`\[Gamma]$$^9 + 
                    32 $CellContext`k $CellContext`\[Gamma]$$^10 - 
                    88 $CellContext`k^2 $CellContext`\[Gamma]$$^10 + 
                    72 $CellContext`k^3 $CellContext`\[Gamma]$$^10 - 
                    18 $CellContext`k^4 $CellContext`\[Gamma]$$^10 - 
                    2 $CellContext`k $CellContext`\[Gamma]$$^12 + 
                    5 $CellContext`k^2 $CellContext`\[Gamma]$$^12 - 
                    4 $CellContext`k^3 $CellContext`\[Gamma]$$^12 + \
$CellContext`k^4 $CellContext`\[Gamma]$$^12) - 
                   144 $CellContext`\[Gamma]$$^4 (512 $CellContext`k^2 - 
                    128 $CellContext`k $CellContext`\[Gamma]$$ + 
                    12 $CellContext`\[Gamma]$$^2 + 
                    96 $CellContext`k $CellContext`\[Gamma]$$^2 - 
                    1552 $CellContext`k^2 $CellContext`\[Gamma]$$^2 - 
                    12 $CellContext`\[Gamma]$$^3 + 
                    256 $CellContext`k $CellContext`\[Gamma]$$^3 - 
                    9 $CellContext`\[Gamma]$$^4 - 
                    144 $CellContext`k $CellContext`\[Gamma]$$^4 + 
                    1752 $CellContext`k^2 $CellContext`\[Gamma]$$^4 + 
                    6 $CellContext`\[Gamma]$$^5 - 
                    168 $CellContext`k $CellContext`\[Gamma]$$^5 + 
                    3 $CellContext`\[Gamma]$$^6 + 
                    54 $CellContext`k $CellContext`\[Gamma]$$^6 - 
                    937 $CellContext`k^2 $CellContext`\[Gamma]$$^6 + 
                    44 $CellContext`k $CellContext`\[Gamma]$$^7 - 
                    6 $CellContext`k $CellContext`\[Gamma]$$^8 + 
                    259 $CellContext`k^2 $CellContext`\[Gamma]$$^8 - 
                    4 $CellContext`k $CellContext`\[Gamma]$$^9 - 
                    36 $CellContext`k^2 $CellContext`\[Gamma]$$^10 + 
                    2 $CellContext`k^2 $CellContext`\[Gamma]$$^12) (16 - 
                    256 $CellContext`k + 1152 $CellContext`k^2 - 
                    1024 $CellContext`k^3 + 256 $CellContext`k^4 - 
                    32 $CellContext`\[Gamma]$$ - 
                    256 $CellContext`k $CellContext`\[Gamma]$$ + 
                    128 $CellContext`k^2 $CellContext`\[Gamma]$$ - 
                    8 $CellContext`\[Gamma]$$^2 + 
                    960 $CellContext`k $CellContext`\[Gamma]$$^2 - 
                    3552 $CellContext`k^2 $CellContext`\[Gamma]$$^2 + 
                    3072 $CellContext`k^3 $CellContext`\[Gamma]$$^2 - 
                    768 $CellContext`k^4 $CellContext`\[Gamma]$$^2 + 
                    40 $CellContext`\[Gamma]$$^3 + 
                    512 $CellContext`k $CellContext`\[Gamma]$$^3 - 
                    256 $CellContext`k^2 $CellContext`\[Gamma]$$^3 + \
$CellContext`\[Gamma]$$^4 - 1232 $CellContext`k $CellContext`\[Gamma]$$^4 + 
                    4072 $CellContext`k^2 $CellContext`\[Gamma]$$^4 - 
                    3456 $CellContext`k^3 $CellContext`\[Gamma]$$^4 + 
                    864 $CellContext`k^4 $CellContext`\[Gamma]$$^4 - 
                    20 $CellContext`\[Gamma]$$^5 - 
                    336 $CellContext`k $CellContext`\[Gamma]$$^5 + 
                    168 $CellContext`k^2 $CellContext`\[Gamma]$$^5 - 
                    2 $CellContext`\[Gamma]$$^6 + 
                    708 $CellContext`k $CellContext`\[Gamma]$$^6 - 
                    2210 $CellContext`k^2 $CellContext`\[Gamma]$$^6 + 
                    1856 $CellContext`k^3 $CellContext`\[Gamma]$$^6 - 
                    464 $CellContext`k^4 $CellContext`\[Gamma]$$^6 + 
                    4 $CellContext`\[Gamma]$$^7 + 
                    88 $CellContext`k $CellContext`\[Gamma]$$^7 - 
                    44 $CellContext`k^2 $CellContext`\[Gamma]$$^7 + \
$CellContext`\[Gamma]$$^8 - 210 $CellContext`k $CellContext`\[Gamma]$$^8 + 
                    621 $CellContext`k^2 $CellContext`\[Gamma]$$^8 - 
                    516 $CellContext`k^3 $CellContext`\[Gamma]$$^8 + 
                    129 $CellContext`k^4 $CellContext`\[Gamma]$$^8 - 
                    8 $CellContext`k $CellContext`\[Gamma]$$^9 + 
                    4 $CellContext`k^2 $CellContext`\[Gamma]$$^9 + 
                    32 $CellContext`k $CellContext`\[Gamma]$$^10 - 
                    88 $CellContext`k^2 $CellContext`\[Gamma]$$^10 + 
                    72 $CellContext`k^3 $CellContext`\[Gamma]$$^10 - 
                    18 $CellContext`k^4 $CellContext`\[Gamma]$$^10 - 
                    2 $CellContext`k $CellContext`\[Gamma]$$^12 + 
                    5 $CellContext`k^2 $CellContext`\[Gamma]$$^12 - 
                    4 $CellContext`k^3 $CellContext`\[Gamma]$$^12 + \
$CellContext`k^4 $CellContext`\[Gamma]$$^12) + ((-4) (
                    1048576 $CellContext`k^4 - 
                    524288 $CellContext`k^3 $CellContext`\[Gamma]$$ + 
                    163840 $CellContext`k^2 $CellContext`\[Gamma]$$^2 - 
                    6160384 $CellContext`k^4 $CellContext`\[Gamma]$$^2 - 
                    12288 $CellContext`k $CellContext`\[Gamma]$$^3 + 
                    2588672 $CellContext`k^3 $CellContext`\[Gamma]$$^3 - 
                    701440 $CellContext`k^2 $CellContext`\[Gamma]$$^4 + 
                    15929344 $CellContext`k^4 $CellContext`\[Gamma]$$^4 + 
                    43008 $CellContext`k $CellContext`\[Gamma]$$^5 - 
                    5488640 $CellContext`k^3 $CellContext`\[Gamma]$$^5 + 
                    1254400 $CellContext`k^2 $CellContext`\[Gamma]$$^6 - 
                    23941120 $CellContext`k^4 $CellContext`\[Gamma]$$^6 - 
                    59904 $CellContext`k $CellContext`\[Gamma]$$^7 + 
                    6574080 $CellContext`k^3 $CellContext`\[Gamma]$$^7 - 
                    1226624 $CellContext`k^2 $CellContext`\[Gamma]$$^8 + 
                    23287296 $CellContext`k^4 $CellContext`\[Gamma]$$^8 + 
                    43008 $CellContext`k $CellContext`\[Gamma]$$^9 - 
                    4929536 $CellContext`k^3 $CellContext`\[Gamma]$$^9 + 
                    723392 $CellContext`k^2 $CellContext`\[Gamma]$$^10 - 
                    15458048 $CellContext`k^4 $CellContext`\[Gamma]$$^10 - 
                    17328 $CellContext`k $CellContext`\[Gamma]$$^11 + 
                    2423680 $CellContext`k^3 $CellContext`\[Gamma]$$^11 - 
                    267956 $CellContext`k^2 $CellContext`\[Gamma]$$^12 + 
                    7194384 $CellContext`k^4 $CellContext`\[Gamma]$$^12 + 
                    3960 $CellContext`k $CellContext`\[Gamma]$$^13 - 
                    793920 $CellContext`k^3 $CellContext`\[Gamma]$$^13 + 
                    62656 $CellContext`k^2 $CellContext`\[Gamma]$$^14 - 
                    2371584 $CellContext`k^4 $CellContext`\[Gamma]$$^14 - 
                    480 $CellContext`k $CellContext`\[Gamma]$$^15 + 
                    171712 $CellContext`k^3 $CellContext`\[Gamma]$$^15 - 
                    8956 $CellContext`k^2 $CellContext`\[Gamma]$$^16 + 
                    551104 $CellContext`k^4 $CellContext`\[Gamma]$$^16 + 
                    24 $CellContext`k $CellContext`\[Gamma]$$^17 - 
                    23552 $CellContext`k^3 $CellContext`\[Gamma]$$^17 + 
                    712 $CellContext`k^2 $CellContext`\[Gamma]$$^18 - 
                    88288 $CellContext`k^4 $CellContext`\[Gamma]$$^18 + 
                    1856 $CellContext`k^3 $CellContext`\[Gamma]$$^19 - 
                    24 $CellContext`k^2 $CellContext`\[Gamma]$$^20 + 
                    9280 $CellContext`k^4 $CellContext`\[Gamma]$$^20 - 
                    64 $CellContext`k^3 $CellContext`\[Gamma]$$^21 - 
                    576 $CellContext`k^4 $CellContext`\[Gamma]$$^22 + 
                    16 $CellContext`k^4 $CellContext`\[Gamma]$$^24)^3 + (
                    16 (512 $CellContext`k^2 - 
                    128 $CellContext`k $CellContext`\[Gamma]$$ + 
                    12 $CellContext`\[Gamma]$$^2 + 
                    96 $CellContext`k $CellContext`\[Gamma]$$^2 - 
                    1552 $CellContext`k^2 $CellContext`\[Gamma]$$^2 - 
                    12 $CellContext`\[Gamma]$$^3 + 
                    256 $CellContext`k $CellContext`\[Gamma]$$^3 - 
                    9 $CellContext`\[Gamma]$$^4 - 
                    144 $CellContext`k $CellContext`\[Gamma]$$^4 + 
                    1752 $CellContext`k^2 $CellContext`\[Gamma]$$^4 + 
                    6 $CellContext`\[Gamma]$$^5 - 
                    168 $CellContext`k $CellContext`\[Gamma]$$^5 + 
                    3 $CellContext`\[Gamma]$$^6 + 
                    54 $CellContext`k $CellContext`\[Gamma]$$^6 - 
                    937 $CellContext`k^2 $CellContext`\[Gamma]$$^6 + 
                    44 $CellContext`k $CellContext`\[Gamma]$$^7 - 
                    6 $CellContext`k $CellContext`\[Gamma]$$^8 + 
                    259 $CellContext`k^2 $CellContext`\[Gamma]$$^8 - 
                    4 $CellContext`k $CellContext`\[Gamma]$$^9 - 
                    36 $CellContext`k^2 $CellContext`\[Gamma]$$^10 + 
                    2 $CellContext`k^2 $CellContext`\[Gamma]$$^12)^3 - 
                    144 ((-16) $CellContext`k $CellContext`\[Gamma]$$^2 + 
                    2 $CellContext`\[Gamma]$$^3 - $CellContext`\[Gamma]$$^4 + 
                    24 $CellContext`k $CellContext`\[Gamma]$$^4 - \
$CellContext`\[Gamma]$$^5 - 
                    9 $CellContext`k $CellContext`\[Gamma]$$^6 + \
$CellContext`k $CellContext`\[Gamma]$$^8) (512 $CellContext`k^2 - 
                    128 $CellContext`k $CellContext`\[Gamma]$$ + 
                    12 $CellContext`\[Gamma]$$^2 + 
                    96 $CellContext`k $CellContext`\[Gamma]$$^2 - 
                    1552 $CellContext`k^2 $CellContext`\[Gamma]$$^2 - 
                    12 $CellContext`\[Gamma]$$^3 + 
                    256 $CellContext`k $CellContext`\[Gamma]$$^3 - 
                    9 $CellContext`\[Gamma]$$^4 - 
                    144 $CellContext`k $CellContext`\[Gamma]$$^4 + 
                    1752 $CellContext`k^2 $CellContext`\[Gamma]$$^4 + 
                    6 $CellContext`\[Gamma]$$^5 - 
                    168 $CellContext`k $CellContext`\[Gamma]$$^5 + 
                    3 $CellContext`\[Gamma]$$^6 + 
                    54 $CellContext`k $CellContext`\[Gamma]$$^6 - 
                    937 $CellContext`k^2 $CellContext`\[Gamma]$$^6 + 
                    44 $CellContext`k $CellContext`\[Gamma]$$^7 - 
                    6 $CellContext`k $CellContext`\[Gamma]$$^8 + 
                    259 $CellContext`k^2 $CellContext`\[Gamma]$$^8 - 
                    4 $CellContext`k $CellContext`\[Gamma]$$^9 - 
                    36 $CellContext`k^2 $CellContext`\[Gamma]$$^10 + 
                    2 $CellContext`k^2 $CellContext`\[Gamma]$$^12) (
                    128 $CellContext`k - 1024 $CellContext`k^2 + 
                    512 $CellContext`k^3 + 16 $CellContext`\[Gamma]$$ + 
                    256 $CellContext`k $CellContext`\[Gamma]$$ - 
                    64 $CellContext`k^2 $CellContext`\[Gamma]$$ - 
                    24 $CellContext`\[Gamma]$$^2 - 
                    544 $CellContext`k $CellContext`\[Gamma]$$^2 + 
                    3104 $CellContext`k^2 $CellContext`\[Gamma]$$^2 - 
                    1536 $CellContext`k^3 $CellContext`\[Gamma]$$^2 - 
                    12 $CellContext`\[Gamma]$$^3 - 
                    512 $CellContext`k $CellContext`\[Gamma]$$^3 + 
                    128 $CellContext`k^2 $CellContext`\[Gamma]$$^3 + 
                    22 $CellContext`\[Gamma]$$^4 + 
                    712 $CellContext`k $CellContext`\[Gamma]$$^4 - 
                    3504 $CellContext`k^2 $CellContext`\[Gamma]$$^4 + 
                    1728 $CellContext`k^3 $CellContext`\[Gamma]$$^4 + 
                    6 $CellContext`\[Gamma]$$^5 + 
                    336 $CellContext`k $CellContext`\[Gamma]$$^5 - 
                    84 $CellContext`k^2 $CellContext`\[Gamma]$$^5 - 
                    6 $CellContext`\[Gamma]$$^6 - 
                    390 $CellContext`k $CellContext`\[Gamma]$$^6 + 
                    1874 $CellContext`k^2 $CellContext`\[Gamma]$$^6 - 
                    928 $CellContext`k^3 $CellContext`\[Gamma]$$^6 - 
                    2 $CellContext`\[Gamma]$$^7 - 
                    88 $CellContext`k $CellContext`\[Gamma]$$^7 + 
                    22 $CellContext`k^2 $CellContext`\[Gamma]$$^7 + 
                    109 $CellContext`k $CellContext`\[Gamma]$$^8 - 
                    518 $CellContext`k^2 $CellContext`\[Gamma]$$^8 + 
                    258 $CellContext`k^3 $CellContext`\[Gamma]$$^8 + 
                    8 $CellContext`k $CellContext`\[Gamma]$$^9 - 
                    2 $CellContext`k^2 $CellContext`\[Gamma]$$^9 - 
                    16 $CellContext`k $CellContext`\[Gamma]$$^10 + 
                    72 $CellContext`k^2 $CellContext`\[Gamma]$$^10 - 
                    36 $CellContext`k^3 $CellContext`\[Gamma]$$^10 + \
$CellContext`k $CellContext`\[Gamma]$$^12 - 
                    4 $CellContext`k^2 $CellContext`\[Gamma]$$^12 + 
                    2 $CellContext`k^3 $CellContext`\[Gamma]$$^12) + 
                    108 $CellContext`\[Gamma]$$^4 (128 $CellContext`k - 
                    1024 $CellContext`k^2 + 512 $CellContext`k^3 + 
                    16 $CellContext`\[Gamma]$$ + 
                    256 $CellContext`k $CellContext`\[Gamma]$$ - 
                    64 $CellContext`k^2 $CellContext`\[Gamma]$$ - 
                    24 $CellContext`\[Gamma]$$^2 - 
                    544 $CellContext`k $CellContext`\[Gamma]$$^2 + 
                    3104 $CellContext`k^2 $CellContext`\[Gamma]$$^2 - 
                    1536 $CellContext`k^3 $CellContext`\[Gamma]$$^2 - 
                    12 $CellContext`\[Gamma]$$^3 - 
                    512 $CellContext`k $CellContext`\[Gamma]$$^3 + 
                    128 $CellContext`k^2 $CellContext`\[Gamma]$$^3 + 
                    22 $CellContext`\[Gamma]$$^4 + 
                    712 $CellContext`k $CellContext`\[Gamma]$$^4 - 
                    3504 $CellContext`k^2 $CellContext`\[Gamma]$$^4 + 
                    1728 $CellContext`k^3 $CellContext`\[Gamma]$$^4 + 
                    6 $CellContext`\[Gamma]$$^5 + 
                    336 $CellContext`k $CellContext`\[Gamma]$$^5 - 
                    84 $CellContext`k^2 $CellContext`\[Gamma]$$^5 - 
                    6 $CellContext`\[Gamma]$$^6 - 
                    390 $CellContext`k $CellContext`\[Gamma]$$^6 + 
                    1874 $CellContext`k^2 $CellContext`\[Gamma]$$^6 - 
                    928 $CellContext`k^3 $CellContext`\[Gamma]$$^6 - 
                    2 $CellContext`\[Gamma]$$^7 - 
                    88 $CellContext`k $CellContext`\[Gamma]$$^7 + 
                    22 $CellContext`k^2 $CellContext`\[Gamma]$$^7 + 
                    109 $CellContext`k $CellContext`\[Gamma]$$^8 - 
                    518 $CellContext`k^2 $CellContext`\[Gamma]$$^8 + 
                    258 $CellContext`k^3 $CellContext`\[Gamma]$$^8 + 
                    8 $CellContext`k $CellContext`\[Gamma]$$^9 - 
                    2 $CellContext`k^2 $CellContext`\[Gamma]$$^9 - 
                    16 $CellContext`k $CellContext`\[Gamma]$$^10 + 
                    72 $CellContext`k^2 $CellContext`\[Gamma]$$^10 - 
                    36 $CellContext`k^3 $CellContext`\[Gamma]$$^10 + \
$CellContext`k $CellContext`\[Gamma]$$^12 - 
                    4 $CellContext`k^2 $CellContext`\[Gamma]$$^12 + 
                    2 $CellContext`k^3 $CellContext`\[Gamma]$$^12)^2 + 
                    432 ((-16) $CellContext`k $CellContext`\[Gamma]$$^2 + 
                    2 $CellContext`\[Gamma]$$^3 - $CellContext`\[Gamma]$$^4 + 
                    24 $CellContext`k $CellContext`\[Gamma]$$^4 - \
$CellContext`\[Gamma]$$^5 - 
                    9 $CellContext`k $CellContext`\[Gamma]$$^6 + \
$CellContext`k $CellContext`\[Gamma]$$^8)^2 (16 - 256 $CellContext`k + 
                    1152 $CellContext`k^2 - 1024 $CellContext`k^3 + 
                    256 $CellContext`k^4 - 32 $CellContext`\[Gamma]$$ - 
                    256 $CellContext`k $CellContext`\[Gamma]$$ + 
                    128 $CellContext`k^2 $CellContext`\[Gamma]$$ - 
                    8 $CellContext`\[Gamma]$$^2 + 
                    960 $CellContext`k $CellContext`\[Gamma]$$^2 - 
                    3552 $CellContext`k^2 $CellContext`\[Gamma]$$^2 + 
                    3072 $CellContext`k^3 $CellContext`\[Gamma]$$^2 - 
                    768 $CellContext`k^4 $CellContext`\[Gamma]$$^2 + 
                    40 $CellContext`\[Gamma]$$^3 + 
                    512 $CellContext`k $CellContext`\[Gamma]$$^3 - 
                    256 $CellContext`k^2 $CellContext`\[Gamma]$$^3 + \
$CellContext`\[Gamma]$$^4 - 1232 $CellContext`k $CellContext`\[Gamma]$$^4 + 
                    4072 $CellContext`k^2 $CellContext`\[Gamma]$$^4 - 
                    3456 $CellContext`k^3 $CellContext`\[Gamma]$$^4 + 
                    864 $CellContext`k^4 $CellContext`\[Gamma]$$^4 - 
                    20 $CellContext`\[Gamma]$$^5 - 
                    336 $CellContext`k $CellContext`\[Gamma]$$^5 + 
                    168 $CellContext`k^2 $CellContext`\[Gamma]$$^5 - 
                    2 $CellContext`\[Gamma]$$^6 + 
                    708 $CellContext`k $CellContext`\[Gamma]$$^6 - 
                    2210 $CellContext`k^2 $CellContext`\[Gamma]$$^6 + 
                    1856 $CellContext`k^3 $CellContext`\[Gamma]$$^6 - 
                    464 $CellContext`k^4 $CellContext`\[Gamma]$$^6 + 
                    4 $CellContext`\[Gamma]$$^7 + 
                    88 $CellContext`k $CellContext`\[Gamma]$$^7 - 
                    44 $CellContext`k^2 $CellContext`\[Gamma]$$^7 + \
$CellContext`\[Gamma]$$^8 - 210 $CellContext`k $CellContext`\[Gamma]$$^8 + 
                    621 $CellContext`k^2 $CellContext`\[Gamma]$$^8 - 
                    516 $CellContext`k^3 $CellContext`\[Gamma]$$^8 + 
                    129 $CellContext`k^4 $CellContext`\[Gamma]$$^8 - 
                    8 $CellContext`k $CellContext`\[Gamma]$$^9 + 
                    4 $CellContext`k^2 $CellContext`\[Gamma]$$^9 + 
                    32 $CellContext`k $CellContext`\[Gamma]$$^10 - 
                    88 $CellContext`k^2 $CellContext`\[Gamma]$$^10 + 
                    72 $CellContext`k^3 $CellContext`\[Gamma]$$^10 - 
                    18 $CellContext`k^4 $CellContext`\[Gamma]$$^10 - 
                    2 $CellContext`k $CellContext`\[Gamma]$$^12 + 
                    5 $CellContext`k^2 $CellContext`\[Gamma]$$^12 - 
                    4 $CellContext`k^3 $CellContext`\[Gamma]$$^12 + \
$CellContext`k^4 $CellContext`\[Gamma]$$^12) - 
                    144 $CellContext`\[Gamma]$$^4 (512 $CellContext`k^2 - 
                    128 $CellContext`k $CellContext`\[Gamma]$$ + 
                    12 $CellContext`\[Gamma]$$^2 + 
                    96 $CellContext`k $CellContext`\[Gamma]$$^2 - 
                    1552 $CellContext`k^2 $CellContext`\[Gamma]$$^2 - 
                    12 $CellContext`\[Gamma]$$^3 + 
                    256 $CellContext`k $CellContext`\[Gamma]$$^3 - 
                    9 $CellContext`\[Gamma]$$^4 - 
                    144 $CellContext`k $CellContext`\[Gamma]$$^4 + 
                    1752 $CellContext`k^2 $CellContext`\[Gamma]$$^4 + 
                    6 $CellContext`\[Gamma]$$^5 - 
                    168 $CellContext`k $CellContext`\[Gamma]$$^5 + 
                    3 $CellContext`\[Gamma]$$^6 + 
                    54 $CellContext`k $CellContext`\[Gamma]$$^6 - 
                    937 $CellContext`k^2 $CellContext`\[Gamma]$$^6 + 
                    44 $CellContext`k $CellContext`\[Gamma]$$^7 - 
                    6 $CellContext`k $CellContext`\[Gamma]$$^8 + 
                    259 $CellContext`k^2 $CellContext`\[Gamma]$$^8 - 
                    4 $CellContext`k $CellContext`\[Gamma]$$^9 - 
                    36 $CellContext`k^2 $CellContext`\[Gamma]$$^10 + 
                    2 $CellContext`k^2 $CellContext`\[Gamma]$$^12) (16 - 
                    256 $CellContext`k + 1152 $CellContext`k^2 - 
                    1024 $CellContext`k^3 + 256 $CellContext`k^4 - 
                    32 $CellContext`\[Gamma]$$ - 
                    256 $CellContext`k $CellContext`\[Gamma]$$ + 
                    128 $CellContext`k^2 $CellContext`\[Gamma]$$ - 
                    8 $CellContext`\[Gamma]$$^2 + 
                    960 $CellContext`k $CellContext`\[Gamma]$$^2 - 
                    3552 $CellContext`k^2 $CellContext`\[Gamma]$$^2 + 
                    3072 $CellContext`k^3 $CellContext`\[Gamma]$$^2 - 
                    768 $CellContext`k^4 $CellContext`\[Gamma]$$^2 + 
                    40 $CellContext`\[Gamma]$$^3 + 
                    512 $CellContext`k $CellContext`\[Gamma]$$^3 - 
                    256 $CellContext`k^2 $CellContext`\[Gamma]$$^3 + \
$CellContext`\[Gamma]$$^4 - 1232 $CellContext`k $CellContext`\[Gamma]$$^4 + 
                    4072 $CellContext`k^2 $CellContext`\[Gamma]$$^4 - 
                    3456 $CellContext`k^3 $CellContext`\[Gamma]$$^4 + 
                    864 $CellContext`k^4 $CellContext`\[Gamma]$$^4 - 
                    20 $CellContext`\[Gamma]$$^5 - 
                    336 $CellContext`k $CellContext`\[Gamma]$$^5 + 
                    168 $CellContext`k^2 $CellContext`\[Gamma]$$^5 - 
                    2 $CellContext`\[Gamma]$$^6 + 
                    708 $CellContext`k $CellContext`\[Gamma]$$^6 - 
                    2210 $CellContext`k^2 $CellContext`\[Gamma]$$^6 + 
                    1856 $CellContext`k^3 $CellContext`\[Gamma]$$^6 - 
                    464 $CellContext`k^4 $CellContext`\[Gamma]$$^6 + 
                    4 $CellContext`\[Gamma]$$^7 + 
                    88 $CellContext`k $CellContext`\[Gamma]$$^7 - 
                    44 $CellContext`k^2 $CellContext`\[Gamma]$$^7 + \
$CellContext`\[Gamma]$$^8 - 210 $CellContext`k $CellContext`\[Gamma]$$^8 + 
                    621 $CellContext`k^2 $CellContext`\[Gamma]$$^8 - 
                    516 $CellContext`k^3 $CellContext`\[Gamma]$$^8 + 
                    129 $CellContext`k^4 $CellContext`\[Gamma]$$^8 - 
                    8 $CellContext`k $CellContext`\[Gamma]$$^9 + 
                    4 $CellContext`k^2 $CellContext`\[Gamma]$$^9 + 
                    32 $CellContext`k $CellContext`\[Gamma]$$^10 - 
                    88 $CellContext`k^2 $CellContext`\[Gamma]$$^10 + 
                    72 $CellContext`k^3 $CellContext`\[Gamma]$$^10 - 
                    18 $CellContext`k^4 $CellContext`\[Gamma]$$^10 - 
                    2 $CellContext`k $CellContext`\[Gamma]$$^12 + 
                    5 $CellContext`k^2 $CellContext`\[Gamma]$$^12 - 
                    4 $CellContext`k^3 $CellContext`\[Gamma]$$^12 + \
$CellContext`k^4 $CellContext`\[Gamma]$$^12))^2)^Rational[1, 2])^
                  Rational[-1, 3] + 
                Rational[1, 3] 
                 2^Rational[-1, 3] $CellContext`\[Gamma]$$^(-4) (
                   16 (512 $CellContext`k^2 - 
                    128 $CellContext`k $CellContext`\[Gamma]$$ + 
                    12 $CellContext`\[Gamma]$$^2 + 
                    96 $CellContext`k $CellContext`\[Gamma]$$^2 - 
                    1552 $CellContext`k^2 $CellContext`\[Gamma]$$^2 - 
                    12 $CellContext`\[Gamma]$$^3 + 
                    256 $CellContext`k $CellContext`\[Gamma]$$^3 - 
                    9 $CellContext`\[Gamma]$$^4 - 
                    144 $CellContext`k $CellContext`\[Gamma]$$^4 + 
                    1752 $CellContext`k^2 $CellContext`\[Gamma]$$^4 + 
                    6 $CellContext`\[Gamma]$$^5 - 
                    168 $CellContext`k $CellContext`\[Gamma]$$^5 + 
                    3 $CellContext`\[Gamma]$$^6 + 
                    54 $CellContext`k $CellContext`\[Gamma]$$^6 - 
                    937 $CellContext`k^2 $CellContext`\[Gamma]$$^6 + 
                    44 $CellContext`k $CellContext`\[Gamma]$$^7 - 
                    6 $CellContext`k $CellContext`\[Gamma]$$^8 + 
                    259 $CellContext`k^2 $CellContext`\[Gamma]$$^8 - 
                    4 $CellContext`k $CellContext`\[Gamma]$$^9 - 
                    36 $CellContext`k^2 $CellContext`\[Gamma]$$^10 + 
                    2 $CellContext`k^2 $CellContext`\[Gamma]$$^12)^3 - 
                   144 ((-16) $CellContext`k $CellContext`\[Gamma]$$^2 + 
                    2 $CellContext`\[Gamma]$$^3 - $CellContext`\[Gamma]$$^4 + 
                    
                    24 $CellContext`k $CellContext`\[Gamma]$$^4 - \
$CellContext`\[Gamma]$$^5 - 
                    9 $CellContext`k $CellContext`\[Gamma]$$^6 + \
$CellContext`k $CellContext`\[Gamma]$$^8) (512 $CellContext`k^2 - 
                    128 $CellContext`k $CellContext`\[Gamma]$$ + 
                    12 $CellContext`\[Gamma]$$^2 + 
                    96 $CellContext`k $CellContext`\[Gamma]$$^2 - 
                    1552 $CellContext`k^2 $CellContext`\[Gamma]$$^2 - 
                    12 $CellContext`\[Gamma]$$^3 + 
                    256 $CellContext`k $CellContext`\[Gamma]$$^3 - 
                    9 $CellContext`\[Gamma]$$^4 - 
                    144 $CellContext`k $CellContext`\[Gamma]$$^4 + 
                    1752 $CellContext`k^2 $CellContext`\[Gamma]$$^4 + 
                    6 $CellContext`\[Gamma]$$^5 - 
                    168 $CellContext`k $CellContext`\[Gamma]$$^5 + 
                    3 $CellContext`\[Gamma]$$^6 + 
                    54 $CellContext`k $CellContext`\[Gamma]$$^6 - 
                    937 $CellContext`k^2 $CellContext`\[Gamma]$$^6 + 
                    44 $CellContext`k $CellContext`\[Gamma]$$^7 - 
                    6 $CellContext`k $CellContext`\[Gamma]$$^8 + 
                    259 $CellContext`k^2 $CellContext`\[Gamma]$$^8 - 
                    4 $CellContext`k $CellContext`\[Gamma]$$^9 - 
                    36 $CellContext`k^2 $CellContext`\[Gamma]$$^10 + 
                    2 $CellContext`k^2 $CellContext`\[Gamma]$$^12) (
                    128 $CellContext`k - 1024 $CellContext`k^2 + 
                    512 $CellContext`k^3 + 16 $CellContext`\[Gamma]$$ + 
                    256 $CellContext`k $CellContext`\[Gamma]$$ - 
                    64 $CellContext`k^2 $CellContext`\[Gamma]$$ - 
                    24 $CellContext`\[Gamma]$$^2 - 
                    544 $CellContext`k $CellContext`\[Gamma]$$^2 + 
                    3104 $CellContext`k^2 $CellContext`\[Gamma]$$^2 - 
                    1536 $CellContext`k^3 $CellContext`\[Gamma]$$^2 - 
                    12 $CellContext`\[Gamma]$$^3 - 
                    512 $CellContext`k $CellContext`\[Gamma]$$^3 + 
                    128 $CellContext`k^2 $CellContext`\[Gamma]$$^3 + 
                    22 $CellContext`\[Gamma]$$^4 + 
                    712 $CellContext`k $CellContext`\[Gamma]$$^4 - 
                    3504 $CellContext`k^2 $CellContext`\[Gamma]$$^4 + 
                    1728 $CellContext`k^3 $CellContext`\[Gamma]$$^4 + 
                    6 $CellContext`\[Gamma]$$^5 + 
                    336 $CellContext`k $CellContext`\[Gamma]$$^5 - 
                    84 $CellContext`k^2 $CellContext`\[Gamma]$$^5 - 
                    6 $CellContext`\[Gamma]$$^6 - 
                    390 $CellContext`k $CellContext`\[Gamma]$$^6 + 
                    1874 $CellContext`k^2 $CellContext`\[Gamma]$$^6 - 
                    928 $CellContext`k^3 $CellContext`\[Gamma]$$^6 - 
                    2 $CellContext`\[Gamma]$$^7 - 
                    88 $CellContext`k $CellContext`\[Gamma]$$^7 + 
                    22 $CellContext`k^2 $CellContext`\[Gamma]$$^7 + 
                    109 $CellContext`k $CellContext`\[Gamma]$$^8 - 
                    518 $CellContext`k^2 $CellContext`\[Gamma]$$^8 + 
                    258 $CellContext`k^3 $CellContext`\[Gamma]$$^8 + 
                    8 $CellContext`k $CellContext`\[Gamma]$$^9 - 
                    2 $CellContext`k^2 $CellContext`\[Gamma]$$^9 - 
                    16 $CellContext`k $CellContext`\[Gamma]$$^10 + 
                    72 $CellContext`k^2 $CellContext`\[Gamma]$$^10 - 
                    36 $CellContext`k^3 $CellContext`\[Gamma]$$^10 + \
$CellContext`k $CellContext`\[Gamma]$$^12 - 
                    4 $CellContext`k^2 $CellContext`\[Gamma]$$^12 + 
                    2 $CellContext`k^3 $CellContext`\[Gamma]$$^12) + 
                   108 $CellContext`\[Gamma]$$^4 (128 $CellContext`k - 
                    1024 $CellContext`k^2 + 512 $CellContext`k^3 + 
                    16 $CellContext`\[Gamma]$$ + 
                    256 $CellContext`k $CellContext`\[Gamma]$$ - 
                    64 $CellContext`k^2 $CellContext`\[Gamma]$$ - 
                    24 $CellContext`\[Gamma]$$^2 - 
                    544 $CellContext`k $CellContext`\[Gamma]$$^2 + 
                    3104 $CellContext`k^2 $CellContext`\[Gamma]$$^2 - 
                    1536 $CellContext`k^3 $CellContext`\[Gamma]$$^2 - 
                    12 $CellContext`\[Gamma]$$^3 - 
                    512 $CellContext`k $CellContext`\[Gamma]$$^3 + 
                    128 $CellContext`k^2 $CellContext`\[Gamma]$$^3 + 
                    22 $CellContext`\[Gamma]$$^4 + 
                    712 $CellContext`k $CellContext`\[Gamma]$$^4 - 
                    3504 $CellContext`k^2 $CellContext`\[Gamma]$$^4 + 
                    1728 $CellContext`k^3 $CellContext`\[Gamma]$$^4 + 
                    6 $CellContext`\[Gamma]$$^5 + 
                    336 $CellContext`k $CellContext`\[Gamma]$$^5 - 
                    84 $CellContext`k^2 $CellContext`\[Gamma]$$^5 - 
                    6 $CellContext`\[Gamma]$$^6 - 
                    390 $CellContext`k $CellContext`\[Gamma]$$^6 + 
                    1874 $CellContext`k^2 $CellContext`\[Gamma]$$^6 - 
                    928 $CellContext`k^3 $CellContext`\[Gamma]$$^6 - 
                    2 $CellContext`\[Gamma]$$^7 - 
                    88 $CellContext`k $CellContext`\[Gamma]$$^7 + 
                    22 $CellContext`k^2 $CellContext`\[Gamma]$$^7 + 
                    109 $CellContext`k $CellContext`\[Gamma]$$^8 - 
                    518 $CellContext`k^2 $CellContext`\[Gamma]$$^8 + 
                    258 $CellContext`k^3 $CellContext`\[Gamma]$$^8 + 
                    8 $CellContext`k $CellContext`\[Gamma]$$^9 - 
                    2 $CellContext`k^2 $CellContext`\[Gamma]$$^9 - 
                    16 $CellContext`k $CellContext`\[Gamma]$$^10 + 
                    72 $CellContext`k^2 $CellContext`\[Gamma]$$^10 - 
                    36 $CellContext`k^3 $CellContext`\[Gamma]$$^10 + \
$CellContext`k $CellContext`\[Gamma]$$^12 - 
                    4 $CellContext`k^2 $CellContext`\[Gamma]$$^12 + 
                    2 $CellContext`k^3 $CellContext`\[Gamma]$$^12)^2 + 
                   432 ((-16) $CellContext`k $CellContext`\[Gamma]$$^2 + 
                    2 $CellContext`\[Gamma]$$^3 - $CellContext`\[Gamma]$$^4 + 
                    24 $CellContext`k $CellContext`\[Gamma]$$^4 - \
$CellContext`\[Gamma]$$^5 - 
                    9 $CellContext`k $CellContext`\[Gamma]$$^6 + \
$CellContext`k $CellContext`\[Gamma]$$^8)^2 (16 - 256 $CellContext`k + 
                    1152 $CellContext`k^2 - 1024 $CellContext`k^3 + 
                    256 $CellContext`k^4 - 32 $CellContext`\[Gamma]$$ - 
                    256 $CellContext`k $CellContext`\[Gamma]$$ + 
                    128 $CellContext`k^2 $CellContext`\[Gamma]$$ - 
                    8 $CellContext`\[Gamma]$$^2 + 
                    960 $CellContext`k $CellContext`\[Gamma]$$^2 - 
                    3552 $CellContext`k^2 $CellContext`\[Gamma]$$^2 + 
                    3072 $CellContext`k^3 $CellContext`\[Gamma]$$^2 - 
                    768 $CellContext`k^4 $CellContext`\[Gamma]$$^2 + 
                    40 $CellContext`\[Gamma]$$^3 + 
                    512 $CellContext`k $CellContext`\[Gamma]$$^3 - 
                    256 $CellContext`k^2 $CellContext`\[Gamma]$$^3 + \
$CellContext`\[Gamma]$$^4 - 1232 $CellContext`k $CellContext`\[Gamma]$$^4 + 
                    4072 $CellContext`k^2 $CellContext`\[Gamma]$$^4 - 
                    3456 $CellContext`k^3 $CellContext`\[Gamma]$$^4 + 
                    864 $CellContext`k^4 $CellContext`\[Gamma]$$^4 - 
                    20 $CellContext`\[Gamma]$$^5 - 
                    336 $CellContext`k $CellContext`\[Gamma]$$^5 + 
                    168 $CellContext`k^2 $CellContext`\[Gamma]$$^5 - 
                    2 $CellContext`\[Gamma]$$^6 + 
                    708 $CellContext`k $CellContext`\[Gamma]$$^6 - 
                    2210 $CellContext`k^2 $CellContext`\[Gamma]$$^6 + 
                    1856 $CellContext`k^3 $CellContext`\[Gamma]$$^6 - 
                    464 $CellContext`k^4 $CellContext`\[Gamma]$$^6 + 
                    4 $CellContext`\[Gamma]$$^7 + 
                    88 $CellContext`k $CellContext`\[Gamma]$$^7 - 
                    44 $CellContext`k^2 $CellContext`\[Gamma]$$^7 + \
$CellContext`\[Gamma]$$^8 - 210 $CellContext`k $CellContext`\[Gamma]$$^8 + 
                    621 $CellContext`k^2 $CellContext`\[Gamma]$$^8 - 
                    516 $CellContext`k^3 $CellContext`\[Gamma]$$^8 + 
                    129 $CellContext`k^4 $CellContext`\[Gamma]$$^8 - 
                    8 $CellContext`k $CellContext`\[Gamma]$$^9 + 
                    4 $CellContext`k^2 $CellContext`\[Gamma]$$^9 + 
                    32 $CellContext`k $CellContext`\[Gamma]$$^10 - 
                    88 $CellContext`k^2 $CellContext`\[Gamma]$$^10 + 
                    72 $CellContext`k^3 $CellContext`\[Gamma]$$^10 - 
                    18 $CellContext`k^4 $CellContext`\[Gamma]$$^10 - 
                    2 $CellContext`k $CellContext`\[Gamma]$$^12 + 
                    5 $CellContext`k^2 $CellContext`\[Gamma]$$^12 - 
                    4 $CellContext`k^3 $CellContext`\[Gamma]$$^12 + \
$CellContext`k^4 $CellContext`\[Gamma]$$^12) - 
                   144 $CellContext`\[Gamma]$$^4 (512 $CellContext`k^2 - 
                    128 $CellContext`k $CellContext`\[Gamma]$$ + 
                    12 $CellContext`\[Gamma]$$^2 + 
                    96 $CellContext`k $CellContext`\[Gamma]$$^2 - 
                    1552 $CellContext`k^2 $CellContext`\[Gamma]$$^2 - 
                    12 $CellContext`\[Gamma]$$^3 + 
                    256 $CellContext`k $CellContext`\[Gamma]$$^3 - 
                    9 $CellContext`\[Gamma]$$^4 - 
                    144 $CellContext`k $CellContext`\[Gamma]$$^4 + 
                    1752 $CellContext`k^2 $CellContext`\[Gamma]$$^4 + 
                    6 $CellContext`\[Gamma]$$^5 - 
                    168 $CellContext`k $CellContext`\[Gamma]$$^5 + 
                    3 $CellContext`\[Gamma]$$^6 + 
                    54 $CellContext`k $CellContext`\[Gamma]$$^6 - 
                    937 $CellContext`k^2 $CellContext`\[Gamma]$$^6 + 
                    44 $CellContext`k $CellContext`\[Gamma]$$^7 - 
                    6 $CellContext`k $CellContext`\[Gamma]$$^8 + 
                    259 $CellContext`k^2 $CellContext`\[Gamma]$$^8 - 
                    4 $CellContext`k $CellContext`\[Gamma]$$^9 - 
                    36 $CellContext`k^2 $CellContext`\[Gamma]$$^10 + 
                    2 $CellContext`k^2 $CellContext`\[Gamma]$$^12) (16 - 
                    256 $CellContext`k + 1152 $CellContext`k^2 - 
                    1024 $CellContext`k^3 + 256 $CellContext`k^4 - 
                    32 $CellContext`\[Gamma]$$ - 
                    256 $CellContext`k $CellContext`\[Gamma]$$ + 
                    128 $CellContext`k^2 $CellContext`\[Gamma]$$ - 
                    8 $CellContext`\[Gamma]$$^2 + 
                    960 $CellContext`k $CellContext`\[Gamma]$$^2 - 
                    3552 $CellContext`k^2 $CellContext`\[Gamma]$$^2 + 
                    3072 $CellContext`k^3 $CellContext`\[Gamma]$$^2 - 
                    768 $CellContext`k^4 $CellContext`\[Gamma]$$^2 + 
                    40 $CellContext`\[Gamma]$$^3 + 
                    512 $CellContext`k $CellContext`\[Gamma]$$^3 - 
                    256 $CellContext`k^2 $CellContext`\[Gamma]$$^3 + \
$CellContext`\[Gamma]$$^4 - 1232 $CellContext`k $CellContext`\[Gamma]$$^4 + 
                    4072 $CellContext`k^2 $CellContext`\[Gamma]$$^4 - 
                    3456 $CellContext`k^3 $CellContext`\[Gamma]$$^4 + 
                    864 $CellContext`k^4 $CellContext`\[Gamma]$$^4 - 
                    20 $CellContext`\[Gamma]$$^5 - 
                    336 $CellContext`k $CellContext`\[Gamma]$$^5 + 
                    168 $CellContext`k^2 $CellContext`\[Gamma]$$^5 - 
                    2 $CellContext`\[Gamma]$$^6 + 
                    708 $CellContext`k $CellContext`\[Gamma]$$^6 - 
                    2210 $CellContext`k^2 $CellContext`\[Gamma]$$^6 + 
                    1856 $CellContext`k^3 $CellContext`\[Gamma]$$^6 - 
                    464 $CellContext`k^4 $CellContext`\[Gamma]$$^6 + 
                    4 $CellContext`\[Gamma]$$^7 + 
                    88 $CellContext`k $CellContext`\[Gamma]$$^7 - 
                    44 $CellContext`k^2 $CellContext`\[Gamma]$$^7 + \
$CellContext`\[Gamma]$$^8 - 210 $CellContext`k $CellContext`\[Gamma]$$^8 + 
                    621 $CellContext`k^2 $CellContext`\[Gamma]$$^8 - 
                    516 $CellContext`k^3 $CellContext`\[Gamma]$$^8 + 
                    129 $CellContext`k^4 $CellContext`\[Gamma]$$^8 - 
                    8 $CellContext`k $CellContext`\[Gamma]$$^9 + 
                    4 $CellContext`k^2 $CellContext`\[Gamma]$$^9 + 
                    32 $CellContext`k $CellContext`\[Gamma]$$^10 - 
                    88 $CellContext`k^2 $CellContext`\[Gamma]$$^10 + 
                    72 $CellContext`k^3 $CellContext`\[Gamma]$$^10 - 
                    18 $CellContext`k^4 $CellContext`\[Gamma]$$^10 - 
                    2 $CellContext`k $CellContext`\[Gamma]$$^12 + 
                    5 $CellContext`k^2 $CellContext`\[Gamma]$$^12 - 
                    
                    4 $CellContext`k^3 $CellContext`\[Gamma]$$^12 + \
$CellContext`k^4 $CellContext`\[Gamma]$$^12) + ((-4) (
                    1048576 $CellContext`k^4 - 
                    524288 $CellContext`k^3 $CellContext`\[Gamma]$$ + 
                    163840 $CellContext`k^2 $CellContext`\[Gamma]$$^2 - 
                    6160384 $CellContext`k^4 $CellContext`\[Gamma]$$^2 - 
                    12288 $CellContext`k $CellContext`\[Gamma]$$^3 + 
                    2588672 $CellContext`k^3 $CellContext`\[Gamma]$$^3 - 
                    701440 $CellContext`k^2 $CellContext`\[Gamma]$$^4 + 
                    15929344 $CellContext`k^4 $CellContext`\[Gamma]$$^4 + 
                    43008 $CellContext`k $CellContext`\[Gamma]$$^5 - 
                    5488640 $CellContext`k^3 $CellContext`\[Gamma]$$^5 + 
                    1254400 $CellContext`k^2 $CellContext`\[Gamma]$$^6 - 
                    23941120 $CellContext`k^4 $CellContext`\[Gamma]$$^6 - 
                    59904 $CellContext`k $CellContext`\[Gamma]$$^7 + 
                    6574080 $CellContext`k^3 $CellContext`\[Gamma]$$^7 - 
                    1226624 $CellContext`k^2 $CellContext`\[Gamma]$$^8 + 
                    23287296 $CellContext`k^4 $CellContext`\[Gamma]$$^8 + 
                    43008 $CellContext`k $CellContext`\[Gamma]$$^9 - 
                    4929536 $CellContext`k^3 $CellContext`\[Gamma]$$^9 + 
                    723392 $CellContext`k^2 $CellContext`\[Gamma]$$^10 - 
                    15458048 $CellContext`k^4 $CellContext`\[Gamma]$$^10 - 
                    17328 $CellContext`k $CellContext`\[Gamma]$$^11 + 
                    2423680 $CellContext`k^3 $CellContext`\[Gamma]$$^11 - 
                    267956 $CellContext`k^2 $CellContext`\[Gamma]$$^12 + 
                    7194384 $CellContext`k^4 $CellContext`\[Gamma]$$^12 + 
                    3960 $CellContext`k $CellContext`\[Gamma]$$^13 - 
                    793920 $CellContext`k^3 $CellContext`\[Gamma]$$^13 + 
                    62656 $CellContext`k^2 $CellContext`\[Gamma]$$^14 - 
                    2371584 $CellContext`k^4 $CellContext`\[Gamma]$$^14 - 
                    480 $CellContext`k $CellContext`\[Gamma]$$^15 + 
                    171712 $CellContext`k^3 $CellContext`\[Gamma]$$^15 - 
                    8956 $CellContext`k^2 $CellContext`\[Gamma]$$^16 + 
                    551104 $CellContext`k^4 $CellContext`\[Gamma]$$^16 + 
                    24 $CellContext`k $CellContext`\[Gamma]$$^17 - 
                    23552 $CellContext`k^3 $CellContext`\[Gamma]$$^17 + 
                    712 $CellContext`k^2 $CellContext`\[Gamma]$$^18 - 
                    88288 $CellContext`k^4 $CellContext`\[Gamma]$$^18 + 
                    1856 $CellContext`k^3 $CellContext`\[Gamma]$$^19 - 
                    24 $CellContext`k^2 $CellContext`\[Gamma]$$^20 + 
                    9280 $CellContext`k^4 $CellContext`\[Gamma]$$^20 - 
                    64 $CellContext`k^3 $CellContext`\[Gamma]$$^21 - 
                    576 $CellContext`k^4 $CellContext`\[Gamma]$$^22 + 
                    16 $CellContext`k^4 $CellContext`\[Gamma]$$^24)^3 + (
                    16 (512 $CellContext`k^2 - 
                    128 $CellContext`k $CellContext`\[Gamma]$$ + 
                    12 $CellContext`\[Gamma]$$^2 + 
                    96 $CellContext`k $CellContext`\[Gamma]$$^2 - 
                    1552 $CellContext`k^2 $CellContext`\[Gamma]$$^2 - 
                    12 $CellContext`\[Gamma]$$^3 + 
                    256 $CellContext`k $CellContext`\[Gamma]$$^3 - 
                    9 $CellContext`\[Gamma]$$^4 - 
                    144 $CellContext`k $CellContext`\[Gamma]$$^4 + 
                    1752 $CellContext`k^2 $CellContext`\[Gamma]$$^4 + 
                    6 $CellContext`\[Gamma]$$^5 - 
                    168 $CellContext`k $CellContext`\[Gamma]$$^5 + 
                    3 $CellContext`\[Gamma]$$^6 + 
                    54 $CellContext`k $CellContext`\[Gamma]$$^6 - 
                    937 $CellContext`k^2 $CellContext`\[Gamma]$$^6 + 
                    44 $CellContext`k $CellContext`\[Gamma]$$^7 - 
                    6 $CellContext`k $CellContext`\[Gamma]$$^8 + 
                    259 $CellContext`k^2 $CellContext`\[Gamma]$$^8 - 
                    4 $CellContext`k $CellContext`\[Gamma]$$^9 - 
                    36 $CellContext`k^2 $CellContext`\[Gamma]$$^10 + 
                    2 $CellContext`k^2 $CellContext`\[Gamma]$$^12)^3 - 
                    144 ((-16) $CellContext`k $CellContext`\[Gamma]$$^2 + 
                    2 $CellContext`\[Gamma]$$^3 - $CellContext`\[Gamma]$$^4 + 
                    24 $CellContext`k $CellContext`\[Gamma]$$^4 - \
$CellContext`\[Gamma]$$^5 - 
                    9 $CellContext`k $CellContext`\[Gamma]$$^6 + \
$CellContext`k $CellContext`\[Gamma]$$^8) (512 $CellContext`k^2 - 
                    128 $CellContext`k $CellContext`\[Gamma]$$ + 
                    12 $CellContext`\[Gamma]$$^2 + 
                    96 $CellContext`k $CellContext`\[Gamma]$$^2 - 
                    1552 $CellContext`k^2 $CellContext`\[Gamma]$$^2 - 
                    12 $CellContext`\[Gamma]$$^3 + 
                    256 $CellContext`k $CellContext`\[Gamma]$$^3 - 
                    9 $CellContext`\[Gamma]$$^4 - 
                    144 $CellContext`k $CellContext`\[Gamma]$$^4 + 
                    1752 $CellContext`k^2 $CellContext`\[Gamma]$$^4 + 
                    6 $CellContext`\[Gamma]$$^5 - 
                    168 $CellContext`k $CellContext`\[Gamma]$$^5 + 
                    3 $CellContext`\[Gamma]$$^6 + 
                    54 $CellContext`k $CellContext`\[Gamma]$$^6 - 
                    937 $CellContext`k^2 $CellContext`\[Gamma]$$^6 + 
                    44 $CellContext`k $CellContext`\[Gamma]$$^7 - 
                    6 $CellContext`k $CellContext`\[Gamma]$$^8 + 
                    259 $CellContext`k^2 $CellContext`\[Gamma]$$^8 - 
                    4 $CellContext`k $CellContext`\[Gamma]$$^9 - 
                    36 $CellContext`k^2 $CellContext`\[Gamma]$$^10 + 
                    2 $CellContext`k^2 $CellContext`\[Gamma]$$^12) (
                    128 $CellContext`k - 1024 $CellContext`k^2 + 
                    512 $CellContext`k^3 + 16 $CellContext`\[Gamma]$$ + 
                    256 $CellContext`k $CellContext`\[Gamma]$$ - 
                    64 $CellContext`k^2 $CellContext`\[Gamma]$$ - 
                    24 $CellContext`\[Gamma]$$^2 - 
                    544 $CellContext`k $CellContext`\[Gamma]$$^2 + 
                    3104 $CellContext`k^2 $CellContext`\[Gamma]$$^2 - 
                    1536 $CellContext`k^3 $CellContext`\[Gamma]$$^2 - 
                    12 $CellContext`\[Gamma]$$^3 - 
                    512 $CellContext`k $CellContext`\[Gamma]$$^3 + 
                    128 $CellContext`k^2 $CellContext`\[Gamma]$$^3 + 
                    22 $CellContext`\[Gamma]$$^4 + 
                    712 $CellContext`k $CellContext`\[Gamma]$$^4 - 
                    3504 $CellContext`k^2 $CellContext`\[Gamma]$$^4 + 
                    1728 $CellContext`k^3 $CellContext`\[Gamma]$$^4 + 
                    6 $CellContext`\[Gamma]$$^5 + 
                    336 $CellContext`k $CellContext`\[Gamma]$$^5 - 
                    84 $CellContext`k^2 $CellContext`\[Gamma]$$^5 - 
                    6 $CellContext`\[Gamma]$$^6 - 
                    390 $CellContext`k $CellContext`\[Gamma]$$^6 + 
                    1874 $CellContext`k^2 $CellContext`\[Gamma]$$^6 - 
                    928 $CellContext`k^3 $CellContext`\[Gamma]$$^6 - 
                    2 $CellContext`\[Gamma]$$^7 - 
                    88 $CellContext`k $CellContext`\[Gamma]$$^7 + 
                    22 $CellContext`k^2 $CellContext`\[Gamma]$$^7 + 
                    109 $CellContext`k $CellContext`\[Gamma]$$^8 - 
                    518 $CellContext`k^2 $CellContext`\[Gamma]$$^8 + 
                    258 $CellContext`k^3 $CellContext`\[Gamma]$$^8 + 
                    8 $CellContext`k $CellContext`\[Gamma]$$^9 - 
                    2 $CellContext`k^2 $CellContext`\[Gamma]$$^9 - 
                    16 $CellContext`k $CellContext`\[Gamma]$$^10 + 
                    72 $CellContext`k^2 $CellContext`\[Gamma]$$^10 - 
                    36 $CellContext`k^3 $CellContext`\[Gamma]$$^10 + \
$CellContext`k $CellContext`\[Gamma]$$^12 - 
                    4 $CellContext`k^2 $CellContext`\[Gamma]$$^12 + 
                    2 $CellContext`k^3 $CellContext`\[Gamma]$$^12) + 
                    108 $CellContext`\[Gamma]$$^4 (128 $CellContext`k - 
                    1024 $CellContext`k^2 + 512 $CellContext`k^3 + 
                    16 $CellContext`\[Gamma]$$ + 
                    256 $CellContext`k $CellContext`\[Gamma]$$ - 
                    64 $CellContext`k^2 $CellContext`\[Gamma]$$ - 
                    24 $CellContext`\[Gamma]$$^2 - 
                    544 $CellContext`k $CellContext`\[Gamma]$$^2 + 
                    3104 $CellContext`k^2 $CellContext`\[Gamma]$$^2 - 
                    1536 $CellContext`k^3 $CellContext`\[Gamma]$$^2 - 
                    12 $CellContext`\[Gamma]$$^3 - 
                    512 $CellContext`k $CellContext`\[Gamma]$$^3 + 
                    128 $CellContext`k^2 $CellContext`\[Gamma]$$^3 + 
                    22 $CellContext`\[Gamma]$$^4 + 
                    712 $CellContext`k $CellContext`\[Gamma]$$^4 - 
                    3504 $CellContext`k^2 $CellContext`\[Gamma]$$^4 + 
                    1728 $CellContext`k^3 $CellContext`\[Gamma]$$^4 + 
                    6 $CellContext`\[Gamma]$$^5 + 
                    336 $CellContext`k $CellContext`\[Gamma]$$^5 - 
                    84 $CellContext`k^2 $CellContext`\[Gamma]$$^5 - 
                    6 $CellContext`\[Gamma]$$^6 - 
                    390 $CellContext`k $CellContext`\[Gamma]$$^6 + 
                    1874 $CellContext`k^2 $CellContext`\[Gamma]$$^6 - 
                    928 $CellContext`k^3 $CellContext`\[Gamma]$$^6 - 
                    2 $CellContext`\[Gamma]$$^7 - 
                    88 $CellContext`k $CellContext`\[Gamma]$$^7 + 
                    22 $CellContext`k^2 $CellContext`\[Gamma]$$^7 + 
                    109 $CellContext`k $CellContext`\[Gamma]$$^8 - 
                    518 $CellContext`k^2 $CellContext`\[Gamma]$$^8 + 
                    258 $CellContext`k^3 $CellContext`\[Gamma]$$^8 + 
                    8 $CellContext`k $CellContext`\[Gamma]$$^9 - 
                    2 $CellContext`k^2 $CellContext`\[Gamma]$$^9 - 
                    16 $CellContext`k $CellContext`\[Gamma]$$^10 + 
                    72 $CellContext`k^2 $CellContext`\[Gamma]$$^10 - 
                    36 $CellContext`k^3 $CellContext`\[Gamma]$$^10 + \
$CellContext`k $CellContext`\[Gamma]$$^12 - 
                    4 $CellContext`k^2 $CellContext`\[Gamma]$$^12 + 
                    2 $CellContext`k^3 $CellContext`\[Gamma]$$^12)^2 + 
                    432 ((-16) $CellContext`k $CellContext`\[Gamma]$$^2 + 
                    2 $CellContext`\[Gamma]$$^3 - $CellContext`\[Gamma]$$^4 + 
                    24 $CellContext`k $CellContext`\[Gamma]$$^4 - \
$CellContext`\[Gamma]$$^5 - 
                    9 $CellContext`k $CellContext`\[Gamma]$$^6 + \
$CellContext`k $CellContext`\[Gamma]$$^8)^2 (16 - 256 $CellContext`k + 
                    1152 $CellContext`k^2 - 1024 $CellContext`k^3 + 
                    256 $CellContext`k^4 - 32 $CellContext`\[Gamma]$$ - 
                    256 $CellContext`k $CellContext`\[Gamma]$$ + 
                    128 $CellContext`k^2 $CellContext`\[Gamma]$$ - 
                    8 $CellContext`\[Gamma]$$^2 + 
                    960 $CellContext`k $CellContext`\[Gamma]$$^2 - 
                    3552 $CellContext`k^2 $CellContext`\[Gamma]$$^2 + 
                    3072 $CellContext`k^3 $CellContext`\[Gamma]$$^2 - 
                    768 $CellContext`k^4 $CellContext`\[Gamma]$$^2 + 
                    40 $CellContext`\[Gamma]$$^3 + 
                    512 $CellContext`k $CellContext`\[Gamma]$$^3 - 
                    256 $CellContext`k^2 $CellContext`\[Gamma]$$^3 + \
$CellContext`\[Gamma]$$^4 - 1232 $CellContext`k $CellContext`\[Gamma]$$^4 + 
                    4072 $CellContext`k^2 $CellContext`\[Gamma]$$^4 - 
                    3456 $CellContext`k^3 $CellContext`\[Gamma]$$^4 + 
                    864 $CellContext`k^4 $CellContext`\[Gamma]$$^4 - 
                    20 $CellContext`\[Gamma]$$^5 - 
                    336 $CellContext`k $CellContext`\[Gamma]$$^5 + 
                    168 $CellContext`k^2 $CellContext`\[Gamma]$$^5 - 
                    2 $CellContext`\[Gamma]$$^6 + 
                    708 $CellContext`k $CellContext`\[Gamma]$$^6 - 
                    2210 $CellContext`k^2 $CellContext`\[Gamma]$$^6 + 
                    1856 $CellContext`k^3 $CellContext`\[Gamma]$$^6 - 
                    464 $CellContext`k^4 $CellContext`\[Gamma]$$^6 + 
                    4 $CellContext`\[Gamma]$$^7 + 
                    88 $CellContext`k $CellContext`\[Gamma]$$^7 - 
                    44 $CellContext`k^2 $CellContext`\[Gamma]$$^7 + \
$CellContext`\[Gamma]$$^8 - 210 $CellContext`k $CellContext`\[Gamma]$$^8 + 
                    621 $CellContext`k^2 $CellContext`\[Gamma]$$^8 - 
                    516 $CellContext`k^3 $CellContext`\[Gamma]$$^8 + 
                    129 $CellContext`k^4 $CellContext`\[Gamma]$$^8 - 
                    8 $CellContext`k $CellContext`\[Gamma]$$^9 + 
                    4 $CellContext`k^2 $CellContext`\[Gamma]$$^9 + 
                    32 $CellContext`k $CellContext`\[Gamma]$$^10 - 
                    88 $CellContext`k^2 $CellContext`\[Gamma]$$^10 + 
                    72 $CellContext`k^3 $CellContext`\[Gamma]$$^10 - 
                    18 $CellContext`k^4 $CellContext`\[Gamma]$$^10 - 
                    2 $CellContext`k $CellContext`\[Gamma]$$^12 + 
                    5 $CellContext`k^2 $CellContext`\[Gamma]$$^12 - 
                    4 $CellContext`k^3 $CellContext`\[Gamma]$$^12 + \
$CellContext`k^4 $CellContext`\[Gamma]$$^12) - 
                    144 $CellContext`\[Gamma]$$^4 (512 $CellContext`k^2 - 
                    128 $CellContext`k $CellContext`\[Gamma]$$ + 
                    12 $CellContext`\[Gamma]$$^2 + 
                    96 $CellContext`k $CellContext`\[Gamma]$$^2 - 
                    1552 $CellContext`k^2 $CellContext`\[Gamma]$$^2 - 
                    12 $CellContext`\[Gamma]$$^3 + 
                    256 $CellContext`k $CellContext`\[Gamma]$$^3 - 
                    9 $CellContext`\[Gamma]$$^4 - 
                    144 $CellContext`k $CellContext`\[Gamma]$$^4 + 
                    1752 $CellContext`k^2 $CellContext`\[Gamma]$$^4 + 
                    6 $CellContext`\[Gamma]$$^5 - 
                    168 $CellContext`k $CellContext`\[Gamma]$$^5 + 
                    3 $CellContext`\[Gamma]$$^6 + 
                    54 $CellContext`k $CellContext`\[Gamma]$$^6 - 
                    937 $CellContext`k^2 $CellContext`\[Gamma]$$^6 + 
                    44 $CellContext`k $CellContext`\[Gamma]$$^7 - 
                    6 $CellContext`k $CellContext`\[Gamma]$$^8 + 
                    259 $CellContext`k^2 $CellContext`\[Gamma]$$^8 - 
                    4 $CellContext`k $CellContext`\[Gamma]$$^9 - 
                    36 $CellContext`k^2 $CellContext`\[Gamma]$$^10 + 
                    2 $CellContext`k^2 $CellContext`\[Gamma]$$^12) (16 - 
                    256 $CellContext`k + 1152 $CellContext`k^2 - 
                    1024 $CellContext`k^3 + 256 $CellContext`k^4 - 
                    32 $CellContext`\[Gamma]$$ - 
                    256 $CellContext`k $CellContext`\[Gamma]$$ + 
                    128 $CellContext`k^2 $CellContext`\[Gamma]$$ - 
                    8 $CellContext`\[Gamma]$$^2 + 
                    960 $CellContext`k $CellContext`\[Gamma]$$^2 - 
                    3552 $CellContext`k^2 $CellContext`\[Gamma]$$^2 + 
                    3072 $CellContext`k^3 $CellContext`\[Gamma]$$^2 - 
                    768 $CellContext`k^4 $CellContext`\[Gamma]$$^2 + 
                    40 $CellContext`\[Gamma]$$^3 + 
                    512 $CellContext`k $CellContext`\[Gamma]$$^3 - 
                    
                    256 $CellContext`k^2 $CellContext`\[Gamma]$$^3 + \
$CellContext`\[Gamma]$$^4 - 1232 $CellContext`k $CellContext`\[Gamma]$$^4 + 
                    4072 $CellContext`k^2 $CellContext`\[Gamma]$$^4 - 
                    3456 $CellContext`k^3 $CellContext`\[Gamma]$$^4 + 
                    864 $CellContext`k^4 $CellContext`\[Gamma]$$^4 - 
                    20 $CellContext`\[Gamma]$$^5 - 
                    336 $CellContext`k $CellContext`\[Gamma]$$^5 + 
                    168 $CellContext`k^2 $CellContext`\[Gamma]$$^5 - 
                    2 $CellContext`\[Gamma]$$^6 + 
                    708 $CellContext`k $CellContext`\[Gamma]$$^6 - 
                    2210 $CellContext`k^2 $CellContext`\[Gamma]$$^6 + 
                    1856 $CellContext`k^3 $CellContext`\[Gamma]$$^6 - 
                    464 $CellContext`k^4 $CellContext`\[Gamma]$$^6 + 
                    4 $CellContext`\[Gamma]$$^7 + 
                    88 $CellContext`k $CellContext`\[Gamma]$$^7 - 
                    44 $CellContext`k^2 $CellContext`\[Gamma]$$^7 + \
$CellContext`\[Gamma]$$^8 - 210 $CellContext`k $CellContext`\[Gamma]$$^8 + 
                    621 $CellContext`k^2 $CellContext`\[Gamma]$$^8 - 
                    516 $CellContext`k^3 $CellContext`\[Gamma]$$^8 + 
                    129 $CellContext`k^4 $CellContext`\[Gamma]$$^8 - 
                    8 $CellContext`k $CellContext`\[Gamma]$$^9 + 
                    4 $CellContext`k^2 $CellContext`\[Gamma]$$^9 + 
                    32 $CellContext`k $CellContext`\[Gamma]$$^10 - 
                    88 $CellContext`k^2 $CellContext`\[Gamma]$$^10 + 
                    72 $CellContext`k^3 $CellContext`\[Gamma]$$^10 - 
                    18 $CellContext`k^4 $CellContext`\[Gamma]$$^10 - 
                    2 $CellContext`k $CellContext`\[Gamma]$$^12 + 
                    5 $CellContext`k^2 $CellContext`\[Gamma]$$^12 - 
                    4 $CellContext`k^3 $CellContext`\[Gamma]$$^12 + \
$CellContext`k^4 $CellContext`\[Gamma]$$^12))^2)^Rational[1, 2])^
                  Rational[1, 3])^Rational[-1, 2])^Rational[1, 2], 
          Rational[-1, 
            4] $CellContext`k^(-2) (-2 + $CellContext`\[Gamma]$$^2)^(-4) \
($CellContext`k (-2 + $CellContext`\[Gamma]$$^2)^2 (2 + 
             8 (-2 + $CellContext`k) $CellContext`k + 
             4 $CellContext`k $CellContext`\[Gamma]$$ - 
             2 (1 + $CellContext`k (-8 + 
                5 $CellContext`k)) $CellContext`\[Gamma]$$^2 - 
             4 $CellContext`k $CellContext`\[Gamma]$$^3 + (1 - 
                
                2 $CellContext`k)^2 $CellContext`\[Gamma]$$^4) + \
($CellContext`k^2 $CellContext`\[Gamma]$$ (-2 + $CellContext`\[Gamma]$$^2)^6 \
($CellContext`\[Gamma]$$^3 - 
              8 $CellContext`k (-1 + $CellContext`\[Gamma]$$^2) + 
              4 $CellContext`k^2 $CellContext`\[Gamma]$$ (-1 + $CellContext`\
\[Gamma]$$^2)))^Rational[1, 2])}, {$CellContext`k, 0, 1}, 
         PlotStyle -> {Green}]], 
      "Specifications" :> {{{$CellContext`\[Gamma]$$, 0.4}, 0, 1}}, 
      "Options" :> {}, "DefaultOptions" :> {}],
     ImageSizeCache->{551., {301., 308.}},
     SingleEvaluation->True],
    Deinitialization:>None,
    DynamicModuleValues:>{},
    SynchronousInitialization->True,
    UnsavedVariables:>{Typeset`initDone$$},
    UntrackedVariables:>{Typeset`size$$}], "Manipulate",
   Deployed->True,
   StripOnInput->False],
  Manipulate`InterpretManipulate[1]]], "Output",
 CellChangeTimes->{
  3.783950037522582*^9, {3.783950078450389*^9, 3.783950102217362*^9}, {
   3.7839507516172466`*^9, 3.7839507692151976`*^9}, 3.783950960457714*^9, 
   3.7839510282063217`*^9, 3.784004714135331*^9, {3.78401367633219*^9, 
   3.7840136858787193`*^9}, {3.7840137387910585`*^9, 3.7840137951749315`*^9}, 
   3.7840138311919713`*^9, {3.7840138623702526`*^9, 3.784013873158517*^9}, 
   3.7840148082889423`*^9, 3.7840148513119464`*^9, 3.7840178673460093`*^9, 
   3.784439051603036*^9, 3.7844407240348577`*^9, {3.7844407724704437`*^9, 
   3.784440811797777*^9}, {3.7844408464720135`*^9, 3.784440931519154*^9}, 
   3.7844413101498327`*^9, {3.7844416849316463`*^9, 3.7844417015534105`*^9}, {
   3.7844420718810234`*^9, 3.784442096102811*^9}, 3.784442151896946*^9, {
   3.7844421856768217`*^9, 3.7844422200805464`*^9}, 3.7847049220226192`*^9, 
   3.784875203404498*^9, 3.7848755733857455`*^9, 3.7851726841703787`*^9, 
   3.785227687763818*^9}]
}, Open  ]],

Cell[BoxData[
 RowBox[{"(*", 
  RowBox[{
   RowBox[{
    RowBox[{
    "Consider", " ", "first", " ", "below", " ", "the", " ", "red", " ", 
     "cure", " ", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{
        RowBox[{"i", ".", "e", ".", " ", "the"}], " ", "price", " ", "with", 
        " ", "exclusivity", " ", "is", " ", "constrained"}], ")"}], ".", " ", 
      "Then"}], " ", "in", " ", "the", " ", "Blue", " ", "area", " ", 
     "Exclusivity", " ", "is", " ", "profitable", " ", "and", " ", "in", " ", 
     "the", " ", "white", " ", "it", " ", "is", " ", "not", " ", "and", " ", 
     "will", " ", "not", " ", "be", " ", 
     RowBox[{"used", ".", "\[IndentingNewLine]", "Hence"}]}], ",", " ", 
    RowBox[{
    "varying", " ", "\[Gamma]", " ", "one", " ", "can", " ", "see", " ", 
     "that", " ", "if", " ", "\[Gamma]", " ", "is", " ", "sufficiently", " ", 
     "large", " ", "then", " ", "we", " ", "have", " ", "the", " ", 
     "following", " ", 
     RowBox[{"patter", ":", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"-", " ", "for"}], " ", "c", " ", "low"}]}]}], ",", " ", 
    RowBox[{"exclusivity", " ", "is", " ", "not", " ", 
     RowBox[{"profitable", ".", "\[IndentingNewLine]", 
      RowBox[{"-", " ", "increasing"}]}], " ", "c"}], ",", " ", 
    RowBox[{
    "it", " ", "is", " ", "profitable", " ", "and", " ", "welfare", " ", 
     RowBox[{"increasing", ".", "\[IndentingNewLine]", 
      RowBox[{"-", " ", "further"}]}], " ", "increasing", " ", "c"}], ",", 
    " ", 
    RowBox[{
    "it", " ", "is", " ", "profitable", " ", "and", " ", "welfare", " ", 
     "reducing", "\[IndentingNewLine]", "For", " ", "\[Gamma]", " ", 
     "sufficiently", " ", "low"}], ",", " ", "instead", ",", " ", 
    RowBox[{
    "when", " ", "exclusivity", " ", "is", " ", "profitable", " ", "it", " ", 
     "is", " ", "also", " ", "uniquely", " ", "welfare", " ", 
     RowBox[{
     "decreasing", ".", "\[IndentingNewLine]", "\[IndentingNewLine]", 
      "Above"}], " ", "the", " ", "red", " ", "curve"}], ",", " ", 
    RowBox[{
    "since", " ", "the", " ", "exclusivity", " ", "pricing", " ", "is", " ", 
     "the", " ", 
     RowBox[{"monopolist", "'"}], " ", "unrestrained", " ", "price"}], ",", 
    " ", 
    RowBox[{
    "exclusivity", " ", "is", " ", "profitable", " ", "a", " ", "fortiori", 
     " ", "and", " ", "we", " ", "do", " ", "not", " ", "need", " ", "to", 
     " ", "characterize", " ", "any", " ", "other", " ", 
     RowBox[{"region", "."}]}]}], ")"}], "*)"}]], "Input",
 CellChangeTimes->{{3.7839510345682096`*^9, 3.7839512659153385`*^9}, {
   3.784003159285286*^9, 3.78400316096941*^9}, 3.785227699228965*^9}],

Cell[BoxData[""], "Input",
 CellChangeTimes->{{3.784459118373743*^9, 3.7844591230342817`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", 
   RowBox[{"Plotting", " ", "figure", " ", "2"}], "*)"}], 
  "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"\[Gamma]param", "=", "0.6"}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"Piecewise", "[", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"cq2k", ",", 
          RowBox[{"cq2k", "\[GreaterEqual]", "cmin"}]}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"Null", ",", 
          RowBox[{"cq2k", "<", "cmin"}]}], "}"}]}], "}"}], "]"}], "/.", 
     RowBox[{"\[Gamma]", "\[Rule]", "\[Gamma]param"}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"cmin", "/.", 
     RowBox[{"\[Gamma]", "\[Rule]", "\[Gamma]param"}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"{", 
      RowBox[{"Piecewise", "[", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"cprofitA", ",", 
           RowBox[{
            RowBox[{
             RowBox[{"tmpc2", "[", 
              RowBox[{"[", 
               RowBox[{"1", ",", "1", ",", "2"}], "]"}], "]"}], "<", 
             "cprofitA"}], "&&", 
            RowBox[{"cprofitA", "<", 
             RowBox[{"1", "-", "k"}]}]}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"tmpc2", "[", 
            RowBox[{"[", 
             RowBox[{"1", ",", "1", ",", "2"}], "]"}], "]"}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{"tmpc2", "[", 
              RowBox[{"[", 
               RowBox[{"1", ",", "1", ",", "2"}], "]"}], "]"}], 
             "\[GreaterEqual]", "cprofitA"}], "&&", 
            RowBox[{
             RowBox[{"tmpc2", "[", 
              RowBox[{"[", 
               RowBox[{"1", ",", "1", ",", "2"}], "]"}], "]"}], "<", 
             RowBox[{"1", "-", "k"}]}]}]}], "}"}]}], "}"}], "]"}], 
      "\[IndentingNewLine]", "}"}], "/.", 
     RowBox[{"\[Gamma]", "->", "\[Gamma]param"}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"FullSimplify", "[", 
      RowBox[{
       RowBox[{"P1", "/.", "qNE"}], "/.", "pNE"}], "]"}], "/.", 
     RowBox[{"\[Gamma]", "->", "\[Gamma]param"}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"FullSimplify", "[", 
      RowBox[{
       RowBox[{"P1", "/.", 
        RowBox[{"q1", "\[Rule]", "q1mon"}]}], "/.", 
       RowBox[{"p1", "\[Rule]", "p1mon"}]}], "]"}], "/.", 
     RowBox[{"\[Gamma]", "->", "\[Gamma]param"}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"FullSimplify", "[", 
      RowBox[{
       RowBox[{"P1", "/.", 
        RowBox[{"q1", "\[Rule]", "q1mon"}]}], "/.", 
       RowBox[{"p1", "\[Rule]", "p1econstr"}]}], "]"}], "/.", 
     RowBox[{"\[Gamma]", "->", "\[Gamma]param"}]}], ";"}], 
   "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"Piecewise", "[", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"cWelfBoundB", ",", 
          RowBox[{
           RowBox[{"cWelfBoundB", "<", "cq2k"}], "&&", 
           RowBox[{"cWelfBoundB", "<", 
            RowBox[{"1", "-", "k"}]}]}]}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"cWelfBoundA", ",", 
          RowBox[{
           RowBox[{"cWelfBoundB", ">", "cq2k"}], "&&", 
           RowBox[{"cWelfBoundA", "<", 
            RowBox[{"1", "-", "k"}]}]}]}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"Null", ",", 
          RowBox[{"cWelfBoundA", ">", 
           RowBox[{"1", "-", "k"}]}]}], "}"}]}], "}"}], "]"}], "/.", 
     RowBox[{"\[Gamma]", "->", "\[Gamma]param"}]}], ";"}], 
   "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{"Figure2", "=", 
    RowBox[{"Show", "[", "\[IndentingNewLine]", 
     RowBox[{"Quiet", "[", 
      RowBox[{"Plot", "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"%", ",", 
          RowBox[{"1", "-", "k"}], ",", "%%%%%", ",", "%%%%%%", ",", 
          "%%%%%%%"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"k", ",", "0", ",", "1"}], "}"}], ",", "\[IndentingNewLine]", 
        RowBox[{"Epilog", "\[Rule]", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"Text", "[", 
            RowBox[{"\"\<0\>\"", ",", 
             RowBox[{"{", 
              RowBox[{
               RowBox[{"-", "0.01"}], ",", "0.025"}], "}"}]}], "]"}], ",", 
           "\[IndentingNewLine]", 
           RowBox[{"Text", "[", 
            RowBox[{"\"\<\!\(\*OverscriptBox[\(K\), \(~\)]\)\>\"", ",", 
             RowBox[{"{", 
              RowBox[{"0.4", ",", "0.65"}], "}"}]}], "]"}], ",", 
           "\[IndentingNewLine]", 
           RowBox[{"Text", "[", 
            RowBox[{"\"\<\!\(\*SubscriptBox[
StyleBox[\"c\",
FontSize->14], 
StyleBox[\"WELF\",
FontSize->8]]\)\>\"", ",", 
             RowBox[{"{", 
              RowBox[{"0.45", ",", "0.38"}], "}"}]}], "]"}], ",", 
           "\[IndentingNewLine]", 
           RowBox[{"Text", "[", 
            RowBox[{"\"\<\!\(\*SubscriptBox[
StyleBox[\"c\",
FontSize->14], 
StyleBox[\"PROF\",
FontSize->8]]\)\>\"", ",", 
             RowBox[{"{", 
              RowBox[{"0.6", ",", "0.28"}], "}"}]}], "]"}], ",", 
           "\[IndentingNewLine]", 
           RowBox[{"Text", "[", 
            RowBox[{"\"\<\!\(\*OverscriptBox[\(K\), \(^\)]\)\>\"", ",", 
             RowBox[{"{", 
              RowBox[{"0.17", ",", "0.55"}], "}"}]}], "]"}], ",", 
           "\[IndentingNewLine]", 
           RowBox[{"Text", "[", 
            RowBox[{"\"\<\!\(\*OverscriptBox[
StyleBox[\"c\",
FontSize->14], \"~\"]\)\>\"", ",", 
             RowBox[{"{", 
              RowBox[{"0.7", ",", 
               RowBox[{"-", "0.12"}]}], "}"}]}], "]"}]}], 
          "\[IndentingNewLine]", "}"}]}], ",", "\[IndentingNewLine]", 
        RowBox[{"PlotRange", "\[Rule]", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{
             RowBox[{"-", "0.02"}], ",", "1.05"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{"-", "0.3"}], ",", "1.1"}], "}"}]}], "}"}]}], ",", 
        RowBox[{"AxesLabel", "\[Rule]", 
         RowBox[{"{", 
          RowBox[{"K", ",", "\"\<c\>\""}], "}"}]}], ",", 
        "\[IndentingNewLine]", 
        RowBox[{"PlotStyle", "\[Rule]", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"{", "Black", "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"Black", ",", 
             RowBox[{"Thickness", "[", "0.003", "]"}]}], "}"}], ",", 
           RowBox[{"{", "Black", "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"Black", ",", 
             RowBox[{"Thickness", "[", "0.003", "]"}]}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"Thin", ",", "Black", ",", "Dotted"}], "}"}]}], "}"}]}], 
        ",", "\[IndentingNewLine]", 
        RowBox[{"LabelStyle", "\[Rule]", 
         RowBox[{"Directive", "[", 
          RowBox[{"FontSize", "\[Rule]", "8"}], "]"}]}], ",", 
        "\[IndentingNewLine]", 
        RowBox[{"Ticks", "\[Rule]", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"0", ",", "1"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{"-", "1"}], ",", "1"}], "}"}]}], "}"}]}], ",", 
        "\[IndentingNewLine]", 
        RowBox[{"AxesStyle", "\[Rule]", 
         RowBox[{"Arrowheads", "[", 
          RowBox[{"{", 
           RowBox[{"0.0", ",", "0.02"}], "}"}], "]"}]}]}], 
       "\[IndentingNewLine]", "]"}], "\[IndentingNewLine]", "]"}], 
     "\[IndentingNewLine]", "]"}]}], "\[IndentingNewLine]", 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"SetDirectory", "[", 
     RowBox[{"NotebookDirectory", "[", "]"}], "]"}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"SetDirectory", "[", 
     RowBox[{"ParentDirectory", "[", "]"}], "]"}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"SetDirectory", "[", "\"\<Figures\>\"", "]"}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"Export", "[", 
     RowBox[{"\"\<Figure2.pdf\>\"", ",", "Figure2"}], "]"}], 
    ";"}]}]}]], "Input",
 CellChangeTimes->{{3.784008901824545*^9, 3.784008929951813*^9}, {
   3.784008994866604*^9, 3.784009138199624*^9}, 3.784013497733615*^9, {
   3.7840135699759235`*^9, 3.78401359182897*^9}, 3.7840138928192854`*^9, {
   3.784013930562696*^9, 3.784013931529539*^9}, {3.7840140324774446`*^9, 
   3.784014196066961*^9}, {3.7840143392220936`*^9, 3.7840143696948247`*^9}, {
   3.7840144262416997`*^9, 3.784014430432563*^9}, {3.7840144827656126`*^9, 
   3.7840144959874525`*^9}, {3.7840145353193846`*^9, 
   3.7840145687198863`*^9}, {3.7840146131475625`*^9, 
   3.7840146145888577`*^9}, {3.784014645422282*^9, 3.7840146615215406`*^9}, {
   3.7840148754169807`*^9, 3.784015088983045*^9}, {3.7840151311943774`*^9, 
   3.784015200243806*^9}, {3.784015282659487*^9, 3.784015285579612*^9}, {
   3.784015328559026*^9, 3.784015531022895*^9}, {3.7840156453179507`*^9, 
   3.7840156561916447`*^9}, {3.784015689027613*^9, 3.784015689282456*^9}, {
   3.7840157327567616`*^9, 3.7840157339604053`*^9}, {3.7840157919434643`*^9, 
   3.784015802344307*^9}, {3.7840159875274696`*^9, 3.784016170525895*^9}, {
   3.7844409952444696`*^9, 3.784441029009203*^9}, {3.7844410676530495`*^9, 
   3.784441076128153*^9}, {3.7844411101160784`*^9, 3.784441114773822*^9}, 
   3.7844413204197345`*^9, {3.784442230324128*^9, 3.784442231743333*^9}, {
   3.7844587836730795`*^9, 3.7844587941002016`*^9}, {3.784458912101078*^9, 
   3.7844590999599953`*^9}, {3.7844592258672953`*^9, 
   3.7844592745142326`*^9}, {3.7844593060022793`*^9, 3.784459524873782*^9}, {
   3.7844595877930174`*^9, 3.784459626336733*^9}, 3.7847055571517687`*^9, {
   3.7847059966399603`*^9, 3.7847060760692225`*^9}, {3.784706225045286*^9, 
   3.784706266825178*^9}, {3.7847062979505854`*^9, 3.784706352286718*^9}, {
   3.784706512179725*^9, 3.784706512319563*^9}, {3.784709980808364*^9, 
   3.7847099905828147`*^9}, {3.784875245904725*^9, 3.7848752460386724`*^9}, {
   3.784875279142745*^9, 3.7848753615587096`*^9}, {3.784875394298258*^9, 
   3.7848753948465896`*^9}, {3.784875429384429*^9, 3.784875441776072*^9}, {
   3.7848755405649443`*^9, 3.784875545335813*^9}, {3.784876055141068*^9, 
   3.784876067967864*^9}, {3.784876116698223*^9, 3.7848762807791634`*^9}, 
   3.7849001554218197`*^9, 3.7849002037152605`*^9, {3.784900259692764*^9, 
   3.7849003053435693`*^9}, {3.7849003424532795`*^9, 
   3.7849005055978703`*^9}, {3.7849005518801637`*^9, 
   3.7849005996822414`*^9}, {3.7850619672038884`*^9, 3.785062023380634*^9}, {
   3.7850621184012194`*^9, 3.7850621826069646`*^9}, {3.7850622264053707`*^9, 
   3.785062226475992*^9}, {3.7850623640421295`*^9, 3.785062368828062*^9}, {
   3.7850632399242725`*^9, 3.7850632429255805`*^9}, {3.7850633321324596`*^9, 
   3.785063405249627*^9}, {3.785063459886443*^9, 3.785063541013404*^9}, {
   3.7850635790571833`*^9, 3.7850635816601086`*^9}, {3.785063616656105*^9, 
   3.7850636188197765`*^9}, {3.7850636822727423`*^9, 3.785063815566212*^9}, 
   3.7850638597132597`*^9, 3.785063936666683*^9, {3.7850639784067116`*^9, 
   3.7850640458895884`*^9}, {3.7850641236731896`*^9, 
   3.7850641239289265`*^9}, {3.785173016810655*^9, 3.785173027296707*^9}, {
   3.785227731740024*^9, 3.7852277318493824`*^9}}],

Cell[BoxData[
 GraphicsBox[{{{}, {}, 
    {GrayLevel[0], LineBox[CompressedData["
1:eJwd1Xs01OkfB3CkzZafpFaETaXWqUhUpMt7El1ErKVQayVJES1+sqXogslt
rCR3ukyhCLlMuTwz88VMrmPMfKPcoly6oBspWzu/33POc57zOu/35znPf88S
D3+HIwpycnLxsv2/89byB03ht3gw+f9qJ+X925taN/PhfKoycty8jdC7zr+L
28mHsNlKY1qjjUwU1qjbOPDhaSE6tH5SREzPbDwkPMoHN6+ga02piHDmr5ng
JvJx8EhUxyYjEXlouUi3ZJiPPq0Y6VP3FlJ1ezwwKYmC0iDzdHRWA+lSNkx1
yKYwbKr1/L1nA5kO8KlRzacQ7mVrwl7VQLZgUCmOUNC1nMV5+fAxqXnyLDPi
FQWNtV92P+4UEqIkEAQzaqGf1q9QvkJA+McztVze1KLonoVg7XuKPBjx8XGb
qEWuZaiXTS1FbnmbVx6Wq0NHjqIgPZkiEV5PXP0W1EF/8bzsJ5sosstjXtrF
zXVwL73KqmTySatLhEZhbB2EIamun1bxSNeuEz/NMKiHESlZyV5dTZoFm44o
mdaDMZjw9UtXFanZMbvsP9vq4T4pCciLqyLZlnccNZzqkXDf7JTKeCXxYDy/
YnC2HtwtaZ9fcx6RYVMnNefmeuiye+MSXDnk04otcwtOCKC7LqIq4ukDsrXf
QhAdIkA476Yag/WARGbuCvO+KMB48uJGB8sHRH2B49iyVAFOfm09HXa/hGyQ
92lNq5XNT9vfHb5cTEKepbCYWkLI/e579ZfMQjLN+jjX87HMH+tHIvRvE8s9
XwTbJEIw4mgzl9tsEvuDXPjiXiFy6oY7eHpsonN2zvjTj0Lobhn9brfsFtl6
fKnoV93HYAyY91j/coOEWdon4NRjcGNT/QySMojC1F1VreUNkDuvUpjcEUO0
mi0+YI3ML1K6PhpHk3XXO6WeGxsQbizuVGExyZHds9ILbWW28zf3s4kgwlSP
5RbBsn5gjeGOirOEZa5pfkwgc8rq5NRfHYh2aOThimONYLzUGVRmR2C9vc6O
rkCZf9hr16cehb16pfry5xoRDr1M4ygmwpqev7VObIQcmRnjejgG/dpbQnoe
NSKHXSR+fykBedUfYmcqN6Hv6uiBXKVkbPjuXv5bYROMVp2JVLXKgY0t94IV
pwk5pyq87yTl4HD6YjtTfhN0l/ifeTuQgwTTnqFFtCy3rQpnnr+OEf8Dmv3/
yHJWrvqMhzeQ0ecUetK2GTlVJm6/arIhz7e2iHvTDJFErTzweh40VPNVwiaa
wdAlkdFDeTB0+/HZSbkWuGfuN3A1yIfrF0Gg44IWyL28rr6ck49SYyu21uYW
2Idm/HOy4S68bkIpP0bWH72vptNfgKZL61rqV7ZCGCQ/p2GsCOZzGxX+Xt8K
5tQ30bZ5xchNPWR6gCHLdbIikoyLcbEwPmfMqRXOS1//1hhUDPOO4QCN863Q
T/LJuzAp66/KXHj8SSt0PYZKzSZKYDFyoegHCxH6as9pVnWW4i/DlgafnSLo
tisadkyUoihQ86XIRoSTYtuM9vll+Pnbfc30/SIwWGGzjtmWYUqt+8KaEyIM
Z51KmUfKULTZ1Mk5RQRVcaf2fzPKsTjh9VTeqAjhHt2bXBgc1BwKyyv5ILsv
7f2+N/s5cDOZ71L5WQR38zwrL38OMmhzTpNCG8xW/DGpksWBhk508Ji6zHte
LdzwhQO1fP0P69AGo1KW82jBQ8ysPfKGsNpg75uoljajEreuTqULk9qg79Ct
slajEpZH4/a0pbbBff7208WrK3Fhdll+/802eKewX/s5VeKbveKxmRyZ9w/a
97Ar8bn7xkvrvjYkWLGysy2q8Hqyt0dqJAa3eaRjlW81yo+y+NYbxOhorctM
CqtG+JOtt8kmMbwr9ZkvE6uhXpF5Im+HzMyppYyH1bAIPjAdelAM/Z1BvKeK
NUj7SGvqMcUICfaRVlyrwa53zY4BvWIwEnfOyrpHMP/QWbOhF2Jw+prnm1QT
9IhWax98JetLU6iSZoKgopgBq09inNSo2xcwSpDtvztAc047FnzIXX56IRcT
b2tZ3A3tmFb5fOXHfVzcelXZoBIvs2WVSXojF37X7JYdv9KO1bsXW4SLuTC1
HDhTl9KOpkqVuQc7uWjInG0QerMd2g96FD4PcvHO3oU1wpHNRzP1+PI8bK2Y
+K12oB33FrIF7PU8dF5c2/3XRgnMXr8t7Erm4YZR3XrpVgma5KzYdzJ48O12
jjeylED5QOKW4zd4kDMNx9BeCd78FOtHF/Cw4lXLdUdPCYrin13eU8tDkL2v
1xqWBJeqgvYWjvGgonNn7MULCWLdKibPM/hg7LvYPTAigXPFyplfLfkIYP3R
2D8qgfe9syEndvNBy2vc6fssAbP8+s2tsn8ta5Dp1qUshW+UAivxMB+GRceb
29dJ4axdWKsYwYftdsO7/EtSXFr76Gdjio9zobNTeZelyHm75FFfPR9FZYOR
3Hgppv1MrC838LFAP9ujJkUKz6+LXIRtfHQpqy56dE8K4bbk2996+fCl3zGL
JVLEVsSk2H3lI/ZYmVeOHg3loE0dWQYUXjEKmHNW0tB1qyloN6KwU4OdH7yG
huKNiWn5dRQUBEmjNuY0mMjU2mNO4S+9oOApOxoZoS49rB0UvHqNIx3O0NBO
28Ua+p1CbfnK3OpwGo45G03K3SksjV/aoB9JY1xdP/3cYQrdm9VUvifQcFf4
KJz2puCY9u7q3ds0zIZ/0rwfSKHkz5EK9Xs0gpR6XWyCKczd/bzzfDGNUvGy
CwMhFBomRTrOVTSE9qy072cpbHMqYiuKaWy+quI5FkUha3WuwP8JjVylDy4H
oylMz8gZedpF4+B4nQsVS8H12bU5O/pphDhRR/VYFDglLIPiIVmOZcywvymo
R0fZab+lEcrRJJIrFAIPhf0Z9Z6GREyr6iVTWMK2Zg19kr3nZk3Q39co/Asg
joqU
      "]], LineBox[CompressedData["
1:eJwV1nk0VV8bB3BFZYgG+lVUxlSohObyTbNQSJFChJBUKGlAZYhoQpmSDCmU
IaXBPESGa7jDOa57ufceUUkoKYXe8/5x1lmftc/aZz/7u/Z6tqrTKUuXyWJi
Ygz6+f87bVNyoK0YgbzRc0HMyipE9roSdZMJzHoe6dbCrsKXUvtRfUkC/+lx
5/D/VSHj5N7N0vIE9OzPyXZYVmNBw/KaV0sJNLQyHkcPV+NC6uJe1RUEkn9U
fNBcUAPCf6FUlD6BFz+ZUi7banB3qazZMUMC082XyH66XQOp0K+sGVYEVF0H
E7SWvsfIluxut0ACM8V8PJJ316I4vS/RL5jAzYCNRcrutbgqqbM/NJzAq91G
u1zDayHXklORFk2gN/aY0s4PtdB0eJ7cmUkgeJWSnvPOOhy8nG9j1ULgIvvF
4pw1H/DyTVEjVEmkbxJPdP1RjwsLf1/bq0nCyiPtdplsA7ZcWbfRTpvE8DXl
uIElDWjc/ebphdUkgg0DrnAON6CbeBv60phEuc4Nqr6iAQojJVu0vUmE+xdI
pYY2wlevuvC/KhLVBxXUnEea4GqgknKnjsT7jb5X1OUYsFlz6cZ0BgnduSXr
yhYzsHGDgdPkdhKuQQ7jkVYMTN6aPuPbNxJXNH6UR+QxcMsi2KNGsR2692wT
LZ2akXV6u4qvdzumitL9Llu3IMk7RWbArx2XTexz3R1bEOU7NuJ+uR2nShqs
d59owenzhU0O19uRcK78OD+gBWuDNC6aJLejdG+0p3tGC6pvSXDU6tsRF1K7
S3mwBV3Pq2+0qnIR9M/CPuNSK1r6Jb7qLeGi8r+44t7gVrruHaYxOlzottTX
K0e1IiWrZrr1Wi4ODzkannnQCqfH76N4plyEOg6cSCxphUOum4/lEfr7RSUB
cqxW9Dyou9Xrx4V9+uc4pbFW9Ec2Ro83cTFw/6v/Ou82dDZMH7ZncuGi+X2D
uX8bGNJmVuUkF79/ht13CGrD8+tNCtcoLlK/HLV2udmG08GMWMlRLjKmjh2U
y2rD8MWW+/IaHZgIFi4SdrXhrwcrcdmFDjT+q73C3cGE1Rq7OysCO3BV6JwZ
bcJEzqSeUP3gDqwTTH+304IJ+7hfZzbf7MDmeNPGhCNMVNQo7rZI7cC/+Hdn
/nozEabiOHy+vgNzhupOZSQzIc/pN61T5CGjrCGYMcSE56NzW5uUeTDTiS5m
jjBR7flvbZsGD9K/vGqYf5k4Jz5LnbeCh1nLXY5VT2GhXddgdGArD9fb2i+5
zWfh4Y0LGXNP8BCjqO5aARa0jaZNuL7jweaqw3f+dRbysrKXkOU8xEn+SMmM
YsFAwdzC+D0Pkm5/ZTzvsrCpNy5du5WHieFB3Y+JLOyN0jIZ7OGheuod1/jn
LHi3m8X5z+bDVraGJ8dk4c2ZGL1Idz4Oa7CfHJzHhmHHuiPjXnzcvpnke20B
G5Xb+SFevnykKL4tzFZho36uZrt5IB+nak4+/raUDV5JUeCcWD6yF87iG65n
Q0y6ozG5nI/Br097ph9iY1eq6vH8uZ34teLxzqBYNgzi5DTfL+iEroz0it44
NlRu/u3mqnZi/bLdKXuS2Pjjz3aS0OnErvhevWlpbDyzCLe33tKJgdgcL+s8
NuQnDR0Yd+sEZ+96Fet6Nrocyrcbv+3EJ5tj5z//ZaPxwDNx+7JOsPpf/eyd
YOO1SUKld3UnFGRfOlKTOLi71ndLEqMT9g3TZ7VO42DHjKWbBkSdeGbMVLou
z0F26S39WJkuaO0N23NciwO/hQ5qwiNdCJN6Ez12gAMnc92DPMcueKw16r9t
w8Hea5MiCNcuNIXHpasd5kDzc9pQ0+kuGOyvWG14lANW4afyt8FdqK57oXLQ
gwNdU2+HmJwuJDlmTpEJ4ODThZCkXWNdmJgXK7qfxsGXg9puj8QEWHJKT4OX
wcHRQfnJyuIC5N3iT130hAMT9Y+rFSUF+LJ4QVFCDgdq4WEPZs4WQFV+6Lff
Sw5arBo9xxcLIN6+6knVew50vh6QIcwE2OGZ6pPTy8FrK9OyCHMBMno2eDE/
c7CtZKuP4X4BFFRzRL/6OLC9ubIjw0aAabyHRusHOQjXlcr2PSaAVOPn2cm/
OejxLd4z218AMtWPOUT3hZRxtQizdAF+H77X1LyEgI7rfMNJmQJ4SLCHny4j
UMSY8b3wKT2e6MK+ok2A8XDs0IJcAdb3Nn/QWklg3IizrO8NPX/M/QLHNQRs
Q8M/XG8WIF32krzLdgLyMwYlq//Q+6Gkr8GwJ9BWEhFmPC7AOZaCaNdRAnc9
F09t/ieAhtM8Vpkjgdn1tuJcCSGyanIOZTnTDqkZH5AToquVLefhQfeVvwnf
ldSF2JOutTH2LN2HenfwfEyEeFBcujQtgkBjrMB21EyI++ybrR9vEIjcfrE9
wFyIR35mbM0oAjKpeZzwA0I0tS36nnaLgLSdUutDByGONESlRMQQkGQO1jT4
CDHqzayTTiYgUZaYq54khPtz8RZ+LgHupu27u5KFsPyWmi+RT8A6e2z0TYoQ
aswp0Q20bV9tnj07U4h3d+JfehUSyH/W5StWIAT3X6k39ZqAfZL6Bn6tEETl
8hf+FQRe+2dX3/shRC1fqdKxle6Tv/bbWY4I6Zw011u2ETh2duyn7Cg9HmM4
04hJQO6M2ZKQCSGsvshT89kEXNwGwn2kRKh/d3HDa5LeL2v9febKItw43pfx
pIvACYN37VImIhRuq+52+EqgvIWd89pMhCfn9SYU+wnMOTkYeNxcBPt/1pks
2mUZizVrDojwZ1dEzrYBOr+5t72Djoowui8taeZ3Au9GnWV+nRUh7FSE0PUX
nce9wM6M8yLsX7bTReY3vR69hHyriyLEfDoU9pz2jBPN1gVBIpSrKGQNjtL1
8Nann7whwmrP01edx+g8yuQ2d6eIYGosayQzicTRw8tmRqeJ8ILPn51A++Wv
bZTRYxHE9Vm3l0wm4aDrH/4wW4SEDRExhuIkXjyi2LavRKhQs207MoXE4eDX
Xq0NIkRKyXTZSpHIU2EaBTFEKM6bYLNoTynpV1jZKkK2o1qomTSJ3J9q7yI5
Ilgpqs/ZKENC/HjUtN1Cun49cYlpsiSyjZ1SSkdE+NlY1eY0k4SBjqohRkUY
XCz4VEG7VE7QUfZXhEeJtv3Ks0i0MO3mVohRMPIiqkjaw3aHblZJU3CfzCra
LE/C0Nv8Ut0iCkc32Bqx55CotZqhaKxKYaW1Toj6fyTM1zKKPqhTCPHjlp+m
7TRm8qN+KQX5xPlqknNJhIXu8mjSo9B8eVWS1jz6fwmGNm07KUw7/6bfUJHE
ocvjPy2NKfp83vtxibbIoTiaaULBVdz6zxvawxobmlnmFFLs8qevUiIxP3f1
TsKWgoX6HCv5BSRS7wxT1nYU4qMtThvT1vF9cYV0oFBe9OFOAG3D9atK2p0p
JITf6flI26lKx4DnReFcr2vPk4Uk+jL6Wo+coRB95cRGgrbv9axTfB8K7cTn
eIlF9PrNlmZ3nqfQ+Nnj7BHaOYS6mvAqhThj6ZdiyiRWvxWVOYZQuLTnhPMS
2qVJj+xEYRSy+t1VzWi3OCrHU5EUSP8972Np/+xTnNlzj4KaacMHJRUSMQ96
a5PiKQxFrrqxmbb+vsLA/UkUGKnWBva0zxSYDZQ/orDJ+eSWJNoznRUz/dIp
HK5PSX9DO3dOr/2KTAr3Lyr9YNPuPx/ESMyhwD7nZiFD3zsjtcxCLXMp7Le4
4KRBW5s331CqgIJcvOXRTbTd8eLZuSIKSV+bNdxpSw4Fuix/S6H/dN7Xy7Qz
U00XdhdTaLJipN2h/XFKT6RFJQX+Q33RS9rBRQXbJWvo+f0LPN7TVncPHCut
paAYx+9m065UNC08W0/htd8+i27ajo3zPHWaKDyYk5o3RFss4KM61UzXO+Ql
PkH74cqCjvg2Choz9u2RUqPzEwZEm7MpzB7mhsjT5t81MZlGUpDIznq1gPal
7fPES7kUxioP8DVoK410v/XlU1Aw9/mjTfttZr63toBCb1+8nB7tQ4cCtEQi
ClqvHBTX0v4tbSKK+0hh5wHbRRtp3y+em7DvE4WnI4uUDGmv8eq2mNpHwWbf
1llbaLOV86VK+ilEJtlMMqJt2tT8te0bBSWO2rz/+38KTI4O
      "]]}, 
    {GrayLevel[0], Thickness[0.003], LineBox[CompressedData["
1:eJw1lGs0lAkYx0e0WSzRhqkkrSIhIYrav2hTKJFW7SqSoqlEodpTs1gTFVFJ
F9Tk0mLWjNblEGGZo23OlPs1vcM0xmDMm7Mml1X27cN+eM5zfuf//M/z7WcS
fNb3+AIajeZDzZftcVzWWj9y4Pt7xprK+XkSam7LIkR0e1TO6fIvfyJh9/h+
Vil9B3p6De/MzJLwfN39ZzbdD/T0tRv/UZLwD5l6cZsegix11zPSMRLvNiS6
pdCjwJ64OCTsJsFe6n31Oj0BRY3Szgc8Eo3+lmKrodtwy1akdYWRiFMvNbtG
T0dNaEOFXSCJg4ee8D5M5IExulA5UKKA5nxcgPtKHnQGHK8v11ZgjY9C1nij
DG83ieMTw8dx4c0W3J+swsYmw+nTf8lhUKZLqKjU4cqrbXyRsRwVYjdh89YG
+C4itYQRY2hgZC8/JOdjX75h1Qh/FMq123SKz7yEW4VNTbrpKBbMcBYvXyNA
vUqnc1XMCBzmgyr2c4WwrQ/VO9UhgzDB/k2TRTNeE+e89m6SwThtbKZQ0YIP
jhqqnKRhjE2JiE6bNmiopS2+OyxF3mi1QPtmO7gaOQ+nN0uhbfQ7KZF04FKk
ZVJKyhCST5afYJt2wckzX8gbl+CjC0cS9ms3WIFFKZ4uEkTZ8sv0G3vQJM3O
j3r0HiIu/0arSR/SCoycDEgxNOrCzvsG9OEK27Opq1WMfxkdmet+eYt4wVLb
MVcx1m9f9PlEdT8YgXOxXjmDcM8xCX1mQKDf+qyX2eQALhgFrh4MEGFHZEt4
qs8ALOUHNLv3DKDAzG/EJ0SEJTof1PmzA+gbNFZc0CCgVpfJ+y5rENNxf7Mr
X/bDnzM3U8UehHfhV1rJtf04ZV/d+7WnGBb3rnnJT74FZ3cwu/ajGEWnnevi
9fqgHFu2WJrxHvrmApFdWw/K97urpu+QIONg5Ex3TDd+3cV6XCaVYMFZZX2G
bRdM3nn05LKGUPsDw7tysgNOjgnpdFspkm9NdQkz2xGwsnlGpV2KXY1HteYO
tUEpSBFHxA1DnyFxWvmpBas/Wltz/hhG7ZKc3MKnLbivdiTK11QG9niidUV4
M5YQ5TkL+DKUJZpHK0khFl6J89sSOQK55mzxMmcBaIVHeGK9UdACWK7RZS9x
7iEvRa9hFJsztr8qn+Ljxfokdd3wMWj5iN5VuzdA1+OcZby2HBd5Z7IUN+rQ
b9XSfqlGjlW3mEc3rniOkkcwlRwZR6yGKkGol+Mwz0HX6PM4DFkeMQY6JYhl
PYnrL1KAVjA85Oibj2KZUaa2F4mgUdcsS2YGkrJZQcReEjRvL9LONAMhvuNr
uD4kYksPuDoL7mJFTU3JHn+KL4fJduvfxfXUn5uSg0nUa9+0D+XeQZjDgwmN
S1Tfrlf4hEjD6oRvdy16St1PEbNWzKv4vPnyN90FFNdPsLcKWOgdf9/2lEP1
r6m5e+qzkOZfenjnM6q/wuJOGPc3zFv4nmfVkHBxiV6fS8SivzX1kWo7lesZ
VNowY1B5depYeyfFeVvV9upHI905cF1uD8UOwftOcc/DM9+6zJWg/v1ULMsn
IvD84utXcSNUvjPR1oF5AhlWm1J95BQz2gQR3GOIFGf5mZAUpxod4xBBMPc6
LaqfpLgk1Gw780eoqXTkpU1RPP3Jv4LYh4FyZ0YQ5S1arLmuP3Mnahi5G2wo
r9FWFUnimQ7433uUCtu+ePA/9P6P7g==
      "]]}, 
    {GrayLevel[0], LineBox[CompressedData["
1:eJwBMQPO/CFib1JlAgAAADIAAAACAAAAgpiub+Jryj8zMzMzMzPTv8iZYiVC
dso/JUzC7JUf07+POhk6acfKP/IP7ggBidK/HHyGY7dpyz8K47fv0mbRvzb/
YLZTrsw/jMChkjiWzr9MTcCCRbjMPwod34DAds6/Y5sfTzfCzD8DY3OtX1fO
v5A33uca1sw/4gXgZOMYzr/pb1sZ4v3MP+SZU8r9nM2/nOBVfHBNzT/Qquq/
aqnMvwHCSkKN7M0///QV2I3Syr/MhDTOxirPP+bZRH+VYce/Og/LApE1zz+N
D/W4DEXHv6iZYTdbQM8/tTyFd5kox7+Dro6g71XPPxE/qy3z78a/OtjochiB
zz9HKhotpX/Gv6grnRdq188/dgbsTPGixb9C6YKwBkLQP7x5yDme+MO/H5Dr
+anu0D8i5be+PdzAv+v3397VMNI/lLxFRyp9t7+k6rvKDo7TP9MZROGIMay/
Dh2n7+Tk1D9F47B9FiCZv4xptWagJNY/FTL17wJMIL/2QKvkaH/XP8hkebZP
Lpc/dDLEtBbD2D/IRO3ID/OkP2Y0IKCRyNg/arHdV7kYpT9YNnyLDM7YPw/F
1GdLPqU/Ozo0YgLZ2D+1/yJGKYmlPwJCpA/u7tg/OymQmM0dpj+PUYRqxRrZ
P+zTO07FQqc/qnBEIHRy2T9WJsBK1HupP5xyoAvvd9k/Ky23yqmeqT+NdPz2
aX3ZP71Q3o5pwak/cHi0zV+I2T9PkhUZqAaqPzeAJHtLntk/VnIoqCKQqj/E
jwTWIsrZP69lByUZn6s/tpFgwZ3P2T+jDbERmcCrP6iTvKwY1dk/Qtr8EgTi
qz+Ll3SDDuDZPzcTIoabJKw/Up/kMPr12T9thfCO0aisP9+uxIvRIdo/bkpw
C2WtrT/Q7QTsMifaP12chSIGza0/wCxFTJQs2j8AAhvOk+ytP6CqxQxXN9o/
3nlTEHUrrj+Q6QVtuDzaP3+epr3ISq4/gShGzRlC2j/RDdosCWquP2Kmxo3c
TNo/7A3ffVCorj9S5QbuPVLaPy3zGHZXx64/QyRHTp9X2j9K3gNdS+auP0Mk
R06fV9o/St4DXUvmrj8Y05fi
      "]], LineBox[CompressedData["
1:eJwV0nk4ldsXB3BTETJTmkUKp3QjXZW+madIaZAhXaFuMuZEwy0NiHCVIdMx
pxKXhJ8oRcnsfVNUp9I5zjnvq2QozVK/tz/2s5/P86y99lprby2f4K1+EmJi
YiXM+r3rFLYq+PhwsaftEb/KswJqfOng+/u4IGN0x3PLKzBtkR2hE8jFveSg
lC0/K0Bx2v6lI7gonh1UHL25Ev0vZcbt/uHi6ir7XXERlWida+9SepqLyibj
ypC8SlzNbFcKTOQi4fNw1tvRShxI67jwoZCLs0ssGxMTbmAkoStlqpu5L0Oq
p6i5CpMHnmTrHX0Bz1LP3jq3/8HAXPqnf8NL7Dm7o+OqqBG2hVr7bswagGLk
Kf13VDMi5nsv5nu+htAp+Pau3Baw3m2Xe+rEw+REYaMPrxV12zbdjXfhYR/7
5m2fN62wvGNxaIMrD0J+iIXnh1a4Jxm+uOzGg2Oi66d1Um2IWznjevheHn5u
rTrw39I2UOG3HVSO8JDgp6W5N7AN+VOL452KeSg/0yy79GMbVBXHZR5852HX
Z5OC4bF29N6Jj7Wf4qFNa2bz8Od2XDy4ZDrxiwcPP1kleqodKh3uklwpPnak
+W4g5DqgEt0yNabAx/zvH1f6L+2A0mTWh7nafMx+ktRe6dUBedr65SFHPkoC
Oqw7H3ZA6m52hXYOH3brzLyLzneCu97K7nUuH4oG5vLiFzux8/qPb7fy+YhO
TTy2Ob0T7rVmKipX+Dgj+U/yj+JO3Ch/HS5WxcdXDffj0o2d2J2jvfZVKx8s
YYjf6rFO1B25/iB9gg/las4f05y7EGDc8HyG4yASLVAl97ML98i+sjqnQdzq
MzxmINkN9cDxk/tcBsEdqNezlenG3ctLdFu2D2K+MbkxTKUbqrOSw6L2DOLx
hNGlS7rdaPjmK/eFzcTHpfMWOXdD7q6CmTB/EKRsUahZVjeu2/vkN34eRFdR
2nv1pT0wZmltwLdB9FYlXvuq34NGBd6Lu5ODmOF+2PrZih6Qj71mNYkJsEH+
L8Mkkx589NqVdF9WgDSW/5cn1j3YEOZyvG2BAKcvD1QRe5n4rA1uvTYC9Okl
Hz3L6cGn4TlKVLoAT1ItXcxkCKRy6NacTAH0jq5+flWOgNHm6pOuOcz5GZyl
yooEQqucxu4VCJC9MG/uM3UCI5FRPdllAmzE7GRoExBNoxK2NAsQbb1S57AZ
gb6FN2bcGRGgKOJMXGIwgfBH/zQdGhdgyyu5H6lhBFTPOBzRnxCAc79ofyab
wBZKMHTpqwD8eieTzGMEuss02sIkhYg6s5UIjyXQYno8ZpmmEE8afF05uQRq
XG0lU62E4MrcsWvsIHDOsS56nq0QTkoxNWu7CXha6slcthciZlSitJogIGEk
N7PWWYjMAmJFwRMCziqExjM3IRZ4Jbd5DhAYInfozwsUQm2mk7n3ewJznP23
FKcJ0XNnpKhLlsSI9dPHrAwhTpj7HRLKkbhnZrejJkuIa8K3syflSfgv1/d4
mCfErZ0uQzqKJG7Kj/oOXRNCZ+DBlQOqJDZ1siNZjUKwruotvjuXxEm76Lxq
Sgj5pO/1/xqQ6N2933PlGyFq3MbPn2CR0GE7apYNCxGq1+V8cDmJjgLllKJx
IZqnLSyzMiShNsmJufhdCA3LmN6hVSSultcGhiiI8FVz3p+/TEmQKkPrWCYi
rO0wLdlnS2KxXufXK3+KENQknrPajgQb/9VorxPB3/zoRQl7EnMOhhvO3SiC
RJHFmUwHEr4tYtqyDiJUmuRENTiR+BqhKTvkJcLwxaFNpCsJrVcOz4qiRfhz
zZ5VG71JxDevq9h+ToSTkqtHphh/uMKKkT4vwrLUivP1e0g0hykYBySLwI4u
Z6/0YfLL9P67KluEHmWOvKIfU7/RLtumShEG280aLh0gsSJ+X+3ACxHqdK1v
csNJpAe7JSYPiBCp7SFgs0n82mbva8EXoT4jSFrpMNPvQgOVEkqE0TXnlptH
kAitGQ0MfC9C2TTdX+lHSFTz2Et+TKeQZJCjo3yCxNo1Z1M1V1EIOhzabRFD
ot9H04RjTMHINm19DeNDSf89XbSGQvX8dEI3lkSZ6NmcZespnJ5Z6SN9jsSC
1OUFJjYUUnlxto1xJCTe95e7ulOwJJq8JBNJ5M47uPmpJwX5yFaT/YzX2Ym/
d/emYFwTZdrFODzPwNjHl4Ia++idC0kkKKeo+pAgCvkPTrerJJPoLNVrTTxN
QUygbD5ykcT+/sb9ytEUQt51vbZKISElsU02LZbCuNWr8mzGG3adcMpJoPC1
+K/nNqkkKqUfPy5Np6CvfikiJY1Equ9xXmspBUGd0fzpGSRWJiufdiyn0HDf
m+vCuLuhRJuooLAnZEtXFuPpqo/8+6sp3DMQbWZlkohsWjIibKTgrKX+2jqL
hOcC4pv4YwrnzI7vc80hoaAZVtPQR2F38pKOdMZNquqh7GcURmcZWz1nrDvD
Y2joFYX0X3pRHhwSYxNUPzFEwWbO+OLtuSQKR+Muxg1TqB2x3HSB8bY3LGfL
UaY+A4vkLsZ1A2EttRMUFkwM/L0xj8Tp9p83OT8p6Ib3BM3PJ2H8oCB4pziN
4w53IrcyphutDJSlaCiox+fHMN5UHV94dgaNLk0vx3eM1fM0LgSo0TgoR88u
L2D+X/iKIFN9Gh2Z24aliki4Bz/Sm2DRqP/bT4LFeOaBcFGZIQ3PvFSzrYzD
vOs9F62m8XmiTyuH8ToHG0fpjTTaJDLKlhSTGLV6M73JgsaXPocxa8b5SGg+
ak1DX3zpLj/GUqt7TUcdaKyPf15UwLhn4e5lfdtpJHeXLFS6TCJqjrgwyY2G
ksy8Ej3GRurFeXYeNAz763ZYMM6Qfatxew+N3ef614QydpiW2MveS0PNftbf
sYynfhkmGfrTcAn43JLD2OcTe1pRAA0fLSmpFsZq47ObPINovCDHRE8Zt75t
OK4RSgNqYx/fMGbxxD/GHabxh1F2tlwJiQFucYXlERpSqpLGcxkn99kGTB2j
Mafv/Xc9xp86EgdDTtFYWNijbs34pVzf/h9naIgpcvNcGDdvmjcWG0Nj8lZk
uAfja4l72apxzLy8v6T4/c7XUzqZe56GiXjezyDGhxU/nNJPYuY981Z1BGMv
F1OZ2mQaD4cu1J5kbHUhKsk8hUa7cahULGP93la17jQaVssLcxMZK6kqZrtl
MO/fHRCdwviL6w4tYRYzL59ZtzJ+95PKuRLMoeGhM2HKYfygT7h8Mo/GAxcL
mQLGpRqs6phCGjYJzjrFjC/sPLRW5TKNtz0+SSWMIzPq73Gu0Ng6+dDmKuPY
MM0whVIapwwCba4x/j+T+j3t
      "]], LineBox[CompressedData["
1:eJxTTMoPSmViYGAwB2IQ7Wnn/Mp9/XN7BigQmnP95umNCP6PO3IJ4VsQ/Huy
ac8ebUPwj8atzcnbieBPemBd2boPwa9QbP4vcBDBj0861TrnMIKv8yRi0uYT
CP6x56WrH15C8Ndo7DXMvYrgT85k2fHjOoKf8HrSEf67CP6vd+vv2j5H8PW/
veSf9RvBn8ESVxKk8gLO/5csbnpRDcFPOXzhq78mgm/Q5Fzuq4fgn/ivUeVh
geB///W53s4HwQ/72NmtVYLgC9/buojpCILPWtsYYln4Es5nWBm3/pHQKzi/
aNb6XqFDCP5e7Q4OwbzXcL6gV5FOE98bOP+O7oXLlXsQ/A3z7FWexL2F82PX
mwnK/kPwG1oXNt5Z9Q7OX/tCdjafz3s4v2Nua8I9PwQ/Jeit6rpABF9mz54N
vuEIfld/9LGeJAQ/w2zmR65KBF+pRcSDfRmC/8+ihvf6CgT/5tvHl5atRvAn
hG+OdduI4P/XCipu3YPg37nYP4/5MoK/o+178uWrCP4U63jNxTcQfO+leluc
7iH4uyrOnmx8ieBP0zXtD3yD4Bc+mhOi+B7B1/DJuX/gC4LPwnhlyYTvCP6D
rdZZCb8Q/D1Zi/UN/iL40+W5v/7/j+ADAL7i8DI=
      "]]}, 
    {GrayLevel[0], Thickness[0.003], LineBox[CompressedData["
1:eJwdUnk41fkbvZayhotSKNmpxKQklZeSbGmiaLFnG2MvkYhbtpQYiTs0KKLN
Uhhm0n2zMyiStCDEDffe7yctwqDx+53neZ/3OX+c93mfc46yR5CdFz+NRru2
NP/b+tWKAj6ig6D/f/Tg/lvKPg/lBuHiowRTZ/keDF/rqjLs9B4SqukKB//t
wk3cI2J9B4ZAR4LdmG74DGUkPwk3zg3B86YvharX/kFBzClTvTEMXE3hucy4
FnS8Pz/7V/4wuBjsFc4ObsFftz5+I2I9AjlPBn6LSG7E+5Ye+azpEehU3Jul
z63Dbxx5KXbmB7hW3imjdwqxyn6/QIbZKNByw101NzzGGIv4vEr2KOzhVj2V
uFaNygNWrwvix0D9p6bsGz6VaLQ9LmPNFjZUlwomPrJ7iE7rns/y9bDB2SqV
XX6hBL/9kzISzPgIgYVzSvev3kGmoMtpO7VxqK0i0c5nClFmsOoWf+M4bOPj
mbA/5uOyaMbhHSET0N3mPLlbLAdpd13KRqQnwdvh923rU65jaHZZinT9JIz2
5Y4qB6Zh9Xx2Yn3jJNDDK9/cOZGG8y4JjNCWSaibtlDfZZmGiarOYS86JkGJ
rHyYqJaGNx6IOqf3TcK+dhsfz+pUbGJ5bZLmLXGGy7EC5lVc/UGhnb6aA/vV
3k2bBlzBJxuThOmBHEiUyjc97ZyEBi/lOtODOfC1wGDFJZMkLI8q/k32FAfS
Y7RaH6om4a3OZvnVERxoULCcNp5MxKSgZTpKFzhwuVg+Z39EItpVXDikk8mB
vm4PqxXMBPxoFJ1tyeLA0S8udWbsOKRbhW66IMEFtnqLj3EtA/PrJMWM6Fww
EjSTWneLgXo7SiamZLjAX2+RJ5PEQFut8SL3NVxQi492NDnMwOTlLsqmalxo
stGMyePFomCD5SqaEReuHpbTClKLxemdyrTzXlz4Rbc/8WezaIyvYA1u8+XC
06yL20JWRqPsRqcnPD8uvNp+V6WWHYX68lmRzsFcWJieTe66FIXBM+Lfdp3j
QvvhWNPP3edwonJm4t80LiweLWmQ8IvEfp2unrO1XJDRSfh+9K9wzOPQowWQ
C/oBOzAgPRw97tprpNRxYTdTSqro13CcUOuLyG9euu+RqslYF47TCoNrW7q4
EKBrqTkUfwbpolwf2TEuyF06aLLjRBias4XmS1fwoOfSM0O59adQpNDytqEU
D8wiijdeXgjFDvfLtvXSPJgS42MovwtF+wGJm71yPABDQ92qzFB0e7nSfF6Z
B8kdp3PDJUPxXL1qmqUBDzz97WfchEKwPBfURl14oK0gHSmpHIhfIr8Iubvz
4O30F7ncsQA0cCzmDJzkwQP+gjL/ewH4WFKyos+XBynG4ZfbtgZgc+ygaXso
D4pTf9ONtfHHdx7Rro8SeDBgYiLVk+iHyzUfZ8eW8uBJT01cno4PWgoEnV8o
58HCj4EDEnPeeOW9ikdkBQ+2BabLPG72RjozWft0DQ9iVLwcnrl5o6LI8Rqf
eh6Us2eXv83ywi2cmV7bVzz4GrguNYLuic5lBvS1izwQZbmq+Gxxxz+Pz0h0
0SiY128TQ353lFj+t/hFAQpKPrPvO/e44VOn3cITwhRYcecbAsPcUEXU7Eel
DAVhfBfP1551RbbnIZ6NNgWfg6j7DQ+dMFDevy3qMAX2j+4ITV1yxOYmnRZd
RwpUz3wqWrbLEZVCSOPIMQr2XNcSKaAcsKsl9KmFKwXyT9Liwo844Jaws9Wy
fhT0+6s7X9Q+gt+fJ9x+EEOBHbOeWs6xw9j4m4z+exRM3xudjr99AFeEC1m5
l1DQfYqjGaF/ALN9A6TZZUv6lz/X/VxvgxXWOwpIJQVXaYFWlSPWyKZ3N/Ij
BX/XxyYYb7ZC61yasHYPBeXzqj6bP5nj61TvrpJeCmJs2sv9r5ijJ6ODueU1
BQWFIkMp2uZ43pOpvWuAglUH5ekR3vuwfIOe9cGPFGCvdunY5F5cVe16Nexf
Co4pSWd8W2uKBXeaHOYWKIhWrLOzaDVBveyNSjE0Ar1pfgmRp0zQMvp7WdIy
AveecMdmmIBRe1O7cyQJ6DreHB6i78aR5yzZelUC7dcdgnscDDGoTm3AXIMA
q1zi+daW7Tj/KPl2uxaBXY+pY7Y7tuPKTAeDXh0CI8fDLO+oGKCFE+U4vp1A
TbU1lyOyFUvG1+ZI2BDwOD6TeWSDHib9Ee82aEuA2WX/2eiQLnra8dRLDxGw
77upIWC3GRVra8sPOBLYXT5sb+i2CZNTTzRf8SDw+u0nkVVlWuht1nDZyYvA
Ju9n1yw7NXHP7IZDm3wJ6DC5jAdEA2c95t61BxDI3d8oPm+ijr4Gv0+JniWw
bI1N7K2VKmjGoVW/PUeAp9TS8dMRZVTK9426d54AJzXv8kfmenwlYihkFUdg
4VfZwYvH1uG+gVeKl1IJTEtXp2uIr8H16cYjR9MJqPyhsC+wUw7nzYuKta4v
+eFjvXEqcxVWlodtac0mkJYR35a3RxZV4mQthIoIdIj1cJtmJHHRMGpF3x0C
QxouvSmLK/AN78OLovsEfM3YmndlxTHNscLZ/CGBqJPMu60hwugvrqC6qnLJ
P5vPGxtrlqNF3YXxsT8J9BcXs/ikluGPDXan4msJWO7y6/iJ8OHb938ZHkEC
Pu95RQrhNPwzQ3lRrZ7A6v7gm/7rFlmBi5+SGlsInKCVNrx5P8Oyqjhqm/EP
AdG4wl9oIdMsdd+nMp6dBL5oNzh5q3xl9Xen5gr0EDh29+XXnHbCqkn4frKn
l0DtLNGKJhxWxk5X7YLXBKyb/KqY9uOs4E/NVOi7pb4tvGIOfB9lWd/eXLln
cClPqrnPqH+YpXE886z0MAE91euzxnyDLH7JReORDwRCPrzR+9b2mjXY4CX4
iE1gp/jJC2ekX7L+juhsY0wQ8DI2t91T9ZyVqbMt9RB3Ka+xsZYis1ZWyMiN
w8qEgCm1WqbvRR3LJktQfmqKQOublS+UsIalZeP//unXpX9k7P0M75WxBPle
FqZ9JzC72Gpi9Owma6hqp5/bHIFXupF5o4WprFq/Al29BQJnFHuHs24FsbKU
xL79+EFAPPW80RR/ae1/18XLbQ==
      "]]}, 
    {GrayLevel[0], Thickness[Tiny], Dashing[{0, Small}], 
     LineBox[CompressedData["
1:eJwBoQNe/CFib1JlAgAAADkAAAACAAAASmXo0cDpVT57c/dQIQvpPwRDGnDf
GTQ/IDQixrkG6T8zn5icsxlEP8P0TDtSAuk/S83Xsp0ZVD8LdqIlg/noP1dk
972SGWQ/m3hN+uTn6D/dL4dDjRl0P7p9o6OoxOg/oBVPhooZhD/6h0/2L37o
P4EIsyeJGZQ/eZynmz7x5z9YWaGv8PGkP61Djfalv+Y/C/+BXEcerz++cLup
TaLlPyVR7ujDi7Q/dHbWR46K5D93zjk/mPS5P2L6JvYYW+M/F7QR3gEBvz8r
BMD84z/iP7biQ8zPPMI/K4yOE/kM4T/Cap0bWezEP6PZkypOv98/9SY9D61t
xz+mppveKo3dPwL5qxAbJco/FnAOs5sr2z82/2C2U67MP0BFEjiN8tg/zIQ0
zsYqzz+2y++SsMTWPx+Q6/mp7tA/mE44Dmhn1D/r99/e1TDSPzTdETqgMtI/
pOq7yg6O0z900KwM2ZzPPw4dp+/k5NQ/GEnpUNXqyj+MabVmoCTWPzDZR/bS
icY/9kCr5Gh/1z8oYnzc+MnBP3QyxLQWw9g/EAWmR0C2uj/frsSL0SHaP5A3
/1ffGrE/+2rUmyl62z8Avfz+FrGePytBB/5mu9w/AKPKYxEFcr9HoiFnsRfe
P+AjGdUuVaW/dx1fIuFc3z/QSpj82pKzvyzsVQvXTeA/gD49N1dOvL8TD/AI
xPrgPzggG3jB48K/0r2Kh0n94D/YiQjKb/XCv5JsJQbP/+A/gPP1Gx4Hw78S
yloD2gThP9DG0L96KsO/EoXF/e8O4T9wbYYHNHHDvxD7mvIbI+E/oLrxlqb+
w78M50Xcc0vhPwBVyLWLGcW/zJXgWvlN4T+ovrUHOivFv4xEe9l+UOE/WCij
Weg8xb8LorDWiVXhP6D7ff1EYMW/Cl0b0Z9f4T84ojNF/qbFvwjT8MXLc+E/
aO+e1HA0xr/IgYtEUXbhPxBZjCYfRsa/iDAmw9Z44T+wwnl4zVfGvweOW8Dh
feE/+JVUHCp7xr8GSca694fhP5g8CmTjwca/xvdgOX2K4T9Apve1kdPGv4am
+7cCjeE/4A/lB0Dlxr8FBDG1DZLhPzDjv6ucCMe/xLLLM5OU4T/QTK39ShrH
v4RhZrIYl+E/cLaaT/krx79EEAExnpnhPyAgiKGnPce/BL+bryOc4T/IiXXz
VU/Hv9o8REjfnuE/iJtfpH9ix789KBgFpqDhPxAnXlf0bse/YVPbLw==
      "]]}, {}}, {{}, {}, {}, {}, {}, {}, {}}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesLabel->{
    FormBox["K", TraditionalForm], 
    FormBox["\"c\"", TraditionalForm]},
  AxesOrigin->{0, 0},
  AxesStyle->Arrowheads[{0., 0.02}],
  Epilog->{
    InsetBox[
     FormBox["\"0\"", TraditionalForm], {-0.01, 0.025}], 
    InsetBox[
     FormBox[
     "\"\\!\\(\\*OverscriptBox[\\(K\\), \\(~\\)]\\)\"", TraditionalForm], {
     0.4, 0.65}], 
    InsetBox[
     FormBox[
     "\"\\!\\(\\*SubscriptBox[\\n StyleBox[\\\"c\\\",\\nFontSize->14], \\n \
StyleBox[\\\"WELF\\\",\\nFontSize->8]]\\)\"", TraditionalForm], {0.45, 0.38}], 
    InsetBox[
     FormBox[
     "\"\\!\\(\\*SubscriptBox[\\n StyleBox[\\\"c\\\",\\nFontSize->14], \\n \
StyleBox[\\\"PROF\\\",\\nFontSize->8]]\\)\"", TraditionalForm], {0.6, 0.28}], 
    InsetBox[
     FormBox[
     "\"\\!\\(\\*OverscriptBox[\\(K\\), \\(^\\)]\\)\"", TraditionalForm], {
     0.17, 0.55}], 
    InsetBox[
     FormBox[
     "\"\\!\\(\\*OverscriptBox[\\n StyleBox[\\\"c\\\",\\nFontSize->14], \\\"~\
\\\"]\\)\"", TraditionalForm], {0.7, -0.12}]},
  LabelStyle->Directive[FontSize -> 8],
  Method->{},
  PlotRange->{{-0.02, 1.05}, {-0.3, 1.1}},
  PlotRangeClipping->True,
  PlotRangePadding->{Automatic, Automatic},
  Ticks->{{{0, 
      FormBox["0", TraditionalForm]}, {1, 
      FormBox["1", TraditionalForm]}}, {{-1, 
      FormBox[
       RowBox[{"-", "1"}], TraditionalForm]}, {1, 
      FormBox["1", TraditionalForm]}}}]], "Output",
 CellChangeTimes->{
  3.7840146624648113`*^9, {3.7840148782778435`*^9, 3.7840149002410707`*^9}, {
   3.7840149404963384`*^9, 3.78401508970527*^9}, {3.7840151328582144`*^9, 
   3.78401520064981*^9}, {3.7840153486336265`*^9, 3.78401545819145*^9}, 
   3.784015531696146*^9, 3.7840156568803496`*^9, 3.784015689712735*^9, 
   3.7840157346115394`*^9, {3.784015792550615*^9, 3.784015803208334*^9}, {
   3.784015992438754*^9, 3.784016025010705*^9}, {3.7840160608004837`*^9, 
   3.7840161710907803`*^9}, {3.784441019057814*^9, 3.784441036967331*^9}, {
   3.7844410690046787`*^9, 3.7844410800789967`*^9}, 3.7844413225677214`*^9, 
   3.7844422336612062`*^9, 3.7844589510063467`*^9, {3.78445898848818*^9, 
   3.7844591018330283`*^9}, {3.784459236314364*^9, 3.7844592765517855`*^9}, {
   3.78445930850459*^9, 3.7844593673568563`*^9}, {3.7844594145596724`*^9, 
   3.784459526910297*^9}, {3.78445959214937*^9, 3.7844596283605757`*^9}, 
   3.784704922075336*^9, 3.784705509659375*^9, 3.784705559407662*^9, {
   3.7847060362157927`*^9, 3.7847060779761815`*^9}, {3.7847062535863757`*^9, 
   3.7847062687853484`*^9}, {3.7847063033032923`*^9, 3.784706355198593*^9}, 
   3.784706514802583*^9, {3.7847099830608363`*^9, 3.784709992627068*^9}, 
   3.784875206716391*^9, 3.784875248596512*^9, {3.7848753454372964`*^9, 
   3.7848753643693776`*^9}, 3.784875397862368*^9, {3.7848754324348307`*^9, 
   3.784875444504295*^9}, 3.7848755493409853`*^9, 3.784876070046502*^9, 
   3.784876203345927*^9, 3.78487630142017*^9, 3.7849001830602207`*^9, 
   3.7849002254006844`*^9, {3.784900313036626*^9, 3.7849003186218767`*^9}, 
   3.7849004029749703`*^9, 3.7849004347626486`*^9, {3.784900481983045*^9, 
   3.784900510317748*^9}, {3.784900577238714*^9, 3.7849006038346777`*^9}, {
   3.7850620090103207`*^9, 3.78506202763557*^9}, {3.7850621646916046`*^9, 
   3.785062186351714*^9}, 3.7850622305869584`*^9, 3.7850632483999615`*^9, 
   3.7850632890656977`*^9, {3.7850633430949554`*^9, 3.7850633514379864`*^9}, 
   3.7850634095722914`*^9, 3.785063510702402*^9, 3.785063545944546*^9, 
   3.7850635858590345`*^9, 3.7850636238395824`*^9, 3.7850636989845057`*^9, {
   3.7850637417967634`*^9, 3.7850637682333665`*^9}, 3.7850638191406918`*^9, 
   3.7850638636182957`*^9, 3.78506395202427*^9, 3.785064049747634*^9, 
   3.785172684467119*^9, {3.785173006967514*^9, 3.7851730319044805`*^9}, 
   3.78517323717583*^9, 3.785227725959699*^9}]
}, Open  ]]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["The Test and figure 3", "Section",
 CellChangeTimes->{{3.7322460658106604`*^9, 3.7322460820496607`*^9}, {
  3.7328870346143274`*^9, 3.732887038616195*^9}, {3.7328873468067913`*^9, 
  3.7328873530875845`*^9}, {3.7657977436244063`*^9, 3.7657977458863564`*^9}, {
  3.767530653500843*^9, 3.7675306535985374`*^9}, {3.78401643163536*^9, 
  3.7840164316558633`*^9}}],

Cell[BoxData[
 RowBox[{"(*", 
  RowBox[{
  "We", " ", "first", " ", "determine", " ", "the", " ", "p1H", " ", "that", 
   " ", "is", " ", "the", " ", "price", " ", "firm", " ", "1", " ", "would", 
   " ", "offer", " ", "if", " ", "the", " ", "buyer", " ", "does", " ", "not",
    " ", "accept", " ", 
   RowBox[{"exclusivity", ".", "\[IndentingNewLine]", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"Note", ":", " ", 
       RowBox[{
       "if", " ", "we", " ", "treated", " ", "p1H", " ", "as", " ", "a", " ", 
        "parameter", " ", "since", " ", "it", " ", "would", " ", "be", " ", 
        "higher", " ", "than", " ", "the", " ", "one", " ", "used", " ", 
        "here"}]}], ",", " ", 
      RowBox[{
      "the", " ", "test", " ", "would", " ", "be", " ", "failed", " ", "a", 
       " ", 
       RowBox[{"fortiori", "."}]}]}], ")"}]}]}], "*)"}]], "Input",
 CellChangeTimes->{{3.71973394581548*^9, 3.71973397646988*^9}, {
  3.7238770855460873`*^9, 3.7238770911967998`*^9}, {3.7238793275910783`*^9, 
  3.723879407459399*^9}, {3.7262061365687647`*^9, 3.726206138836565*^9}, {
  3.7328600742369156`*^9, 3.7328601155409155`*^9}, {3.7328601553009157`*^9, 
  3.732860233660916*^9}, {3.7328901218246636`*^9, 3.7328901729097404`*^9}, {
  3.7650171174052315`*^9, 3.76501717104272*^9}, {3.7852277481607604`*^9, 
  3.785227750282173*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", 
   RowBox[{
    RowBox[{
    "It", " ", "must", " ", "be", " ", "that", " ", "at", " ", "this", " ", 
     "price", " ", "the", " ", "capacity", " ", "constraint", " ", "of", " ", 
     "2", " ", "is", " ", "binding", " ", 
     RowBox[{"(", 
      RowBox[{"see", " ", "later", " ", "why"}], ")"}]}], ":"}], "*)"}], 
  "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"v", "-", 
      RowBox[{"p1", " ", "q1"}], "-", 
      RowBox[{"c", " ", "q2"}]}], "/.", 
     RowBox[{"q2", "\[Rule]", "k"}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{"q1constr", "=", 
    RowBox[{
     RowBox[{"FullSimplify", "[", 
      RowBox[{"Solve", "[", 
       RowBox[{
        RowBox[{
         RowBox[{"D", "[", 
          RowBox[{"%", ",", "q1"}], "]"}], "\[Equal]", "0"}], ",", "q1"}], 
       "]"}], "]"}], "[", 
     RowBox[{"[", 
      RowBox[{"1", ",", "1", ",", "2"}], "]"}], "]"}]}], 
   "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{"(*", 
    RowBox[{
    "and", " ", "the", " ", "indifference", " ", "condition", " ", "for", " ",
      "the", " ", "buyer", " ", 
     RowBox[{"is", ":"}]}], "*)"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"FullSimplify", "[", 
     RowBox[{
      RowBox[{
       RowBox[{"v", "-", 
        RowBox[{"p1", " ", "q1"}], "-", 
        RowBox[{
         RowBox[{"(", "c", ")"}], " ", "q2"}]}], "/.", 
       RowBox[{"q2", "\[Rule]", "k"}]}], "/.", 
      RowBox[{"q1", "->", "q1constr"}]}], "]"}], ";"}], "\[IndentingNewLine]", 
   RowBox[{"Ve2", ";"}], "\[IndentingNewLine]", 
   RowBox[{"FullSimplify", "[", 
    RowBox[{"Solve", "[", 
     RowBox[{
      RowBox[{"%%", "\[Equal]", "%"}], ",", "p1"}], "]"}], "]"}], 
   "\[IndentingNewLine]", 
   RowBox[{"p1HTestconstr", "=", 
    RowBox[{"%", "[", 
     RowBox[{"[", 
      RowBox[{"1", ",", "1", ",", "2"}], "]"}], "]"}]}]}]}]], "Input",
 CellChangeTimes->{{3.71973398246828*^9, 3.7197340673386803`*^9}, {
   3.7238770990970545`*^9, 3.7238771345614834`*^9}, {3.723877271441515*^9, 
   3.7238772744113846`*^9}, {3.732860201749916*^9, 3.732860240206916*^9}, 
   3.7328614088639154`*^9, {3.7650171815466156`*^9, 3.7650172149462514`*^9}}],

Cell[BoxData[
 RowBox[{"1", "-", "p1", "-", 
  RowBox[{"k", " ", "\[Gamma]"}]}]], "Output",
 CellChangeTimes->{
  3.7197340675882797`*^9, 3.7238771349449406`*^9, 3.7242473092362623`*^9, 
   3.724311880454739*^9, 3.724398047590413*^9, 3.724406674973675*^9, 
   3.725864552495533*^9, 3.726206162868765*^9, 3.726227573289364*^9, 
   3.726552021111391*^9, 3.726914471293395*^9, 3.727015589559619*^9, 
   3.727075444722206*^9, 3.727155541395439*^9, 3.7271656414118395`*^9, 
   3.7272466520793104`*^9, 3.7328602154819155`*^9, 3.7328874686810503`*^9, 
   3.7344381515360823`*^9, 3.7344413547663*^9, 3.7646487457917185`*^9, {
   3.7650171901536293`*^9, 3.7650172191600046`*^9}, 3.765509909748787*^9, 
   3.7657756094883595`*^9, 3.7658176208122497`*^9, 3.7840166496546774`*^9, 
   3.7844458807499075`*^9, 3.784706405320649*^9, 3.785062444512452*^9, 
   3.7851732531872864`*^9, 3.785227766592744*^9}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"p1", "\[Rule]", 
     RowBox[{"1", "-", 
      RowBox[{"k", " ", "\[Gamma]"}]}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"p1", "\[Rule]", 
     RowBox[{"1", "-", 
      RowBox[{"k", " ", "\[Gamma]"}]}]}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{
  3.7197340675882797`*^9, 3.7238771349449406`*^9, 3.7242473092362623`*^9, 
   3.724311880454739*^9, 3.724398047590413*^9, 3.724406674973675*^9, 
   3.725864552495533*^9, 3.726206162868765*^9, 3.726227573289364*^9, 
   3.726552021111391*^9, 3.726914471293395*^9, 3.727015589559619*^9, 
   3.727075444722206*^9, 3.727155541395439*^9, 3.7271656414118395`*^9, 
   3.7272466520793104`*^9, 3.7328602154819155`*^9, 3.7328874686810503`*^9, 
   3.7344381515360823`*^9, 3.7344413547663*^9, 3.7646487457917185`*^9, {
   3.7650171901536293`*^9, 3.7650172191600046`*^9}, 3.765509909748787*^9, 
   3.7657756094883595`*^9, 3.7658176208122497`*^9, 3.7840166496546774`*^9, 
   3.7844458807499075`*^9, 3.784706405320649*^9, 3.785062444512452*^9, 
   3.7851732531872864`*^9, 3.7852277666396055`*^9}],

Cell[BoxData[
 RowBox[{"1", "-", 
  RowBox[{"k", " ", "\[Gamma]"}]}]], "Output",
 CellChangeTimes->{
  3.7197340675882797`*^9, 3.7238771349449406`*^9, 3.7242473092362623`*^9, 
   3.724311880454739*^9, 3.724398047590413*^9, 3.724406674973675*^9, 
   3.725864552495533*^9, 3.726206162868765*^9, 3.726227573289364*^9, 
   3.726552021111391*^9, 3.726914471293395*^9, 3.727015589559619*^9, 
   3.727075444722206*^9, 3.727155541395439*^9, 3.7271656414118395`*^9, 
   3.7272466520793104`*^9, 3.7328602154819155`*^9, 3.7328874686810503`*^9, 
   3.7344381515360823`*^9, 3.7344413547663*^9, 3.7646487457917185`*^9, {
   3.7650171901536293`*^9, 3.7650172191600046`*^9}, 3.765509909748787*^9, 
   3.7657756094883595`*^9, 3.7658176208122497`*^9, 3.7840166496546774`*^9, 
   3.7844458807499075`*^9, 3.784706405320649*^9, 3.785062444512452*^9, 
   3.7851732531872864`*^9, 3.7852277666552744`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", 
   RowBox[{
    RowBox[{
    "Note", " ", "that", " ", "the", " ", "buyer", " ", "would", " ", 
     "obtain", " ", "in", " ", "exclusivity", " ", "a", " ", "payoff", " ", 
     "equal", " ", "to", " ", "that", " ", "it", " ", "would", " ", "obtain", 
     " ", "in", " ", "exclusivity", " ", "with", " ", "firm", " ", "2"}], ",",
     " ", 
    RowBox[{"q2", "=", 
     RowBox[{"k", " ", "and", " ", "same", " ", 
      RowBox[{"price", ".", " ", "Hence"}]}]}], ",", " ", 
    RowBox[{
     RowBox[{
     "the", " ", "only", " ", "way", " ", "to", " ", "make", " ", "the", " ", 
      "buyer", " ", "indifferent", " ", "is", " ", "to", " ", "set", " ", "a",
       " ", "p1", " ", "such", " ", "that", " ", "q1"}], "=", "0"}], ",", " ", 
    RowBox[{"which", " ", "is", " ", "what", " ", "p1HTest", " ", 
     RowBox[{"does", "."}]}]}], "*)"}], "\[IndentingNewLine]", 
  RowBox[{"FullSimplify", "[", 
   RowBox[{"Solve", "[", 
    RowBox[{
     RowBox[{"q1constr", "\[Equal]", "0"}], ",", "p1"}], "]"}], 
   "]"}]}]], "Input",
 CellChangeTimes->{{3.723879418665333*^9, 3.723879545017068*^9}, {
  3.732860311348916*^9, 3.7328604229259157`*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"{", 
   RowBox[{"p1", "\[Rule]", 
    RowBox[{"1", "-", 
     RowBox[{"k", " ", "\[Gamma]"}]}]}], "}"}], "}"}]], "Output",
 CellChangeTimes->{3.723879509495566*^9, 3.7242473094007397`*^9, 
  3.7243118806051493`*^9, 3.7243980476840134`*^9, 3.7244066753296237`*^9, 
  3.725864552635933*^9, 3.7262275733829637`*^9, 3.7265520212049913`*^9, 
  3.7269144714191947`*^9, 3.727015589757682*^9, 3.727075444815806*^9, 
  3.7271555415094395`*^9, 3.727165641521039*^9, 3.727246652349928*^9, 
  3.732860413223916*^9, 3.732887475161928*^9, 3.734438151844902*^9, 
  3.734441354949794*^9, 3.7657756308131*^9, 3.765817620909966*^9, 
  3.7847064053984027`*^9, 3.7851732532750535`*^9}]
}, Open  ]],

Cell[BoxData[
 RowBox[{"(*", 
  RowBox[{
   RowBox[{"This", " ", "also", " ", "shows", " ", "that"}], ",", " ", 
   RowBox[{
    RowBox[{
    "it", " ", "must", " ", "be", " ", "that", " ", "the", " ", "quantity", 
     " ", "q2", " ", "associated", " ", "with", " ", "q1"}], "=", 
    RowBox[{
    "0", " ", "must", " ", "be", " ", "binding", " ", "and", " ", "the", " ", 
     "p1H", " ", "determined", " ", "above", " ", "is", " ", "the", " ", 
     "only", " ", "possible", " ", "p1H", " ", "to", " ", "consider", " ", 
     "for", " ", "the", " ", "test"}]}]}], "*)"}]], "Input",
 CellChangeTimes->{{3.7238795584685698`*^9, 3.7238797252834563`*^9}, 
   3.724398372114213*^9, {3.732860425277916*^9, 3.732860486381916*^9}}],

Cell[BoxData[
 RowBox[{"(*", 
  RowBox[{
  "Now", " ", "we", " ", "calculate", " ", "the", " ", "\"\<Required K\>\"", 
   " ", "for", " ", "the", " ", 
   RowBox[{"test", ".", " ", "We"}], " ", "have", " ", "two", " ", 
   RowBox[{"case", ".", " ", "One"}], " ", "in", " ", "which", " ", "the", 
   " ", "equilibrium", " ", "exclusive", " ", "price", " ", "is", " ", 
   "constrained", " ", "and", " ", "the", " ", "other", " ", "when", " ", 
   "it", " ", "is", " ", "not"}], "*)"}]], "Input",
 CellChangeTimes->{{3.732861418161916*^9, 3.7328614394919157`*^9}, {
  3.765017262261693*^9, 3.7650172662440414`*^9}, {3.7650173115517745`*^9, 
  3.7650173323272347`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", 
   RowBox[{
   "The", " ", "required", " ", "K", " ", "with", " ", "the", " ", 
    "constrained", " ", "exclusive", " ", "price"}], "*)"}], 
  "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"qe1", "/.", 
     RowBox[{"p1", "->", "p1econstr"}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{"krconstr", "=", 
    RowBox[{"FullSimplify", "[", 
     RowBox[{"%", "*", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{"p1HTestconstr", "-", "p1econstr"}], ")"}], "/", 
       RowBox[{"(", "p1HTestconstr", ")"}]}]}], "]"}]}]}]}]], "Input",
 CellChangeTimes->{{3.7197345003548803`*^9, 3.7197345801350803`*^9}, {
   3.723877342657971*^9, 3.7238773808250523`*^9}, {3.7328605150859156`*^9, 
   3.7328605305339155`*^9}, {3.732861445650916*^9, 3.7328614540999155`*^9}, {
   3.732864536669916*^9, 3.732864541124916*^9}, {3.765795728758974*^9, 
   3.7657957310986996`*^9}, 3.7657960104675083`*^9}],

Cell[BoxData[
 FractionBox[
  RowBox[{"k", " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{"-", "2"}], "+", 
     RowBox[{"2", " ", "c"}], "+", "k", "+", 
     RowBox[{
      SqrtBox[
       RowBox[{
        RowBox[{"-", "k"}], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", "2"}], "+", 
          RowBox[{"2", " ", "c"}], "+", "k"}], ")"}]}]], " ", "\[Gamma]"}]}], 
    ")"}]}], 
  RowBox[{
   RowBox[{"-", "1"}], "+", 
   RowBox[{"k", " ", "\[Gamma]"}]}]]], "Output",
 CellChangeTimes->{3.71973458055628*^9, 3.7238773820145397`*^9, 
  3.723879734867489*^9, 3.72424730945467*^9, 3.724311880650258*^9, 
  3.7243980477152133`*^9, 3.7244066753912888`*^9, 3.725864552667133*^9, 
  3.726206182249365*^9, 3.7262275734141636`*^9, 3.7265520212361913`*^9, 
  3.7269144714503946`*^9, 3.7270155898454037`*^9, 3.727075444862606*^9, 
  3.7271555415754395`*^9, 3.727165641583439*^9, 3.7272466524399724`*^9, 
  3.732860531799916*^9, 3.732864542494916*^9, 3.732887478820795*^9, 
  3.7344381521727743`*^9, 3.734441355208446*^9, 3.7646488528262978`*^9, 
  3.765017347777897*^9, 3.765775639867959*^9, 3.765796010972196*^9, 
  3.765817621025647*^9, 3.784016656099305*^9, 3.7844458845587826`*^9, 
  3.784706405491376*^9, 3.7850624489843063`*^9, 3.785173253359666*^9, 
  3.7852277750608716`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", 
   RowBox[{
   "In", " ", "the", " ", "following", " ", "dark", " ", "area", " ", "the", 
    " ", "test", " ", "fails"}], "*)"}], "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"krconstr", "/.", 
     RowBox[{"{", 
      RowBox[{"c", "\[Rule]", "0"}], "}"}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{"RegionPlot", "[", 
    RowBox[{
     RowBox[{"k", "<", "%"}], ",", 
     RowBox[{"{", 
      RowBox[{"\[Gamma]", ",", "0", ",", "1"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"k", ",", "0", ",", "1"}], "}"}]}], "]"}]}]}]], "Input",
 CellChangeTimes->{{3.7238774067589364`*^9, 3.7238774784421687`*^9}, {
   3.7238775828033714`*^9, 3.7238776100586796`*^9}, 3.7238799109594245`*^9, {
   3.732860539594916*^9, 3.7328605513099155`*^9}, {3.7646488686789665`*^9, 
   3.764648874583181*^9}, {3.7646491287512245`*^9, 3.7646491323806224`*^9}, {
   3.765017387374902*^9, 3.765017390499542*^9}}],

Cell[BoxData[
 GraphicsBox[GraphicsComplexBox[CompressedData["
1:eJx12DGoFmQUh/HPCKuhwBqaGpL2IPoGIbpG0FLIVQrCyCEIGkT3WuXaUjhc
MIgGhwa7REKbREu2FIRD9IFDSPURiRZ9glOkOPze4YF3Ojzrw3nP+z/n6XdO
H3v3gcVicW7fYnG/Pry399iFl06+qF758ZmjH26+2MJHvnvy9NnN5cFvn/vp
+Hp5ZfATWwf+39n8MHh95+L27urq4MNHXj24Xv48+NPPb95e7q4G3/nvo+93
NtcGH3392fOr7V8H//LGe8/vrq4PPrPv0Gff7Pw2+LkvH9m/Xv4x+Pqb1049
ul4P/vjBvdVy98/BL1z64PCJl/8afOOt1y7ubG4M/uShpx7/6sLNwa98fev9
1fbfg/898e3vd+/+szXz1sof5g/zh/nD/GH+MH+YP8wf5g/zh/nD/GH+MH+Y
P8wf5m/WZ/XWyh/mD/OH+cP8Yf4wf5g/zB/mD/OH+cP8Yf4wf5g/zN/sXbbP
6q2VP8wf5g/zh/nD/GH+MH+YP8wf5g/zh/nD/GH+MH+zOdZ32T6rt1b+MH+Y
P8wf5g/zh/nD/GH+MH+YP8wf5g/zh/mbzf3Osb7L9lm9tfKH+cP8Yf4wf5g/
zB/mD/OH+cP8Yf4wf5i/2T/Zud851nfZPqu3Vv4wf5g/zB/mD/OH+cP8Yf4w
f5g/zB/mb5Yr+k927neO9V22z+qtlT/MH+YP84f5w/xh/jB/mD/MH+YP8zfL
Yc0V/Sc79zvH+i7bZ/XWyh/mD/OH+cP8Yf4wf5g/zB/mD/M3y63NYc0V/Sc7
9zvH+i7bZ/XWyh/mD/OH+cP8Yf4wf5g/zB/mb5bzm1ubw5or+k927neO9V22
z+qtlT/MH+YP84f5w/xh/jB/mL/ZXtSc39zaHNZc0X+yc79zrO+yfVZvrfxh
/jB/mD/MH+YP84f5m+2R3Yua85tbm8OaK/pPdu53jvVdts/qrZU/zB/mD/OH
+cP8Yf5me3f3yO5FzfnNrc1hzRX9Jzv3O8f6Lttn9dbKH+YP84f5w/xh/mZ3
iu7d3SO7FzXnN7c2hzVX9J/s3O8c67tsn9VbK3+YP8wf5g/zN7vr9E7Rvbt7
ZPei5vzm1uaw5or+k537nWN9l+2zemvlD/OH+cP8ze5gvev0TtG9u3tk96Lm
/ObW5rDmiv6TnfudY32X7bN6a+UP84f5m90NewfrXad3iu7d3SO7FzXnN7c2
hzVX9J/s3O8c67tsn9VbK3+Yv9mdtXfD3sF61+mdont398juRc35za3NYc0V
/Sc79zvH+i7bZ/XWyt/sLt07a++GvYP1rtM7Rffu7pHdi5rzm1ubw5or+k92
7neO9V22z+qt9R7ukj26
   "], {{
     {RGBColor[0.798413061722744, 0.824719615472648, 0.968322270542458], 
      EdgeForm[None], GraphicsGroupBox[PolygonBox[CompressedData["
1:eJxFmXfYlcURR9/XDiKK9N57771JRzrCR++9g/QivX3SjBgMapQYFdHYiA0V
iRqMRqOikYgaRcVEiRKjIWLNnuc9+9w/Juvs7M7OmXuBO79UnjB30JzzkiQ5
Fv7n/LCWCJYGY69isILBLg1WKsniFwQraRy/QrACnitt/MJglbxXKFjZYBcF
uzhYGeP45dy7JFhlz14WrFawosGKBasarHCwy4NVMY5fPdgVwYoEq2Ycv4Z7
Vwar6UquOsGKy3dVsPrBGgQr7/sw1DUOXz1XuBvJQL0NZcBvYd3U1dg4+Zq4
VvCN0t5pZk/pTVPj+C3NAWtreeDrbB3U2sY9+Nq61jRWyje6+B41tjIfuToE
q20P2nmPHneSmTc6Gsdvbo2wdTUfPZgUrH+wAcF6yAlHd/nx+/o2HD2Nw93L
ldz9jMN0tX2kB72N4/dxr5VvtpE7z88P1kHB2ss3RB56do08+EPd485Ia+0h
Q1v7Mcx8sA537RZshCt3RnkPpjeCPR3smWBjrRuOMXLiTwk20BrHGYdpvCt9
mmp8cLCJ9gXWCcbxpxmHaborrHOtD6bZMlD7DONwz3TNk6ORn9Ms97gzWibq
nmMO8s4zN9zzXUdbSwf7u8A9uBfaC1hXWwfvL5EHvsXy418nD+eWGuf7tcZ7
1LjCPtKn5cEm6690j96s9Sw92BLsWmtZLw99Wmccf6NsMG0wjr/JPZg2u5Jr
q/kWBftNsO3BdgRb5fsw5BuH73pXuHfJQL07ZcD/pXVT1w3GyfcL1+t8Y5l3
dttTenOjcfw95oD1V/LAd4d1bAu21z34bnHdbGyJvV/k58Znc7P5yHWbPaUH
t3oP/3aZeePXxvPtF98Fvgd3ygD3C8EeDPZQsAeslbrukRmmu+0F/u+sg3P7
je82x145DgS7yV7eaxz/Pvf2+N4t1v6ENf022COyUfvDxvF/Lxv9O2gc/7Fg
+5Ls83/clVxPmu8uV1j5zO/3fRgOGYfvKVe4n5WBeg/LgP9H66auI8bJ9wdX
evOMfeHO8/aU3jxnHP+oOWD9kzzwvW4d/P31crBH5fuz6+PG7vGNu2Tis3nR
fOR61Z7Sg1e8h/+azLzxF+P4y8OPip3BdgQ7JgPcb9kLWP8e7CXreltmmP5q
HP8964DpuHF68IH34Hgnyb5z9PJvxvFPuEdvPvQstf8jyWp6M9hHslH7SeP4
n8hG/z42jn/KPf5N+NSVXP80H3z8oDodln8Fe9f3YfjMOHyfu8L9pQzU+4UM
+P+1buo6Y5x8/3Z9zzeOe+dre0pv/hPsff2z5oD1W3ng+9k6qPWce/B95/qp
sbd9I02z96jxf+Yj1w/2lB587z38n2TmjR+N439jjbCdl2b56EHV8N+Fg10e
7KJgX8lxQZrxw10ozd6G4+I0i8N9SZqt5L4szeIwFUyzPtKDAmkWx780zfbI
xZvn5C6eZp8frFekGQ98RdOMh55dmWY8+MXSbI87ZYJdaO0wfGc/SpgP1pKu
5wcr5QpfWe/BxPeIPyv8OamQZnXDUT7NOPGr+QY1VjQOUyVX+lTdeJFgVdKs
L7BWNo5fwzhMNV1hbRCstEx104yB2msZh7u2a3E5vvR7Wsc97pSTibrrmQPu
huaGu5ErZxu7wtrElR40dYW1hQwwNZcZv50M1NjSON+pVq70rL1xam9jj+hB
a+P4bd0jVwfPwtTd+qirk32Bqas8cHSxd/jd3OPOuGBXB+sTrKP5uN/DfPD1
dG0WrJcrfL1dW5ijhXx9ZaP2a8xLXf1lg2OAK70Z6EoP+nmPc4Pl5P4g4x2s
taVvDA3WOdhVwYbJCXeee/jD3YN7hGt34/Xty0j34B4tM6yj3MMfKzOsY4z3
th8V/bzHWx89mCgP3JNlhnWSe/izrJXapxiHdaorPZhtHI4ZwYbIPc04PZ5j
HL65rjAt8jOmrmutG455xuGb7wr3THNT0wL3uDNBJngWmoO8i81NfIkr3PwG
WpNkvy+Xugf3cnsB60o54dhg3dS1Wk5qWeNKn9a60o/rgk333Hr5ub/OOP4K
3+GNjeaGdbNs9GOTe/hb3INvqyv9W2bt1J3vHtzbZIbvevfwd3gH1u3G8Xe6
R127XOlBmmTzProAWkWlJJvH0TCYp6PmwYoWUNA4czsaRhnPoVtU9j56BjpA
1DzKeg6NobwxNIwq3uFt5m7mczQM5vWoeVT1HHoG837UPKp7LmocxNA4aunD
VNe86AHMtsy/Bay9fJLTOOrKV1+f+pgRo+bB2tA6mMdbJDmNo7H5muqX8WwD
e8EsHzWPZp6DqZW54GCub+371Ng5yWkcbeRpp1/a3JxlzmDeWGAvWpsXZmbT
qHmwtpeN3J1k7uS5yjI1t/au9ovZnVlzsnUwl/eTgXk56h+s3X2feN8kp3f0
tO4B3ucddICoc/T2HL3oY4xaB/l+1COGWSuzf5y/B3sOJmb8qH8M8Ry9zDPW
xRxRBxhh3kb6Xe1dX+uAZ6Tn4BulT33jkpzmMdbPgTqm2q+ocYwz3wT9Xp4d
bS+Y9aPmMdFzME0zFxxoA9OTnAYxL8npGjPkmaXf09ycbSxDtySnm0yTGQ0g
6iWzvT/S3FFTmes58i3wbVjRAfjOMR/xO/9162aOjtoG6yLfZE5fJd9Sz/F9
YqZfJsNqz8GMDhA1jxWem2aOlXKu8U7UKTbJgQ6wVg7m/ahtsK6XYZMxNAxm
2H3yrzUvbFvMC+tWfXjy9aPGkS/PNn1qZf7dYT5m8Jusm9lxV5LTOG6Q+Ub9
FcZ3Wgf3ouax23PLzL1d1j2+AR86QdQtbjYG515jUfvY6+e63hxw3moMNub9
qHncZgy2O5Kc5nG758bZl4XWdac9hSPqAbAxR0dt425j1Micfr9s+z0H6736
1P2A5+BEB4iaxwHPwfOg52B4SD/qFI9ZL3P/QXke9hx8j+jvsZb7ZDtobKcc
sO0z36P6T/gG8Sf1memZfd+Q85Ax2Pgz85R1H/YsdTCPv+DbR5Jsxol6xxH5
n9M/YPywnNyL+sfznttv7qdlO+obMKEZRA3jRWPwoBu8lOR0kJeTnF5zSM5X
jMHD7B/1j1eNcZa/D6L+8ZrnmKWYF3+07jftEb+n+Q3Jb03eY/6N+gfr+zIz
a0f9g/Uta2fWf9eaPvQ+PWDuj7rIce/Tp3eMRZ3ilLUwgzObM8czk/KjCCZm
+ZOynfQNmNAEov7xseeOmSPqA+T42X6c8g6fwQnrOGrtJ+T5zDqOW8dpzzE/
Rv3jC2PUwbz+jffPeI4azxqjd+gAXyU5feSM9aIDMOOjQVBj1CR+8jOKesc5
e3c6yWkzn3uWWpjZ6dcnnv1W/u+9/5HvnJWN3FEX+cFzfM5fWysMzMzkZQ5n
VmWGJS8+8zk8aAJoCvCgE3CHd4gz55OL+Zpz1FXYfPQLnSDqIqyco19oBcSo
Gw2hsGzM68X9/vI9jvoHK+foGbN/1D9Yi/jZowMU9ftEjmJpTu8oIQPzPpoC
PaL2gmlOBykpQ1nP8SazeDVrZfaP+gdrOWsiXtVcFT1HTTW8X8i+Rl2kkuei
3lHDmphN6/t2Q314anku6h34/H+h/J4uYb+r+vnByUxfR556+sXdq53m9I6G
fh7l3PvA7zifVdRBGqU5HaSxbzObt5MJHSDqH6zNrJV4W2tq6Tne7uB9esbs
H3WRVp6jX22MUW9H7/A+s3l3e8Q831m2Tp6Dh9k/6h9dPAdDN2ONzYEf9Q7y
Mucz447182hrHVEH6ZnmdJBe1sd8HPUP1qirMKMP9n5/z0UdpL+cfXyTXvD3
cdRFBnoONmbzIXKgCeT5PjWOkWe4sah3DE9zGg1nK8rQ1F7kmRdmdICohYz0
fi9zR11ktOeod7w9gocZn/mf2ZuZfJ11MI/PkoEZOuofk7yTZ3ymrFM8N9xc
s+0dOkHURaZ6Luodc6yD2XyhdS3Wh2Oe56LegR/1uyb2FC1huqzoAAvs60L9
0e7NT3N6x2I/5wm++az/lvBv2lCZZsiKBrDUN9AvVsmBBrDC+jbYO+6s9lzU
QVbLzNnl9oUeR11kredg22gu6kXv2OT7aBPb5dliLOodW+z7cs9OtN4lMm8y
L8zoHVELyff+UnNHXWSb56Legf7xf71spiQ=
        "]]]}, {}, {}, {}, {}}, 
    {GrayLevel[0], Opacity[0.4], LineBox[CompressedData["
1:eJwt0E1KggEUBdDP/DIrtbSCGjYrsB0U2AIEFd2AGNSkpgmVlb+lZkvQPege
bA+6B9tBR2hw4E4e3PtOqw+l+0gQBHk2WOcjzrmiyA11hkyY8cOSXzYdnXDB
NRXueOaFBq+88U6TFm06dOnxwSd9Bgz5YsQ3T9xSJkeWY0JWeiyYM2XMgEdq
FLjkjEMOyJBmnz1SJEmwyw7bxNkitt5KSPT/X3+owxyq
      "]]}}],
  AspectRatio->1,
  Frame->True,
  Method->{"TransparentPolygonMesh" -> True, "AxesInFront" -> True},
  PlotRange->{{0, 1}, {0, 1}},
  PlotRangeClipping->True,
  PlotRangePadding->{
    Scaled[0.02], 
    Scaled[0.02]}]], "Output",
 CellChangeTimes->{{3.723877461949094*^9, 3.723877478845685*^9}, 
   3.723877583284297*^9, 3.7238797383855715`*^9, 3.7242473098011703`*^9, 
   3.7243118809510565`*^9, 3.7243980479024134`*^9, 3.7244066758801613`*^9, 
   3.725864552854333*^9, 3.7262275736013637`*^9, 3.7265520214233913`*^9, 
   3.726914471623995*^9, 3.7270155901242876`*^9, 3.727075445034206*^9, 
   3.727155541769439*^9, 3.7271656417706394`*^9, 3.7272466527178135`*^9, {
   3.732860536916916*^9, 3.732860552494916*^9}, 3.7344381523051596`*^9, 
   3.734441355264627*^9, 3.76464887541092*^9, 3.7646491330259047`*^9, {
   3.765017387779817*^9, 3.765017397976536*^9}, 3.7657756461228294`*^9, 
   3.7657960166928577`*^9, 3.765817621039609*^9, 3.784706405518381*^9, 
   3.78517325337528*^9, 3.7852277788742685`*^9}]
}, Open  ]],

Cell[BoxData[
 RowBox[{"(*", 
  RowBox[{"As", " ", "explained", " ", "in", " ", "the", " ", 
   RowBox[{"text", ":", " ", 
    RowBox[{"in", " ", "this", " ", "case", " ", 
     RowBox[{"(", 
      RowBox[{
      "with", " ", "the", " ", "cosntrained", " ", "exclusive", " ", 
       "price"}], ")"}], " ", "the", " ", "test", " ", "always", " ", 
     "fails"}]}]}], "*)"}]], "Input",
 CellChangeTimes->{{3.765017401028408*^9, 3.765017426890175*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", 
   RowBox[{"A", " ", "double", " ", "check"}], "*)"}], "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"Solve", "[", 
      RowBox[{
       RowBox[{"krconstr", "==", "k"}], ",", "k"}], "]"}], "/.", 
     RowBox[{"c", "\[Rule]", "0"}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{"Plot", "[", 
    RowBox[{
     RowBox[{"%", "[", 
      RowBox[{"[", 
       RowBox[{"3", ",", "1", ",", "2"}], "]"}], "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"\[Gamma]", ",", "0", ",", "1"}], "}"}]}], "]"}]}]}]], "Input",
 CellChangeTimes->{{3.764649369451745*^9, 3.764649382866509*^9}, {
  3.765017432071351*^9, 3.765017455574469*^9}}],

Cell[BoxData[
 GraphicsBox[{{}, {}, 
   {Hue[0.67, 0.6, 0.6], LineBox[CompressedData["
1:eJwd13k0Vev/B3BDokmIpFmDSkoXN2V6F9JgiJBIdKW5zG5puChCCpWkDEma
FSIlQkWDIWOZjrP3OcZM55inztm/5/v7Y6+9XuuctZ717M/zGR5lF/c9h8VE
REQE5Pnfe9fhzqrC37YGp+mh6SIifEwxmu9BKWnhSqa722UxPjTvx8ZnKhkj
y61ro6QEH6blda8TlGywX4samT2dDzvX0Q83lVzRVlWgoSLPR7N6iNF1JR/k
SkzcPbyajySF3VeuKgVBct60pRus+AiUylwVphSNkLZTDwcf8rHP/kEavz8F
gvHW5q+O/ZjBBDpuX5wG/b10UvvsAay06uv8HJ6FaM9L6R7FAzjzYzNih3LQ
VDpb8DxqEIpZsmxR0QI06Ng8K7ceQjbXqKxC7xN2PgjUvak2jE8nEhbY9xRh
s9vdAFpiBMMq+rNfnv6KMctq/Qc1IxAbfyGzYGUJvPaESZZnjWIjczDb+lUZ
ZoUsUY4KGUNZkNaPL6oViNn0OF3TdhxLorrHn/VVQs83SMLmrwl0j1Lsnxuq
sckmS5I/PoGUrtwS6YgauL6+tii/dBLSi57wWltrcWKjsZt95B9cO/7mSNKK
Xwi9ZDumoCPAyJYXrcf867AxrFSkukUAH42irLmf6/F8i/V3U08hjmgtTbrx
rR7pvevPhnkLsW/jhfCZP+qxvmDlt2JfIXR1tFzEGurhsyt9h845IcQMU2b3
9dXjwrJ9OXKXhYi0CjpRPL8B56x+fAqIFuK5h/FSH68GUDn9NWbZQlCvisKr
lBvxtWpTU8CwEJW9U3o0VjWiyCS4b9+oEIVq28yi1RqRKbE8VH1ciKTnxTPt
tBshHiBjVv9HCJfHX66zzBqRIjYxdd4UBu0J3yI7zjTik9Txst1yDHqvld0S
lDdie8S8ovh1DNilM4ecahqxf8elKGN1Bj+mm9sU1jfC5BWnqmsDg1eh5fKX
Wxqxs8w9Q0OLgUfQj9tS4404MMv1Z5oOg6HzlXfmrGjCZ5cGA+ftDCZP1Mat
OdeEmIHtSyKdGdhsPHBjvX8ThkO7I7sPMkgVbb+iGdSEk1EycSYuDJxiRz31
I5qwo9PRf8yVwcfi+TuskpswK+yyr+kJBiFL/xk6W9IETs/u4pc+DOb86jX7
Np8F6mCA+z+hDE49+NewfAkLRtkt56PCGBSdYrSrV7Bg8dNFMf8qg3/FZZez
1rMwXuc8IX+dQcMGrXGeIQtbrisdzbjB4H74uUeKJ1nI+9h1M+Ueg7VbJYVH
clk4y28X83rBIP35i1X1hSx0e69pCElloCVvabXzCwv5tfMG4l4y0OuITVlb
xUKxSHhXfhoDi+uqpvx2FspvvOnmZTLwajCP9ZNrhvyeHFqQy2DEcOBjl2Iz
6g+5vx3NY3A+NaZ7/6JmWPG3lfI+MAjypwwMVjfDmZnyrLGAQcxKzzYxg2ao
uudrxn1mkOMZrXHteDM22d7D1xIGBk2bHAVuzdi8buOnlFIGn4ybg918iAdG
LgSUMShRVGmw9G9G5u28uxo/GLA+vPVXuN0MSx2LY4FVDESmN5UlFjajirdq
wfc6BtuTlY9mKLKxUz5XnOGS/cZKq3xZyMblv5I1YlsYLI2YbG1UZuP9O/Fy
9VYGE34/XaaosTG/I8DIoY3BS6swJ7stbEjwwjTiO0i8RPttBcfY2K0TOVjT
TdYbbZaXc2NDINtYbN3DoKenpEbFm43W3yKi1cRf6lOsLC+yIXbENON7LwO/
9H3mD2+wERtWOvyIx4ByLjTe+Z6sF1XMkx1kUGb7UtypgI3Bj3I4S/zO9N4n
ryI2DCXmDrOIb2r7bIn/wcaH9uLoB0MMts1ercfjshHOvXNfcYSBhoTCpHgn
G0cVnZU9iRdPir6f18tG1bxRqe/EY+1N2oajbNwcU5/mM8rgRX6k5u0ZFL5Y
C0qyxxjEZl0YeCZDYSDH/6z4OInf8+MZ+QoUZBxmhlsQO8UYqXcuobBoRReb
IpZ1G1XV1aLQ3rEfvAkGwkOtv3dvplD2pVJOfZJBl33VU1cDCjkrnu46TVy0
7YVKxA4KtmmaHa3EZxY5L+M4UjBx+FFV+IeBi+WGvax/KGhO0SgZILa4LHq1
7giFiJ5/Ny4XMFD5/bC/3INC09NTJ/yJ5Rb6rvzuS0E6S0zjBbHAwsS+6BwF
i1PGp38S12Z1Fr4PopBgeM9gpZBBYUfO0JswCiHqd2p3Eb+YH746I4KC3lFZ
thvxpYB1UU9iKTiY2Ji+JnbLFH5OTqCgazstrYrYvr1iNCGZQutF+Ss84g1m
Xs7RqRTc2NMjVBgGC/2NbkVmUDBVbM8HseRr+a9XsykMnRx1sSMeaG2bCM6l
oCDQPneamK34dn1gIYWHTg+mXCIu2RXqcqGYAnVnndht4jcX7WPOlFA4ubzO
6zFxUrpqiVcFBX1e7N5s4mstk4LTtRSeOrq9LCI+O7f8r+MNFA5tsT5TRXxo
Z+JhVzaFK1yjLBaxxQX3u84tFG4J9VzbiXXStpQ7dFLw/qwb0keswpUV3dtL
4WKN/qJhYlmFFi2rAQqexltVJoj/bM86ZjZKIei+cbKAuPNccPz2PxR2c0xu
MMRde9ceeyBCo9Nv++D/fJA/R2yJOI1yM5NvQuJfYX/i4iVo9KcbyfwhNl3e
9vd8KRqZHltKR4kL88or7kyn0fVdf7yfeOPe7OMKs2jUnNa/10WcyksUvzWb
xoLAra84xMvCQhJk5Ghw4sz+riOOXeahHSFP4+n3f9RLiaXz9lXNUKThGBYU
/4E4yHbryTAlGnvK3114RTzet0ZCciENvUmxygRit1C5+0GLaWj0HI0JJ25V
ntwkpkzjQU9PxRniSpuyU4KVNE5GuMWbEpv0ZU09v5qG2bSz6prEeSEJSWOq
NNJNcv9WIn7y3q12UJ3GX+mz4mlyXhba2Ll5atAQtVz35yPxzV5I8bRopN59
UvGA+L+lsnpdm2koSlRXOhIP5Yz/PKpHY1gzRqhNfMKa695mQKNepfm+LLHt
lcyHtBGNMtel+oXkvKv12M6oM6fhkF/ZMp34nY1ZwVVLGjBscf9J8snog6G3
gTWN2rLyNYnEDhHqTY/20TBZdWaVKnHYhmkvfA6R9aSszdRIfsrfZZxWH6Hx
OsB+ZyfJ7yTRETnWMRougbRPMvG7au45IzcaIcsr7WSJ233ydsn50bB+Pba7
gdQTr+bXwuLz5PeWj5+vEAu2PXvt9x+NEzlNRzSI5RVj5nMu0zit5KsbROqR
UY57V1oEjcar4cpypF4lCZZdNU+hsYzJEPwaIPs7omQg+oTGYTNH36PEb3/M
Hsh6RiMg9PTikX7S7+//sV+YRqOi2FlCmliw9dea7hwan9dzVVeTeutwJex7
aAWNswN7xiVI/W7v87+oV02Tuv3rnl8XA0+7f//i19LYPNXHo/s3g9DVh+7a
NdJ4r5f77nsng+wSveMqbSS+dV2fPNpJP5jNlyqaoKE2b133MQ6D6g9XQ3YK
yP49RwxKaRLfUyunVjA0dhkqSagRy5U4iDdO4UDEadXvTjZxcLGAJ82B4Uiy
giWLgczkvYEFyzlQv3t2be0vBjM7trG8TTmYI/ial0X6Y9lt2mHcnAO5A1oF
bd9J/hufb/jPkoOFzRk6CsQzktN/hdlyMGlam+D+lcH0Awuq7jtzcHz9+QVy
RQykavjFpd4cqH2qWytN+vOUgri05fEceObM8m4l/b9Rz3gHlciB/3athAoy
H6S976HvPeDgjo3c1BwyPzhk68vJPeGAznS/feUZg4yXlI/Iaw7mK6q+mfmI
9If45TrNXzkQk9lqURxHzoffi6KYQQ5euSSkd4UwiBi1PrBnhIOqwUveiVdI
ffL9MzxrnIOTMUygZTDJV0/zVcFCDpIDLl5Ou8Tg8DFemPc0Lrbltq6wv0i+
l53mbsslXPyTWr1tvxeDk1q5DdNMuQg8PKa/eD+pH5U/U9+Zc2Fma3H4oT0D
hdN8/6OWXNSqHRtR2ceg4NFKlWJbLub4ltitsSXxU4zyCjjIxcma2ysW7GaQ
O+46Y9SXi+hMuT2ZhuR7FkjrtyZx0ZAr8MhZTfrFTpek/BEuYnUmMjbzhdBS
UzbAOBfXWDccL/YJkS9NNxVMctEszP5U0EPm3ZoDih9FWtBTFfh5y28hhg7Y
R3ye3gIvE5kUTa4QBl6WF74tboGu0Z2dzTXk//cM9lWbtGDw1I4zRmR+Hu6e
L9Me04LNxy0e/XtGiDfW28WjjVvxKtWyro4SwH9H8P2s9lbkGgWGYasAys27
6h8Gt8HUZ4hWiP0DHe2gaCWNdsRFPUooq5mE4+KKcdGadpRe/DJ3yZxJDJdc
53oEdsDz0TVvT50JxE5x8tmzohOprW2OkifHMYf9JlmsiDjWVqYufgwSFwNt
Nnv+RpyzpHZ/7ihEnjmlceW6EJ7Vp+bXNQKve2nX5T51oXOBWLv/tBF8WBsq
JevWjcqkljyB+jBkd3mpXZLugfYELSN3fAisdZU1fnk90HxrvupmzCDSE7Gi
1akX3m43bMLqBnAgbaPsImEvJj3u/fipPICA4AeBrOd9mJrdG7zrUD9edi6K
kzbjwe/dUd3Wt3yEJgQfZFvw8EvWX2U4iw/XPb0rX1nx4J9sETn1NR8L8/LS
ze14WFGg3qiaysfVyP1frrnw8HwoxdYviY9jG+/2T/fj4Xj+3s51YXwsC5Lf
IfmYB8mTTOKwAx/CTRdm1T3l4UiipencfXw09LZUP37Bw4VHPF9tWz6i7DIP
mGTw0PFrmcn53Xwwqnu8g/N4cP3yrFrKmA9WVWSieA0PUzu3Jequ4+PdldFD
NT95YK9K2OCqyke0rvOah/U8KFkf3np9FbkPP1qfZcjmYUGROZtW5uP92fLv
gb954Cy7LxExl4+YdX9HWvXwwD2fGP5+Dh+e3HgbZR4PDaNzozpk+Fhtdooq
HOKh7bGvvNEMcv8WrU2JGuVB5atjtKcUH/Qb3RMHJ3h4yM2/mUTu33knHqpv
EPCgqBU/u5Lcz+8smUHGAB4Kbh38//v7/wHoi4P3
     "]]}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesLabel->{None, None},
  AxesOrigin->{0, 1.},
  Method->{},
  PlotRange->{{0, 1}, {1.0000000386582852`, 1.9999999526113417`}},
  PlotRangeClipping->True,
  PlotRangePadding->{
    Scaled[0.02], 
    Scaled[0.02]}]], "Output",
 CellChangeTimes->{{3.76464937626013*^9, 3.764649383353165*^9}, 
   3.7650174560222282`*^9, 3.7657756538624516`*^9, 3.7657960255372033`*^9, 
   3.7658176210775824`*^9, 3.784706405554351*^9, 3.785173253406542*^9, 
   3.785227789623992*^9}]
}, Open  ]],

Cell[BoxData[
 RowBox[{"(*", 
  RowBox[{
   RowBox[{
   "Now", " ", "we", " ", "study", " ", "the", " ", "other", " ", "case"}], 
   ",", " ", 
   RowBox[{
   "when", " ", "with", " ", "exclusivity", " ", "the", " ", "price", " ", 
    "is", " ", "unconstrained"}], ",", " ", 
   RowBox[{
   "the", " ", "price", " ", "p1H", " ", "must", " ", "be", " ", 
    "recalculated", " ", "also", " ", "because", " ", "in", " ", 
    "exclusivity", " ", "the", " ", "buyer", " ", "obtains", " ", "a", " ", 
    "payoff", " ", "that", " ", "is", " ", "higher", " ", "than", " ", "the", 
    " ", "reservation", " ", "payoff", " ", "with", " ", "firm", " ", "2", 
    " ", "used", " ", "above"}], ",", " ", 
   RowBox[{"Ve2", "."}]}], "*)"}]], "Input",
 CellChangeTimes->{{3.732861557058916*^9, 3.732861580827916*^9}, {
  3.7328616706919155`*^9, 3.7328616911629157`*^9}, {3.7328617243549156`*^9, 
  3.7328617525789156`*^9}, {3.732861808450916*^9, 3.7328618157229156`*^9}, {
  3.7328625238359156`*^9, 3.732862548074916*^9}, {3.765017488916218*^9, 
  3.765017494621952*^9}, {3.7657756642446938`*^9, 3.7657756653736672`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", 
   RowBox[{"First", ",", " ", 
    RowBox[{"in", " ", "common", " ", "representation", " ", 
     RowBox[{"(", 
      RowBox[{"off", "-", "equilibrium"}], ")"}]}], ",", " ", 
    RowBox[{"q2", "\[LessEqual]", 
     RowBox[{"K", " ", "is", " ", "binding"}]}]}], "*)"}], 
  "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"FullSimplify", "[", 
     RowBox[{
      RowBox[{
       RowBox[{"ve1", "-", 
        RowBox[{"p1", " ", "q1"}]}], "/.", 
       RowBox[{"q1", "\[Rule]", 
        RowBox[{"1", "-", "p1"}]}]}], "/.", 
      RowBox[{"p1", "\[Rule]", "p1mon"}]}], "]"}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"FullSimplify", "[", 
     RowBox[{
      RowBox[{
       RowBox[{
        RowBox[{"v", "-", 
         RowBox[{"p1", " ", "q1"}], "-", 
         RowBox[{"p2", " ", "q2"}]}], "/.", 
        RowBox[{"q2", "\[Rule]", "k"}]}], "/.", 
       RowBox[{"p2", "\[Rule]", "c"}]}], "/.", 
      RowBox[{"q1", "\[Rule]", "q1constr"}]}], "]"}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"FullSimplify", "[", 
     RowBox[{"Solve", "[", 
      RowBox[{
       RowBox[{"%", "\[Equal]", "%%"}], ",", "p1"}], "]"}], "]"}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{"N", "[", 
    RowBox[{"%", "/.", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"c", "\[Rule]", "0"}], ",", 
       RowBox[{"\[Gamma]", "\[Rule]", "0.2"}], ",", 
       RowBox[{"k", "\[Rule]", "0.1"}]}], "}"}]}], "]"}], 
   "\[IndentingNewLine]", 
   RowBox[{"p1HMonkbind", "=", 
    RowBox[{"%%", "[", 
     RowBox[{"[", 
      RowBox[{"1", ",", "1", ",", "2"}], "]"}], "]"}]}], 
   "\[IndentingNewLine]", 
   RowBox[{"N", "[", 
    RowBox[{"%", "/.", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"c", "\[Rule]", "0"}], ",", 
       RowBox[{"\[Gamma]", "\[Rule]", "0.2"}], ",", 
       RowBox[{"k", "\[Rule]", "0.1"}]}], "}"}]}], "]"}]}]}]], "Input",
 CellChangeTimes->{{3.727075746457406*^9, 3.727075820370206*^9}, {
  3.727088424886129*^9, 3.727088429519329*^9}, {3.7270884858209286`*^9, 
  3.727088504318529*^9}, {3.732862607572916*^9, 3.732862677811916*^9}, {
  3.7328627108359156`*^9, 3.7328627113879156`*^9}, {3.7328630861239157`*^9, 
  3.732863109610916*^9}, {3.732864454164916*^9, 3.732864461114916*^9}, {
  3.765017512346527*^9, 3.7650175241868463`*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"p1", "\[Rule]", "0.7350510257216822`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"p1", "\[Rule]", "1.2249489742783177`"}], "}"}]}], 
  "}"}]], "Output",
 CellChangeTimes->{{3.727075753337006*^9, 3.727075820588606*^9}, {
   3.727088477487529*^9, 3.7270885050517287`*^9}, 3.727155542524439*^9, 
   3.7271656425038395`*^9, 3.7272512445508857`*^9, {3.732862621482916*^9, 
   3.732862632213916*^9}, 3.732862712008916*^9, 3.7328630887579155`*^9, 
   3.7328874871193886`*^9, 3.734438153250638*^9, 3.7344413560637507`*^9, 
   3.7646489106134577`*^9, {3.765017508114849*^9, 3.765017524966801*^9}, 
   3.7657756756751137`*^9, 3.7658176213069043`*^9, 3.784016665633167*^9, 
   3.784445888720645*^9, 3.784706405715637*^9, 3.785062454409388*^9, 
   3.7851732535627384`*^9, 3.7852277979129515`*^9}],

Cell[BoxData[
 RowBox[{"1", "-", 
  RowBox[{
   FractionBox["1", "2"], " ", 
   SqrtBox[
    RowBox[{"1", "+", 
     RowBox[{"4", " ", "k", " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"-", "2"}], "+", 
        RowBox[{"2", " ", "c"}], "+", "k"}], ")"}]}]}]]}], "-", 
  RowBox[{"k", " ", "\[Gamma]"}]}]], "Output",
 CellChangeTimes->{{3.727075753337006*^9, 3.727075820588606*^9}, {
   3.727088477487529*^9, 3.7270885050517287`*^9}, 3.727155542524439*^9, 
   3.7271656425038395`*^9, 3.7272512445508857`*^9, {3.732862621482916*^9, 
   3.732862632213916*^9}, 3.732862712008916*^9, 3.7328630887579155`*^9, 
   3.7328874871193886`*^9, 3.734438153250638*^9, 3.7344413560637507`*^9, 
   3.7646489106134577`*^9, {3.765017508114849*^9, 3.765017524966801*^9}, 
   3.7657756756751137`*^9, 3.7658176213069043`*^9, 3.784016665633167*^9, 
   3.784445888720645*^9, 3.784706405715637*^9, 3.785062454409388*^9, 
   3.7851732535627384`*^9, 3.7852277979129515`*^9}],

Cell[BoxData["0.7350510257216822`"], "Output",
 CellChangeTimes->{{3.727075753337006*^9, 3.727075820588606*^9}, {
   3.727088477487529*^9, 3.7270885050517287`*^9}, 3.727155542524439*^9, 
   3.7271656425038395`*^9, 3.7272512445508857`*^9, {3.732862621482916*^9, 
   3.732862632213916*^9}, 3.732862712008916*^9, 3.7328630887579155`*^9, 
   3.7328874871193886`*^9, 3.734438153250638*^9, 3.7344413560637507`*^9, 
   3.7646489106134577`*^9, {3.765017508114849*^9, 3.765017524966801*^9}, 
   3.7657756756751137`*^9, 3.7658176213069043`*^9, 3.784016665633167*^9, 
   3.784445888720645*^9, 3.784706405715637*^9, 3.785062454409388*^9, 
   3.7851732535627384`*^9, 3.785227797928631*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", 
   RowBox[{
    RowBox[{
    "Now", " ", "we", " ", "can", " ", "calculate", " ", "the", " ", 
     "\"\<Required K\>\"", " ", "for", " ", "the", " ", "test", " ", "and", 
     " ", "plot", " ", 
     RowBox[{"it", ".", "\[IndentingNewLine]", "First"}], " ", "when", " ", 
     "in", " ", "the", " ", "common", " ", "representation", " ", 
     RowBox[{"(", 
      RowBox[{"off", "-", "Equilibrium"}], ")"}], " ", "q2"}], "=", "K"}], 
   "*)"}], "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"qe1", "/.", 
     RowBox[{"p1", "\[Rule]", "p1mon"}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"%", "*", "p1mon"}], "-", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"k", "*", "c"}], "+", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{"%", "-", "k"}], ")"}], "p1HMonkbind"}], "+", "0"}], 
       ")"}]}], "/.", 
     RowBox[{"{", 
      RowBox[{"c", "\[Rule]", "0"}], "}"}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"ContourPlot", "[", 
     RowBox[{"%", ",", 
      RowBox[{"{", 
       RowBox[{"\[Gamma]", ",", "0", ",", "1"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"k", ",", "0", ",", "1.2"}], "}"}], ",", 
      RowBox[{"Contours", "\[Rule]", 
       RowBox[{"{", "0", "}"}]}]}], "]"}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"kpe1constr", "/.", 
     RowBox[{"c", "\[Rule]", "0"}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"Plot", "[", 
     RowBox[{"%", ",", 
      RowBox[{"{", 
       RowBox[{"\[Gamma]", ",", "0", ",", "1"}], "}"}], ",", 
      RowBox[{"PlotStyle", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{"Red", ",", "Thick"}], "}"}]}]}], "]"}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{"Show", "[", 
    RowBox[{"%%%", ",", "%"}], "]"}]}]}]], "Input",
 CellChangeTimes->{{3.7646506293243003`*^9, 3.764650666186776*^9}, {
  3.764650956825467*^9, 3.764650981925432*^9}, {3.7650175669374638`*^9, 
  3.765017567396274*^9}, {3.7650176239359584`*^9, 3.7650176761233253`*^9}, {
  3.7650178149409056`*^9, 3.7650178153318987`*^9}}],

Cell[BoxData[
 GraphicsBox[{GraphicsComplexBox[CompressedData["
1:eJxlljtvE0EUhRcaOgok6AOGn5DWHYmpEC0FEhIVSUBI0PITIIuQ6JCiUNHw
WoOAIlhRUHiI4EAgtvOwjeO8bAeJFoJnJvesz9nIkvXl7s7MuffcuR66fO3C
lcNRFB09FEXuW//iXKH/eZZnLoGrxfH+56PEy2Afri6BK+Ef4H/77m8NPOnf
b4BPOYx/gRP/+gZ4xG+4BV726++Ar/oDdsDhb084ik5c+n380u8kb3qZS2DT
y/Ey2PQam15j02tseo1Nr7HpNTa9xqbX2PQam14+71T+/JGb/c/MgZ434HDc
OXB4fwHsX4+/gUf9gsvgMb/gisTr4JCPpjzfAof8tMF3/Ybb4JN+/105bxds
+oLeR3mu7yM8z/E9sNWf9UcRr1+S/H2U/ctyviXRXxW9a2Dzg7H5wdj8YGx+
MDY/GJsfWM9eJl/cr13p5ynxd1f8FB/wffjJ8smcwF9cjznx64LUZwFx85/F
mRP40eLMCfxpceYEfuX369LPTcSZE/iZ129J/7cRZ07gd4szJ/C/xZntfupJ
PXqoA/dDGg9+eHLAj/G8Mfu5iLjVX5n9NiP7z8h9Mot4yPd8hu35CR/4jLh/
Pfc1w9yfi4iH43/PsD3vy7H/A/HQj5UMc3/WEA/9uZph1ruOePBHPcOc7wbi
wS/NDPN920I8+Gcjw3wftREPftrMMN/XW4i/8OfbzjDfbzuIn/Xn62SY7/uu
+K8n9ezJ/RRn5rv525j9twe/m5/1vrfnzZ/qP/WX+kf9ofXX+mr9tD6af82v
5s/4nFvvz8Ow75l3+dPu++xrcM0tNzIHPuO+x76A/faj38D+PJWfYL//2ArY
9cf0/jrY6Z8fbYJdP3QmW2A3v45V22A3v4Zz22A3vy6O74LddreLXbDNa+YS
2OYzx8usrz+fSV9/PpO+/nwe1Ofm86A+N58H9bn5PKjPzedBfW4+D+pz89nY
/En8YJr1DD3l89x/C37llk/egb0frr3n9SofwN7PhQWw/97/yvmqpfX3/pxc
4vxNLIO9P09VOZ/RKp+nuMb1LNRJ33CuQfqm49Q/494Pvyj/89UWr1fcoHp0
cpviz02qz7GJbV5vdIfqNfxyl9eb7PB5oh644P3c4/zeukHx+PpzzletxPk8
9Inrda/M9Tn9g+vxsip610VfQ/Sk+fP9FaX999fXI/XrHZ//NB9DPt+p/tBP
U9Jvb6S/5lhPJH6LxV858VNxReKpX+z3Fz+f+sF+X5H/Cmm97fcTn7cr540i
1vdY9Mfy/Iycd57rn0v7y35/8P1SkftkVfTVRV9T9G2IvtTvNp+Nbf6yvp7k
oyj1mmV/9+chv79I/ejmId+XNVlvXfZrSP5aUu+25GNL8rEj+Ujr+R//qkJ1

    "], 
    {RGBColor[0.293416, 0.0574044, 0.529412], EdgeForm[None], 
     GraphicsGroupBox[PolygonBox[CompressedData["
1:eJxNlnm41VUZhfdhFkFlSlBITFEJDJCZC2ggEF4ZZRKokBJkEFESJZwiBNQG
FUeQRNO0bLQ50zQbpczMcsicbbS0zHlqvc9+feyP9/nts+/+7bP3+tb6zt1/
8UkzV7UopVzQKKVlnocGPncKzaFN6BYmlPr3zmFSaBW6hMmhdegapoS24V1h
dtg97BOmhXZh7zAj7Ba6h2NC+9AjnBHWh1FhbugQ9g0Lwh6hV/hgGBgGhMXh
uDAoLA1LwuBwbOgYeoYTw8owNKwOJ4VhYU04JQwPa8OpYURYF04PI713s3c7
O5wVmsK5YWMYoyad1GtL2BzGhvPDh8Lh4X1qupe6dVbHaerUVg27qGmzWrZW
z26eZYb6tVO37uo4W/3ae/d91W6BGnRUr17qONeaUJuPhnFhv3BC+EDYP6wI
R4X3hFXh6HBA+EiYGHqH5WFZGBJODlPDgeFjYXroE04LM8NBYVEY71nODHPC
IeGcMC/0DZ8M88N7w6awMPQL5/lu/3BkOEJNx/mkBh/2b+j9fr+H+37W7x7o
945Sr4u8/2HefbC1WeGdunjfQe6PDkOtDXccbv244whr8/FSvdNdTYZZP+7Y
pO4bwifCaO872ppNUn/OcJx36/R/99xLHcZay0PVoYV3He/8p9ShoRZHupaz
zQoHl+pN1r87XFBqrtAMX05wz4mOOc8SPzNu5Vlbet5JarXMz4zxzuTyjo8n
+94E9+nk3FGuX+mY9dSdbOHd+WqEPtsd4w1yfLTakuOp5Z0skZk2zk1xfoqf
WU9+prmW/Mxwbrrze/uc7runOmYen871PDN9l1qf7mfG5PAY957luIfPWa6Z
4Xr2JIezfW+O4318zvHdsxwz38Ez8F6zOnR1bp5ryPyxriUDC5yb73xPn/O9
y0bHzC90PV7CE3hjgHMLXbPZMWs+7Zo9w2dK9Ra+Gu/47cySz4bzi1xDtvA6
fhjnmF400DUDnFvs/IWlZrK368kvuTjeMWsmuoY916t5D//OOvJO1vF0Z9cv
cU98yG8GfQ8vn+Caix3TG+kNeL2La5Y5z3O5Y7y8wjVbHbPnUL+jq2tWOk8N
VzmP1+gveI/+gde7uYbxAT5XO77Edxnj8ZNdT386xX2mOj7Q5xrHl7qe8WV+
bx+/q9l96G1kAK/iQ34L6dv4F9/T20c67u7ate7DmtN8l7+vc/0VpfYjetEo
69TDOiy1FrNcw56Xu89Bzq/3XZ5nOL6y1P7O2Zo8K1mY45h58nGO8/Rd+jD+
3+Z8X9ef6Xnmuaavzw2Op3vPPs7Pcx/6Flnq6fe9EX5Vas8mM738O/9D0MfI
0CbXX+W4n/ObHZMh/p/o79wW58nRee65w3F/dbrcupFL+vuejsnqQPckq/x/
sqjU30jySG7IGLkks/yWHFGq98kAucHLeJoc4Dv8h6/xEX7Cs/gIP+HBv4XP
l+ox6kntR6r3NmtFvm8Jz5fa47dbn03qMsb77VBLPHJreKFUL/80vFJq/n4U
Xiw1x3eEl0rNyp3h5VK9+fPwaql+/GV4rVQf7QqvW+ffhDet1W/DW2r/u0Aj
Iwe/tsbU5/dMZ/4Pef6n1D7zQPiKuj0Yvqpu94cvqzN9if9F6GMPha+p5x/D
19Xz4fAN9bw9/KXUvvFI+KZ6Phq+VWqeHgvfVtvHw3fU84nwXfV8MnxPPX8Q
niq1f/4wPF1qBm8Lfy61p/04/LXUPkMf/Vz4b/hZ+HupWfhF+EepOb0rPFNq
Nn9Sqg/wAHn4Z6n5uCc8W2oW7g3Plert+8K/S/Xz3eFfpeYOb14dWjRqRq/0
vnhzZ2jZqOfd6Znx2hfCbo2aietDu0b17LWhdaN6Fn+2adT9bgjtG9WDXwwd
GtWDXwodM/5TnjeXmi/8e2PYvVH9fl1o26g+vSns0ah1vsVa44Vb9cPT3qW3
vsC3Q6z/HXqA+t+pB6j5Ndb9KfXfz5pca13wCFnAJ1td36pRz03NuQe/8xvV
HO/gf/yDX/BzkzW83jriqV3q/Ix6HmwNb7COz6oVe+I1sjPaut1o7fAdORrj
vmQOv+BBMoUPv19qjg63/jfpAe5Jb8Cn5ArfkbPnrEs/603ub1Mjcn+7upB7
/Iv/6BP4Eb/SA97273XOcTd6wF2emx5wt/XDd/d7T/rBPX43/eBez0oPuM8a
48cHrAe+eNgaU5MHrTEefMga40Fyj7fa6TVqg38fsQZ481H1xZuPqyk1fkId
8d2T1hJvPlaqBxd7D7y23LPgtRM9C15b7Vnw6VLv0bvUXktvwF9rvBN9dK3n
xUfrPC9+vETt8dTZngVfbPDseOFcz079t3h26n++HsDjx1t/snKhZ9lZauap
OR7fas3J8aXWGY8c5vt4mfzjO/x7hXXGv2T+EOt/mR7As9usP/66yjrjxx3W
+XnPhaZ4f7u+eMEzot3NaoQ+L3re5XphuN/3umfh9+c1z4iOL6sf9XjFO6H7
G54XTd/yO9ERD/ZTx13uh1/e9B7o/qr3o2b4tL9a4+tB6os3h6gp3hxqLfHm
MPXFmyPUFD+OUkd8OlJ98f5g64QHm9QUz45Wr5esG/7Ds2PV939KmMMX
       "]]]}], {{}, {}, 
    {RGBColor[1, 0, 0], Thickness[Large], LineBox[CompressedData["
1:eJxTTMoPSmViYGAwAWIQ7ZX64uKBl6F2EWfnxYmoHbRfIOrf1iXZYg/jN3Js
Vu+UnALnR0QuXP/h4xI4n/t/Y4y73Ho4XzXw3YvD3Vvg/PJzlvYzvuyE88W3
CN5jZNwP52975HzmvM0hOP9Q1lzpyDdH4Pyvarb8a3OPw/lMP1cLSKuegvPN
/idsC153Bs4/02Jy7pjWeThffsLrnyvfXYDzX3+/f++qwSU4f8mr3af4+i7D
+Xyyy98/eXIFzu/J3Jq2QOUanP/NYfWTjPrrcH6J0ZEtYodvwPn31x3pvqh4
C87/nXVltmbVbThf25H9X9ruO3C++yLF9I3i9xDhJRuv9DDmPpyv8yaU+7rv
AzhfmP8Dx5FfCD7L/tnrlec8hPOzTXbf5PR+BOev9kxasO8bgv/1tZTAs2mP
4fytwe7MU1yewPn1Hq3ztzxD8BXvet1Y3PoUzrcyb5kiafQMzo+RO/+T8TKC
//VU76OCxudw/gyWuJIglRcI99/buojpCILPWtsYYln4Es5nWBm3/pHQKzi/
aNb6XqFDCP5e7Q4OwbzXcL6gV5FOE98bOP+O7oXLlXsQ/A3z7FWexL2F82PX
mwnK/kPwG1oXNt5Z9Q7OX/tCdjafz3s4X6lFxIN9GYI/XZ776///CD4AkL+C
dw==
      "]]}}},
  AspectRatio->1,
  Frame->True,
  Method->{},
  PlotRange->{{0, 1}, {0, 1.2}},
  PlotRangeClipping->True,
  PlotRangePadding->{
    Scaled[0.02], 
    Scaled[0.02]}]], "Output",
 CellChangeTimes->{{3.7646506489348173`*^9, 3.7646506667970552`*^9}, {
   3.7646509651819925`*^9, 3.764650982188757*^9}, 3.7650175680215635`*^9, {
   3.7650176456638575`*^9, 3.7650176768943*^9}, 3.7657756802768335`*^9, 
   3.7658176213936663`*^9, 3.7840166689594812`*^9, 3.784445890833946*^9, 
   3.784706405753557*^9, 3.7851732536063557`*^9, 3.7852278017517743`*^9}]
}, Open  ]],

Cell[BoxData[
 RowBox[{"(*", 
  RowBox[{
   RowBox[{
   "Also", " ", "in", " ", "this", " ", "case", " ", "the", " ", "test", " ", 
    "always", " ", 
    RowBox[{"fails", ".", "\[IndentingNewLine]", "We"}], " ", "can", " ", 
    "conlude"}], ",", " ", 
   RowBox[{
   "as", " ", "discussed", " ", "in", " ", "the", " ", "paper", " ", "that", 
    " ", "the", " ", "test", " ", "always", " ", 
    RowBox[{"fails", "."}]}]}], "*)"}]], "Input",
 CellChangeTimes->{{3.765017681426138*^9, 3.7650177042770386`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", 
   RowBox[{
    RowBox[{
    "Now", " ", "we", " ", "can", " ", "calculate", " ", "the", " ", 
     "\"\<Required K\>\"", " ", "for", " ", "the", " ", "test", " ", "and", 
     " ", "plot", " ", 
     RowBox[{"it", ".", "\[IndentingNewLine]", "First"}], " ", "when", " ", 
     "in", " ", "the", " ", "common", " ", "representation", " ", 
     RowBox[{"(", 
      RowBox[{"off", "-", "Equilibrium"}], ")"}], " ", "q2"}], "=", "K"}], 
   "*)"}], "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"qe1", "/.", 
     RowBox[{"p1", "\[Rule]", "p1mon"}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"%", "*", "p1mon"}], "-", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"k", "*", "c"}], "+", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"%", "-", "k"}], ")"}], "p1HMonkbind"}], "+", "0"}], ")"}]}],
     ";"}], "\[IndentingNewLine]", 
   RowBox[{"kpe1constr", ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{"Manipulate", "[", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"Show", "[", 
      RowBox[{
       RowBox[{"ContourPlot", "[", 
        RowBox[{"%%", ",", 
         RowBox[{"{", 
          RowBox[{"\[Gamma]", ",", "0", ",", "1"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"k", ",", "0", ",", "1"}], "}"}], ",", 
         RowBox[{"Contours", "\[Rule]", 
          RowBox[{"{", "0", "}"}]}]}], "]"}], ",", "\[IndentingNewLine]", 
       RowBox[{"Plot", "[", 
        RowBox[{"%", ",", 
         RowBox[{"{", 
          RowBox[{"\[Gamma]", ",", "0", ",", "1"}], "}"}], ",", 
         RowBox[{"PlotStyle", "\[Rule]", 
          RowBox[{"{", 
           RowBox[{"Red", ",", "Thick"}], "}"}]}]}], "]"}]}], "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"c", ",", "0", ",", "1"}], "}"}]}], "]"}]}]}]], "Input",
 CellChangeTimes->{{3.765017877024794*^9, 3.76501798950887*^9}}],

Cell[BoxData[
 TagBox[
  StyleBox[
   DynamicModuleBox[{$CellContext`c$$ = 0, Typeset`show$$ = True, 
    Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", 
    Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = 
    "\"untitled\"", Typeset`specs$$ = {{
      Hold[$CellContext`c$$], 0, 1}}, Typeset`size$$ = {486., {238., 246.}}, 
    Typeset`update$$ = 0, Typeset`initDone$$, Typeset`skipInitDone$$ = 
    True, $CellContext`c$49517$$ = 0}, 
    DynamicBox[Manipulate`ManipulateBoxes[
     1, StandardForm, "Variables" :> {$CellContext`c$$ = 0}, 
      "ControllerVariables" :> {
        Hold[$CellContext`c$$, $CellContext`c$49517$$, 0]}, 
      "OtherVariables" :> {
       Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$, 
        Typeset`animator$$, Typeset`animvar$$, Typeset`name$$, 
        Typeset`specs$$, Typeset`size$$, Typeset`update$$, Typeset`initDone$$,
         Typeset`skipInitDone$$}, "Body" :> Show[
        ContourPlot[
        Rational[1, 4] - $CellContext`c$$ $CellContext`k - (
          Rational[1, 2] - $CellContext`k) (1 + 
          Rational[-1, 2] (1 + 
             4 $CellContext`k (-2 + 2 $CellContext`c$$ + $CellContext`k))^
            Rational[
             1, 2] - $CellContext`k $CellContext`\[Gamma]), {$CellContext`\
\[Gamma], 0, 1}, {$CellContext`k, 0, 1}, Contours -> {0}], 
        Plot[
        1 - $CellContext`c$$ + 
         Rational[-1, 2] (3 + 4 (-2 + $CellContext`c$$) $CellContext`c$$)^
           Rational[1, 2], {$CellContext`\[Gamma], 0, 1}, 
         PlotStyle -> {Red, Thick}]], 
      "Specifications" :> {{$CellContext`c$$, 0, 1}}, "Options" :> {}, 
      "DefaultOptions" :> {}],
     ImageSizeCache->{551., {301., 308.}},
     SingleEvaluation->True],
    Deinitialization:>None,
    DynamicModuleValues:>{},
    SynchronousInitialization->True,
    UnsavedVariables:>{Typeset`initDone$$},
    UntrackedVariables:>{Typeset`size$$}], "Manipulate",
   Deployed->True,
   StripOnInput->False],
  Manipulate`InterpretManipulate[1]]], "Output",
 CellChangeTimes->{{3.765017921074936*^9, 3.765017958845891*^9}, 
   3.765017990769492*^9, 3.7650180283329782`*^9, 3.7657756920773754`*^9, 
   3.765817621413698*^9, 3.784016673650432*^9, 3.784445893652413*^9, 
   3.784706405774327*^9, 3.7851732536232257`*^9, 3.7852278100355415`*^9}]
}, Open  ]],

Cell[BoxData[
 RowBox[{"(*", 
  RowBox[{
   RowBox[{
   "Now", " ", "we", " ", "generate", " ", "figure", " ", "3", " ", "with", 
    " ", "the", " ", "second", " ", "source", " ", "of", " ", "asymmetry"}], 
   ",", " ", 
   RowBox[{
    RowBox[{"i", ".", "e", ".", " ", "that"}], " ", "referring", " ", "to", 
    " ", "marginal", " ", "cost"}], ",", " ", 
   RowBox[{"c", "."}]}], "*)"}]], "Input",
 CellChangeTimes->{{3.765775779459795*^9, 3.7657758147465734`*^9}, {
   3.765776482671138*^9, 3.76577650258785*^9}, {3.765776543654048*^9, 
   3.7657765684317303`*^9}, 3.7657935764007645`*^9, 3.7657968271040125`*^9}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"cpe1constr", "=", 
  RowBox[{
   RowBox[{"Solve", "[", 
    RowBox[{
     RowBox[{"kpe1constr", "\[Equal]", "k"}], ",", "c"}], "]"}], "[", 
   RowBox[{"[", 
    RowBox[{"1", ",", "1", ",", "2"}], "]"}], "]"}]}]], "Input",
 CellChangeTimes->{{3.7657892472871256`*^9, 3.7657892759424815`*^9}}],

Cell[BoxData[
 FractionBox[
  RowBox[{
   RowBox[{"-", "1"}], "+", 
   RowBox[{"8", " ", "k"}], "-", 
   RowBox[{"4", " ", 
    SuperscriptBox["k", "2"]}]}], 
  RowBox[{"8", " ", "k"}]]], "Output",
 CellChangeTimes->{{3.7657892566740417`*^9, 3.7657892762057905`*^9}, 
   3.7657936117572355`*^9, 3.7658176214325275`*^9, 3.784706405793353*^9, 
   3.785173253670082*^9, 3.785227816655054*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", 
   RowBox[{
   "First", " ", "we", " ", "see", " ", "the", " ", "case", " ", "of", " ", 
    "exclusive", " ", "constrained", " ", 
    RowBox[{"price", ":"}]}], "*)"}], "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"tmp", "=", 
    RowBox[{"FullSimplify", "[", 
     RowBox[{"Solve", "[", 
      RowBox[{
       RowBox[{"krconstr", "\[Equal]", "k"}], ",", "c"}], "]"}], "]"}]}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{
      RowBox[{"tmp", "[", 
       RowBox[{"[", 
        RowBox[{"1", ",", "1", ",", "2"}], "]"}], "]"}], ",", 
      RowBox[{"tmp", "[", 
       RowBox[{"[", 
        RowBox[{"2", ",", "1", ",", "2"}], "]"}], "]"}], ",", "cpe1constr"}], 
     "}"}], ";"}], "\[IndentingNewLine]", 
   RowBox[{"Manipulate", "[", 
    RowBox[{
     RowBox[{"Plot", "[", 
      RowBox[{"%", ",", 
       RowBox[{"{", 
        RowBox[{"k", ",", "0", ",", "1"}], "}"}], ",", 
       RowBox[{"PlotRange", "\[Rule]", 
        RowBox[{"{", 
         RowBox[{"0", ",", "1"}], "}"}]}]}], "]"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"\[Gamma]", ",", "0.5"}], "}"}], ",", "0", ",", "1"}], 
      "}"}]}], "]"}], "\[IndentingNewLine]", 
   RowBox[{"cTESTconstr", "=", 
    RowBox[{"tmp", "[", 
     RowBox[{"[", 
      RowBox[{"1", ",", "1", ",", "2"}], "]"}], "]"}]}]}]}]], "Input",
 CellChangeTimes->{{3.7657765920945663`*^9, 3.7657766769445267`*^9}, {
   3.765789034995672*^9, 3.765789122508584*^9}, {3.765789224478115*^9, 
   3.7657892356113377`*^9}, 3.7657892838134184`*^9, {3.7657893434708605`*^9, 
   3.765789349167624*^9}, {3.7657961877636895`*^9, 3.765796197284227*^9}, {
   3.7657968605565424`*^9, 3.765796861137987*^9}, {3.7658018345011425`*^9, 
   3.7658018479817615`*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"c", "\[Rule]", 
     RowBox[{
      FractionBox["1", "4"], " ", 
      RowBox[{"(", 
       RowBox[{"2", "-", 
        SqrtBox[
         RowBox[{"k", " ", 
          SuperscriptBox["\[Gamma]", "2"], " ", 
          RowBox[{"(", 
           RowBox[{"4", "+", 
            RowBox[{"k", " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"-", "4"}], "+", "\[Gamma]"}], ")"}], " ", 
             "\[Gamma]"}]}], ")"}]}]], "-", 
        RowBox[{"k", " ", 
         RowBox[{"(", 
          RowBox[{"2", "+", 
           RowBox[{
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", "2"}], "+", "\[Gamma]"}], ")"}], " ", 
            "\[Gamma]"}]}], ")"}]}]}], ")"}]}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"c", "\[Rule]", 
     RowBox[{
      FractionBox["1", "4"], " ", 
      RowBox[{"(", 
       RowBox[{"2", "+", 
        SqrtBox[
         RowBox[{"k", " ", 
          SuperscriptBox["\[Gamma]", "2"], " ", 
          RowBox[{"(", 
           RowBox[{"4", "+", 
            RowBox[{"k", " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"-", "4"}], "+", "\[Gamma]"}], ")"}], " ", 
             "\[Gamma]"}]}], ")"}]}]], "-", 
        RowBox[{"k", " ", 
         RowBox[{"(", 
          RowBox[{"2", "+", 
           RowBox[{
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", "2"}], "+", "\[Gamma]"}], ")"}], " ", 
            "\[Gamma]"}]}], ")"}]}]}], ")"}]}]}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{
  3.76577660500988*^9, {3.765776645399681*^9, 3.765776669306133*^9}, {
   3.765789023951182*^9, 3.7657891228357067`*^9}, 3.7657892254315643`*^9, 
   3.765789284066785*^9, 3.7657893494578495`*^9, 3.765793625390767*^9, 
   3.7657960446630497`*^9, 3.765796197747026*^9, 3.765817621667938*^9, 
   3.7840166965198607`*^9, 3.784445896693325*^9, 3.7847064059580035`*^9, 
   3.785062460220533*^9, 3.7851732538419247`*^9, 3.785227820146222*^9}],

Cell[BoxData[
 TagBox[
  StyleBox[
   DynamicModuleBox[{$CellContext`\[Gamma]$$ = 0.5, Typeset`show$$ = True, 
    Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", 
    Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = 
    "\"untitled\"", Typeset`specs$$ = {{{
       Hold[$CellContext`\[Gamma]$$], 0.5}, 0, 1}}, Typeset`size$$ = {
    486., {156., 165.}}, Typeset`update$$ = 0, Typeset`initDone$$, 
    Typeset`skipInitDone$$ = True, $CellContext`\[Gamma]$50237$$ = 0}, 
    DynamicBox[Manipulate`ManipulateBoxes[
     1, StandardForm, "Variables" :> {$CellContext`\[Gamma]$$ = 0.5}, 
      "ControllerVariables" :> {
        Hold[$CellContext`\[Gamma]$$, $CellContext`\[Gamma]$50237$$, 0]}, 
      "OtherVariables" :> {
       Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$, 
        Typeset`animator$$, Typeset`animvar$$, Typeset`name$$, 
        Typeset`specs$$, Typeset`size$$, Typeset`update$$, Typeset`initDone$$,
         Typeset`skipInitDone$$}, "Body" :> 
      Plot[{Rational[1, 4] (
          2 - ($CellContext`k $CellContext`\[Gamma]$$^2 (
            4 + $CellContext`k (-4 + $CellContext`\[Gamma]$$) $CellContext`\
\[Gamma]$$))^
          Rational[1, 2] - $CellContext`k (
           2 + (-2 + $CellContext`\[Gamma]$$) $CellContext`\[Gamma]$$)), 
         Rational[1, 4] (
          2 + ($CellContext`k $CellContext`\[Gamma]$$^2 (
             4 + $CellContext`k (-4 + $CellContext`\[Gamma]$$) $CellContext`\
\[Gamma]$$))^Rational[1, 2] - $CellContext`k (
           2 + (-2 + $CellContext`\[Gamma]$$) $CellContext`\[Gamma]$$)), 
         Rational[1, 8] $CellContext`k^(-1) (-1 + 8 $CellContext`k - 
          4 $CellContext`k^2)}, {$CellContext`k, 0, 1}, PlotRange -> {0, 1}], 
      "Specifications" :> {{{$CellContext`\[Gamma]$$, 0.5}, 0, 1}}, 
      "Options" :> {}, "DefaultOptions" :> {}],
     ImageSizeCache->{551., {219., 226.}},
     SingleEvaluation->True],
    Deinitialization:>None,
    DynamicModuleValues:>{},
    SynchronousInitialization->True,
    UnsavedVariables:>{Typeset`initDone$$},
    UntrackedVariables:>{Typeset`size$$}], "Manipulate",
   Deployed->True,
   StripOnInput->False],
  Manipulate`InterpretManipulate[1]]], "Output",
 CellChangeTimes->{
  3.76577660500988*^9, {3.765776645399681*^9, 3.765776669306133*^9}, {
   3.765789023951182*^9, 3.7657891228357067`*^9}, 3.7657892254315643`*^9, 
   3.765789284066785*^9, 3.7657893494578495`*^9, 3.765793625390767*^9, 
   3.7657960446630497`*^9, 3.765796197747026*^9, 3.765817621667938*^9, 
   3.7840166965198607`*^9, 3.784445896693325*^9, 3.7847064059580035`*^9, 
   3.785062460220533*^9, 3.7851732538419247`*^9, 3.78522782019312*^9}],

Cell[BoxData[
 RowBox[{
  FractionBox["1", "4"], " ", 
  RowBox[{"(", 
   RowBox[{"2", "-", 
    SqrtBox[
     RowBox[{"k", " ", 
      SuperscriptBox["\[Gamma]", "2"], " ", 
      RowBox[{"(", 
       RowBox[{"4", "+", 
        RowBox[{"k", " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"-", "4"}], "+", "\[Gamma]"}], ")"}], " ", "\[Gamma]"}]}], 
       ")"}]}]], "-", 
    RowBox[{"k", " ", 
     RowBox[{"(", 
      RowBox[{"2", "+", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", "2"}], "+", "\[Gamma]"}], ")"}], " ", "\[Gamma]"}]}], 
      ")"}]}]}], ")"}]}]], "Output",
 CellChangeTimes->{
  3.76577660500988*^9, {3.765776645399681*^9, 3.765776669306133*^9}, {
   3.765789023951182*^9, 3.7657891228357067`*^9}, 3.7657892254315643`*^9, 
   3.765789284066785*^9, 3.7657893494578495`*^9, 3.765793625390767*^9, 
   3.7657960446630497`*^9, 3.765796197747026*^9, 3.765817621667938*^9, 
   3.7840166965198607`*^9, 3.784445896693325*^9, 3.7847064059580035`*^9, 
   3.785062460220533*^9, 3.7851732538419247`*^9, 3.78522782019312*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", 
   RowBox[{
    RowBox[{
    "Now", " ", "we", " ", "see", " ", "the", " ", "monopoly", " ", "price", 
     " ", "case", " ", "when", " ", "in", " ", "common", " ", 
     "representation", " ", 
     RowBox[{"(", 
      RowBox[{"off", "-", "equilibrium"}], ")"}]}], ",", " ", 
    RowBox[{"q2", "\[LessEqual]", 
     RowBox[{"K", " ", "is", " ", "binding"}]}]}], "*)"}], 
  "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"v", "-", 
      RowBox[{"p1", " ", "q1"}], "-", 
      RowBox[{"q2", " ", "p2"}]}], "/.", 
     RowBox[{"q2", "\[Rule]", "k"}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{"q1rationed", "=", 
    RowBox[{
     RowBox[{"FullSimplify", "[", 
      RowBox[{"Solve", "[", 
       RowBox[{
        RowBox[{
         RowBox[{"D", "[", 
          RowBox[{"%", ",", "q1"}], "]"}], "\[Equal]", "0"}], ",", "q1"}], 
       "]"}], "]"}], "[", 
     RowBox[{"[", 
      RowBox[{"1", ",", "1", ",", "2"}], "]"}], "]"}]}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"FullSimplify", "[", 
     RowBox[{
      RowBox[{
       RowBox[{"ve1", "-", 
        RowBox[{"p1", " ", "q1"}]}], "/.", 
       RowBox[{"q1", "\[Rule]", "q1mon"}]}], "/.", 
      RowBox[{"p1", "\[Rule]", "p1mon"}]}], "]"}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"FullSimplify", "[", 
     RowBox[{
      RowBox[{
       RowBox[{
        RowBox[{"v", "-", 
         RowBox[{"p1", " ", "q1"}], "-", 
         RowBox[{"p2", " ", "q2"}]}], "/.", 
        RowBox[{"q2", "\[Rule]", "k"}]}], "/.", 
       RowBox[{"p2", "\[Rule]", "c"}]}], "/.", 
      RowBox[{"q1", "\[Rule]", "q1rationed"}]}], "]"}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"FullSimplify", "[", 
     RowBox[{"Solve", "[", 
      RowBox[{
       RowBox[{"%", "\[Equal]", "%%"}], ",", "p1"}], "]"}], "]"}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{"N", "[", 
    RowBox[{"%", "/.", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"c", "\[Rule]", "0"}], ",", 
       RowBox[{"\[Gamma]", "\[Rule]", "0.2"}], ",", 
       RowBox[{"k", "\[Rule]", "0.1"}]}], "}"}]}], "]"}], 
   "\[IndentingNewLine]", 
   RowBox[{"p1HMonkbind", "=", 
    RowBox[{"%%", "[", 
     RowBox[{"[", 
      RowBox[{"1", ",", "1", ",", "2"}], "]"}], "]"}]}], 
   "\[IndentingNewLine]", 
   RowBox[{"N", "[", 
    RowBox[{"%", "/.", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"c", "\[Rule]", "0"}], ",", 
       RowBox[{"\[Gamma]", "\[Rule]", "0.2"}], ",", 
       RowBox[{"k", "\[Rule]", "0.1"}]}], "}"}]}], "]"}]}]}]], "Input",
 CellChangeTimes->{
  3.732973153877777*^9, {3.7329731893808765`*^9, 3.7329732078085613`*^9}, {
   3.732973664858488*^9, 3.7329736852584877`*^9}, {3.7657936881139774`*^9, 
   3.765793694834005*^9}, {3.7657962430867248`*^9, 3.7657962872416286`*^9}, 
   3.784016809869736*^9, {3.7840177979231005`*^9, 3.7840177981730423`*^9}}],

Cell[BoxData[
 RowBox[{"1", "-", "p1", "-", 
  RowBox[{"k", " ", "\[Gamma]"}]}]], "Output",
 CellChangeTimes->{{3.732973194364873*^9, 3.7329732083516703`*^9}, 
   3.734440880822835*^9, 3.740070844883551*^9, 3.7403814592024145`*^9, 
   3.740573355556923*^9, 3.740741108057844*^9, 3.740801331585121*^9, 
   3.740827432575783*^9, 3.76284497057504*^9, 3.7636436724463573`*^9, 
   3.765796258191326*^9, 3.7658176218823633`*^9, 3.7658604586746664`*^9, 
   3.784017803832308*^9, 3.7844458992973194`*^9, 3.7847064059855967`*^9, 
   3.7850624638733983`*^9, 3.7851732539043927`*^9, 3.7852278246312857`*^9}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"p1", "\[Rule]", "0.7350510257216822`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"p1", "\[Rule]", "1.2249489742783177`"}], "}"}]}], 
  "}"}]], "Output",
 CellChangeTimes->{{3.732973194364873*^9, 3.7329732083516703`*^9}, 
   3.734440880822835*^9, 3.740070844883551*^9, 3.7403814592024145`*^9, 
   3.740573355556923*^9, 3.740741108057844*^9, 3.740801331585121*^9, 
   3.740827432575783*^9, 3.76284497057504*^9, 3.7636436724463573`*^9, 
   3.765796258191326*^9, 3.7658176218823633`*^9, 3.7658604586746664`*^9, 
   3.784017803832308*^9, 3.7844458992973194`*^9, 3.7847064059855967`*^9, 
   3.7850624638733983`*^9, 3.7851732539043927`*^9, 3.7852278247718773`*^9}],

Cell[BoxData[
 RowBox[{"1", "-", 
  RowBox[{
   FractionBox["1", "2"], " ", 
   SqrtBox[
    RowBox[{"1", "+", 
     RowBox[{"4", " ", "k", " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"-", "2"}], "+", 
        RowBox[{"2", " ", "c"}], "+", "k"}], ")"}]}]}]]}], "-", 
  RowBox[{"k", " ", "\[Gamma]"}]}]], "Output",
 CellChangeTimes->{{3.732973194364873*^9, 3.7329732083516703`*^9}, 
   3.734440880822835*^9, 3.740070844883551*^9, 3.7403814592024145`*^9, 
   3.740573355556923*^9, 3.740741108057844*^9, 3.740801331585121*^9, 
   3.740827432575783*^9, 3.76284497057504*^9, 3.7636436724463573`*^9, 
   3.765796258191326*^9, 3.7658176218823633`*^9, 3.7658604586746664`*^9, 
   3.784017803832308*^9, 3.7844458992973194`*^9, 3.7847064059855967`*^9, 
   3.7850624638733983`*^9, 3.7851732539043927`*^9, 3.7852278247718773`*^9}],

Cell[BoxData["0.7350510257216822`"], "Output",
 CellChangeTimes->{{3.732973194364873*^9, 3.7329732083516703`*^9}, 
   3.734440880822835*^9, 3.740070844883551*^9, 3.7403814592024145`*^9, 
   3.740573355556923*^9, 3.740741108057844*^9, 3.740801331585121*^9, 
   3.740827432575783*^9, 3.76284497057504*^9, 3.7636436724463573`*^9, 
   3.765796258191326*^9, 3.7658176218823633`*^9, 3.7658604586746664`*^9, 
   3.784017803832308*^9, 3.7844458992973194`*^9, 3.7847064059855967`*^9, 
   3.7850624638733983`*^9, 3.7851732539043927`*^9, 3.7852278247718773`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"q1mon", "/.", 
   RowBox[{"p1", "\[Rule]", "p1mon"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{"tmp", "=", 
  RowBox[{"Solve", "[", 
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"k", "*", "0"}], "+", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{"%", "-", "k"}], ")"}], "p1HMonkbind"}], "+", "0", "-", 
      RowBox[{"(", 
       RowBox[{"%", "*", "p1mon"}], ")"}]}], "\[Equal]", "0"}], ",", "c"}], 
   "]"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"cTestmon", "=", 
   RowBox[{"tmp", "[", 
    RowBox[{"[", 
     RowBox[{"1", ",", "1", ",", "2"}], "]"}], "]"}]}], ";"}]}], "Input",
 CellChangeTimes->{{3.726988357328991*^9, 3.726988464220191*^9}, 
   3.726988512236991*^9, 3.727266320968094*^9, {3.732972712029488*^9, 
   3.732972782204488*^9}, 3.732973236466292*^9, 3.732973627155488*^9, {
   3.7400722937561464`*^9, 3.7400723872256513`*^9}, {3.7400734392299027`*^9, 
   3.7400734432004595`*^9}, {3.740114069881284*^9, 3.7401140836609297`*^9}, {
   3.765793708757765*^9, 3.765793722601737*^9}, {3.7657937600156717`*^9, 
   3.7657937693457174`*^9}, {3.7657952133624225`*^9, 
   3.7657952196087165`*^9}, {3.765796545546974*^9, 3.765796583239007*^9}, {
   3.7840178134765854`*^9, 3.784017814712676*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"{", 
   RowBox[{"c", "\[Rule]", 
    FractionBox[
     RowBox[{"1", "-", 
      RowBox[{"6", " ", "k"}], "+", 
      RowBox[{"12", " ", 
       SuperscriptBox["k", "2"]}], "-", 
      RowBox[{"4", " ", 
       SuperscriptBox["k", "3"]}], "-", "\[Gamma]", "+", 
      RowBox[{"6", " ", "k", " ", "\[Gamma]"}], "-", 
      RowBox[{"8", " ", 
       SuperscriptBox["k", "2"], " ", "\[Gamma]"}], "+", 
      RowBox[{"k", " ", 
       SuperscriptBox["\[Gamma]", "2"]}], "-", 
      RowBox[{"4", " ", 
       SuperscriptBox["k", "2"], " ", 
       SuperscriptBox["\[Gamma]", "2"]}], "+", 
      RowBox[{"4", " ", 
       SuperscriptBox["k", "3"], " ", 
       SuperscriptBox["\[Gamma]", "2"]}]}], 
     RowBox[{"2", " ", 
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{
         RowBox[{"-", "1"}], "+", 
         RowBox[{"2", " ", "k"}]}], ")"}], "2"]}]]}], "}"}], "}"}]], "Output",
 CellChangeTimes->{{3.765796551079214*^9, 3.7657965836319923`*^9}, 
   3.7658176219042997`*^9, {3.7840178079687557`*^9, 3.7840178151815596`*^9}, 
   3.784445902556669*^9, 3.784706406160316*^9, 3.7850624836173553`*^9, 
   3.78517325406182*^9, 3.7852278275990357`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{"cTESTconstr", "\[IndentingNewLine]", 
 RowBox[{"cpe1constr", ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"q1mon", "/.", 
   RowBox[{"p1", "\[Rule]", "p1mon"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"%", "*", "p1mon"}], "-", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{"k", "*", "0"}], "+", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"%", "-", "k"}], ")"}], "p1HMonkbind"}], "+", "0"}], ")"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"Manipulate", "[", 
  RowBox[{
   RowBox[{"Show", "[", 
    RowBox[{
     RowBox[{"ContourPlot", "[", 
      RowBox[{"%", ",", 
       RowBox[{"{", 
        RowBox[{"k", ",", "0", ",", "1"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"c", ",", "0", ",", "1.1"}], "}"}], ",", 
       RowBox[{"Contours", "->", 
        RowBox[{"{", "0", "}"}]}]}], "]"}], ",", "\[IndentingNewLine]", 
     RowBox[{"Plot", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"%%%", ",", 
         RowBox[{"1", "-", "k"}], ",", "%%%%"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"k", ",", "0", ",", "1.1"}], "}"}], ",", 
       RowBox[{"PlotStyle", "\[Rule]", 
        RowBox[{"{", "Red", "}"}]}]}], "]"}]}], "]"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"\[Gamma]", ",", "0.5"}], "}"}], ",", "0", ",", "1"}], "}"}]}], 
  "]"}]}], "Input",
 CellChangeTimes->{{3.7400720399651966`*^9, 3.7400721312368803`*^9}, {
   3.7400721810824413`*^9, 3.740072211963564*^9}, {3.740072468741439*^9, 
   3.74007251728353*^9}, {3.74007297315242*^9, 3.7400729739014444`*^9}, {
   3.740073084442377*^9, 3.740073127255234*^9}, {3.740073293926479*^9, 
   3.7400732996236353`*^9}, {3.762845408838872*^9, 3.762845509066807*^9}, {
   3.765793749816949*^9, 3.765793808478056*^9}, {3.765793839016378*^9, 
   3.7657938870628753`*^9}, {3.7657941311689963`*^9, 
   3.7657941366892323`*^9}, {3.765795237090958*^9, 3.7657952453937516`*^9}, {
   3.7657953048986025`*^9, 3.765795355916154*^9}, 3.7657965719571805`*^9, {
   3.7840178201572104`*^9, 3.7840178208096933`*^9}}],

Cell[BoxData[
 RowBox[{
  FractionBox["1", "4"], " ", 
  RowBox[{"(", 
   RowBox[{"2", "-", 
    SqrtBox[
     RowBox[{"k", " ", 
      SuperscriptBox["\[Gamma]", "2"], " ", 
      RowBox[{"(", 
       RowBox[{"4", "+", 
        RowBox[{"k", " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"-", "4"}], "+", "\[Gamma]"}], ")"}], " ", "\[Gamma]"}]}], 
       ")"}]}]], "-", 
    RowBox[{"k", " ", 
     RowBox[{"(", 
      RowBox[{"2", "+", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", "2"}], "+", "\[Gamma]"}], ")"}], " ", "\[Gamma]"}]}], 
      ")"}]}]}], ")"}]}]], "Output",
 CellChangeTimes->{{3.740072193616767*^9, 3.7400722125671773`*^9}, {
   3.740072475543523*^9, 3.740072517795896*^9}, 3.7400730886135025`*^9, 
   3.7400733010153294`*^9, 3.740381460467809*^9, 3.74074110953763*^9, 
   3.740801333330766*^9, 3.7408274342181797`*^9, 3.7628449760284543`*^9, 
   3.7628454402229347`*^9, {3.7628454974169645`*^9, 3.7628455094068966`*^9}, 
   3.7636436733110666`*^9, {3.7657937781421905`*^9, 3.765793808676524*^9}, 
   3.765793839694603*^9, 3.7657938875176954`*^9, 3.765794136864763*^9, 
   3.765795245866522*^9, {3.765795305259637*^9, 3.7657953562542477`*^9}, 
   3.7657961386973004`*^9, 3.7657962700915003`*^9, 3.7657965724737988`*^9, 
   3.7658176219122744`*^9, 3.7840178214835224`*^9, 3.7844459051117735`*^9, 
   3.7847064061732655`*^9, 3.7851732540774145`*^9, 3.7852278296701713`*^9}],

Cell[BoxData[
 TagBox[
  StyleBox[
   DynamicModuleBox[{$CellContext`\[Gamma]$$ = 0.5, Typeset`show$$ = True, 
    Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", 
    Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = 
    "\"untitled\"", Typeset`specs$$ = {{{
       Hold[$CellContext`\[Gamma]$$], 0.5}, 0, 1}}, Typeset`size$$ = {
    486., {238., 246.}}, Typeset`update$$ = 0, Typeset`initDone$$, 
    Typeset`skipInitDone$$ = True, $CellContext`\[Gamma]$51471$$ = 0}, 
    DynamicBox[Manipulate`ManipulateBoxes[
     1, StandardForm, "Variables" :> {$CellContext`\[Gamma]$$ = 0.5}, 
      "ControllerVariables" :> {
        Hold[$CellContext`\[Gamma]$$, $CellContext`\[Gamma]$51471$$, 0]}, 
      "OtherVariables" :> {
       Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$, 
        Typeset`animator$$, Typeset`animvar$$, Typeset`name$$, 
        Typeset`specs$$, Typeset`size$$, Typeset`update$$, Typeset`initDone$$,
         Typeset`skipInitDone$$}, "Body" :> Show[
        ContourPlot[
        Rational[1, 4] - (Rational[1, 2] - $CellContext`k) (1 + 
          Rational[-1, 2] (1 + 
             4 $CellContext`k (-2 + 2 $CellContext`c + $CellContext`k))^
            Rational[
             1, 2] - $CellContext`k $CellContext`\[Gamma]$$), {$CellContext`k,
           0, 1}, {$CellContext`c, 0, 1.1}, Contours -> {0}], 
        Plot[{
         Rational[1, 8] $CellContext`k^(-1) (-1 + 8 $CellContext`k - 
           4 $CellContext`k^2), 1 - $CellContext`k, 
          Rational[1, 4] (
           2 - ($CellContext`k $CellContext`\[Gamma]$$^2 (
             4 + $CellContext`k (-4 + $CellContext`\[Gamma]$$) $CellContext`\
\[Gamma]$$))^
           Rational[1, 2] - $CellContext`k (
            2 + (-2 + $CellContext`\[Gamma]$$) $CellContext`\[Gamma]$$))}, \
{$CellContext`k, 0, 1.1}, PlotStyle -> {Red}]], 
      "Specifications" :> {{{$CellContext`\[Gamma]$$, 0.5}, 0, 1}}, 
      "Options" :> {}, "DefaultOptions" :> {}],
     ImageSizeCache->{551., {301., 308.}},
     SingleEvaluation->True],
    Deinitialization:>None,
    DynamicModuleValues:>{},
    SynchronousInitialization->True,
    UnsavedVariables:>{Typeset`initDone$$},
    UntrackedVariables:>{Typeset`size$$}], "Manipulate",
   Deployed->True,
   StripOnInput->False],
  Manipulate`InterpretManipulate[1]]], "Output",
 CellChangeTimes->{{3.740072193616767*^9, 3.7400722125671773`*^9}, {
   3.740072475543523*^9, 3.740072517795896*^9}, 3.7400730886135025`*^9, 
   3.7400733010153294`*^9, 3.740381460467809*^9, 3.74074110953763*^9, 
   3.740801333330766*^9, 3.7408274342181797`*^9, 3.7628449760284543`*^9, 
   3.7628454402229347`*^9, {3.7628454974169645`*^9, 3.7628455094068966`*^9}, 
   3.7636436733110666`*^9, {3.7657937781421905`*^9, 3.765793808676524*^9}, 
   3.765793839694603*^9, 3.7657938875176954`*^9, 3.765794136864763*^9, 
   3.765795245866522*^9, {3.765795305259637*^9, 3.7657953562542477`*^9}, 
   3.7657961386973004`*^9, 3.7657962700915003`*^9, 3.7657965724737988`*^9, 
   3.7658176219122744`*^9, 3.7840178214835224`*^9, 3.7844459051117735`*^9, 
   3.7847064061732655`*^9, 3.7851732540774145`*^9, 3.785227829717002*^9}]
}, Open  ]],

Cell[BoxData[
 RowBox[{"(*", 
  RowBox[{
  "The", " ", "white", " ", "area", " ", "is", " ", "the", " ", "one", " ", 
   "where", " ", "the", " ", "unconstrained", " ", "pricing", " ", "occurs", 
   " ", "in", " ", "exclusivity"}], "*)"}]], "Input",
 CellChangeTimes->{{3.7400728107906365`*^9, 3.7400728576583033`*^9}, {
  3.7400732644891996`*^9, 3.7400732655019054`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", 
   RowBox[{"The", " ", "relevant", " ", "boundaries", " ", 
    RowBox[{"are", ":"}]}], "*)"}], "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"cpe1constr", ";"}], "\[IndentingNewLine]", 
   RowBox[{"cq2k", ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"cTEST", "=", 
     RowBox[{"Min", "[", 
      RowBox[{"cTESTconstr", ",", "cTestmon"}], "]"}]}], ";"}], 
   "\[IndentingNewLine]", "cTESTconstr", "\[IndentingNewLine]", "cTestmon", 
   "\[IndentingNewLine]", 
   RowBox[{"Manipulate", "[", 
    RowBox[{
     RowBox[{"Plot", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"%", ",", 
         RowBox[{"1", "-", "k"}], ",", "%%", ",", "%%%", ",", "%%%%", ",", 
         "%%%%%"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"k", ",", "0", ",", "1"}], "}"}], ",", 
       RowBox[{"PlotRange", "\[Rule]", 
        RowBox[{"{", 
         RowBox[{"0", ",", "1"}], "}"}]}]}], "]"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"\[Gamma]", ",", "0.2"}], "}"}], ",", "0", ",", "1"}], 
      "}"}]}], "]"}]}]}]], "Input",
 CellChangeTimes->{{3.726988694148591*^9, 3.726988769746191*^9}, {
   3.726989344962191*^9, 3.726989383244591*^9}, {3.7272663886568985`*^9, 
   3.7272664217264986`*^9}, {3.732972789818488*^9, 3.732972803477488*^9}, {
   3.7329732807061377`*^9, 3.732973285330063*^9}, {3.7329735456883082`*^9, 
   3.7329735461693563`*^9}, {3.7329735793726764`*^9, 3.7329735831470537`*^9}, 
   3.7400714607374763`*^9, {3.7400724030006504`*^9, 3.7400724263517027`*^9}, {
   3.740073132385877*^9, 3.7400731376569405`*^9}, {3.740073471647107*^9, 
   3.7400734962816257`*^9}, {3.740073611596332*^9, 3.740073611904185*^9}, {
   3.7401142199156427`*^9, 3.740114239282143*^9}, {3.7405733711032915`*^9, 
   3.7405733782001762`*^9}, {3.765793920175313*^9, 3.765793967429928*^9}, {
   3.765793998380149*^9, 3.765794007121769*^9}, {3.7657965964227643`*^9, 
   3.765796653552947*^9}, {3.765796725453643*^9, 3.7657967516179075`*^9}, {
   3.784292010399729*^9, 3.7842920171897492`*^9}, {3.784445925574066*^9, 
   3.7844459397785068`*^9}, {3.784706764614173*^9, 3.784706770305128*^9}, {
   3.7847071649768467`*^9, 3.7847071725528793`*^9}, {3.785062518394098*^9, 
   3.785062527068447*^9}}],

Cell[BoxData[
 RowBox[{
  FractionBox["1", "4"], " ", 
  RowBox[{"(", 
   RowBox[{"2", "-", 
    SqrtBox[
     RowBox[{"k", " ", 
      SuperscriptBox["\[Gamma]", "2"], " ", 
      RowBox[{"(", 
       RowBox[{"4", "+", 
        RowBox[{"k", " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"-", "4"}], "+", "\[Gamma]"}], ")"}], " ", "\[Gamma]"}]}], 
       ")"}]}]], "-", 
    RowBox[{"k", " ", 
     RowBox[{"(", 
      RowBox[{"2", "+", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", "2"}], "+", "\[Gamma]"}], ")"}], " ", "\[Gamma]"}]}], 
      ")"}]}]}], ")"}]}]], "Output",
 CellChangeTimes->{{3.7657966451295156`*^9, 3.7657966540476604`*^9}, {
   3.76579674109505*^9, 3.765796754982936*^9}, 3.7658176219362116`*^9, 
   3.784017825378011*^9, 3.7842920176317267`*^9, {3.7844459083461266`*^9, 
   3.784445940275962*^9}, 3.784706406201649*^9, 3.784706770419463*^9, {
   3.78470717028671*^9, 3.7847071734025517`*^9}, 3.7850624892299566`*^9, 
   3.785062527724866*^9, 3.785173254227172*^9, 3.7852278351492186`*^9}],

Cell[BoxData[
 FractionBox[
  RowBox[{"1", "-", 
   RowBox[{"6", " ", "k"}], "+", 
   RowBox[{"12", " ", 
    SuperscriptBox["k", "2"]}], "-", 
   RowBox[{"4", " ", 
    SuperscriptBox["k", "3"]}], "-", "\[Gamma]", "+", 
   RowBox[{"6", " ", "k", " ", "\[Gamma]"}], "-", 
   RowBox[{"8", " ", 
    SuperscriptBox["k", "2"], " ", "\[Gamma]"}], "+", 
   RowBox[{"k", " ", 
    SuperscriptBox["\[Gamma]", "2"]}], "-", 
   RowBox[{"4", " ", 
    SuperscriptBox["k", "2"], " ", 
    SuperscriptBox["\[Gamma]", "2"]}], "+", 
   RowBox[{"4", " ", 
    SuperscriptBox["k", "3"], " ", 
    SuperscriptBox["\[Gamma]", "2"]}]}], 
  RowBox[{"2", " ", 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", "1"}], "+", 
      RowBox[{"2", " ", "k"}]}], ")"}], "2"]}]]], "Output",
 CellChangeTimes->{{3.7657966451295156`*^9, 3.7657966540476604`*^9}, {
   3.76579674109505*^9, 3.765796754982936*^9}, 3.7658176219362116`*^9, 
   3.784017825378011*^9, 3.7842920176317267`*^9, {3.7844459083461266`*^9, 
   3.784445940275962*^9}, 3.784706406201649*^9, 3.784706770419463*^9, {
   3.78470717028671*^9, 3.7847071734025517`*^9}, 3.7850624892299566`*^9, 
   3.785062527724866*^9, 3.785173254227172*^9, 3.7852278351492186`*^9}],

Cell[BoxData[
 TagBox[
  StyleBox[
   DynamicModuleBox[{$CellContext`\[Gamma]$$ = 0.2, Typeset`show$$ = True, 
    Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", 
    Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = 
    "\"untitled\"", Typeset`specs$$ = {{{
       Hold[$CellContext`\[Gamma]$$], 0.2}, 0, 1}}, Typeset`size$$ = {
    486., {156., 165.}}, Typeset`update$$ = 0, Typeset`initDone$$, 
    Typeset`skipInitDone$$ = True, $CellContext`\[Gamma]$51584$$ = 0}, 
    DynamicBox[Manipulate`ManipulateBoxes[
     1, StandardForm, "Variables" :> {$CellContext`\[Gamma]$$ = 0.2}, 
      "ControllerVariables" :> {
        Hold[$CellContext`\[Gamma]$$, $CellContext`\[Gamma]$51584$$, 0]}, 
      "OtherVariables" :> {
       Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$, 
        Typeset`animator$$, Typeset`animvar$$, Typeset`name$$, 
        Typeset`specs$$, Typeset`size$$, Typeset`update$$, Typeset`initDone$$,
         Typeset`skipInitDone$$}, "Body" :> 
      Plot[{Rational[1, 2] (-1 + 2 $CellContext`k)^(-2) (1 - 6 $CellContext`k + 
          12 $CellContext`k^2 - 4 $CellContext`k^3 - $CellContext`\[Gamma]$$ + 
          6 $CellContext`k $CellContext`\[Gamma]$$ - 
          8 $CellContext`k^2 $CellContext`\[Gamma]$$ + $CellContext`k \
$CellContext`\[Gamma]$$^2 - 4 $CellContext`k^2 $CellContext`\[Gamma]$$^2 + 
          4 $CellContext`k^3 $CellContext`\[Gamma]$$^2), 1 - $CellContext`k, 
         Rational[1, 4] (
          2 - ($CellContext`k $CellContext`\[Gamma]$$^2 (
            4 + $CellContext`k (-4 + $CellContext`\[Gamma]$$) $CellContext`\
\[Gamma]$$))^
          Rational[1, 2] - $CellContext`k (
           2 + (-2 + $CellContext`\[Gamma]$$) $CellContext`\[Gamma]$$)), 
         Min[
         Rational[1, 2] (-1 + 2 $CellContext`k)^(-2) (1 - 6 $CellContext`k + 
           12 $CellContext`k^2 - 4 $CellContext`k^3 - $CellContext`\[Gamma]$$ + 
           6 $CellContext`k $CellContext`\[Gamma]$$ - 
           8 $CellContext`k^2 $CellContext`\[Gamma]$$ + $CellContext`k \
$CellContext`\[Gamma]$$^2 - 4 $CellContext`k^2 $CellContext`\[Gamma]$$^2 + 
           4 $CellContext`k^3 $CellContext`\[Gamma]$$^2), 
          Rational[1, 4] (
           2 - ($CellContext`k $CellContext`\[Gamma]$$^2 (
             4 + $CellContext`k (-4 + $CellContext`\[Gamma]$$) $CellContext`\
\[Gamma]$$))^
           Rational[1, 2] - $CellContext`k (
            2 + (-2 + $CellContext`\[Gamma]$$) $CellContext`\[Gamma]$$))], 1 - 
         3 $CellContext`k + $CellContext`k $CellContext`\[Gamma]$$^2 + ((-2) \
$CellContext`k + $CellContext`\[Gamma]$$)/(-2 + $CellContext`\[Gamma]$$^2), 
         Rational[1, 8] $CellContext`k^(-1) (-1 + 8 $CellContext`k - 
          4 $CellContext`k^2)}, {$CellContext`k, 0, 1}, PlotRange -> {0, 1}], 
      "Specifications" :> {{{$CellContext`\[Gamma]$$, 0.2}, 0, 1}}, 
      "Options" :> {}, "DefaultOptions" :> {}],
     ImageSizeCache->{551., {219., 226.}},
     SingleEvaluation->True],
    Deinitialization:>None,
    DynamicModuleValues:>{},
    SynchronousInitialization->True,
    UnsavedVariables:>{Typeset`initDone$$},
    UntrackedVariables:>{Typeset`size$$}], "Manipulate",
   Deployed->True,
   StripOnInput->False],
  Manipulate`InterpretManipulate[1]]], "Output",
 CellChangeTimes->{{3.7657966451295156`*^9, 3.7657966540476604`*^9}, {
   3.76579674109505*^9, 3.765796754982936*^9}, 3.7658176219362116`*^9, 
   3.784017825378011*^9, 3.7842920176317267`*^9, {3.7844459083461266`*^9, 
   3.784445940275962*^9}, 3.784706406201649*^9, 3.784706770419463*^9, {
   3.78470717028671*^9, 3.7847071734025517`*^9}, 3.7850624892299566`*^9, 
   3.785062527724866*^9, 3.785173254227172*^9, 3.785227835196082*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", 
   RowBox[{
    RowBox[{"Figure", " ", "3", " ", "in", " ", "the", " ", "paper"}], ",", 
    " ", 
    RowBox[{
    "as", " ", "for", " ", "the", " ", "elements", " ", "on", " ", 
     "welfare"}]}], "*)"}], "\[IndentingNewLine]", "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"parameters", "=", 
     RowBox[{"{", 
      RowBox[{"\[Gamma]", "\[Rule]", "0.6"}], "}"}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"cmin", "/.", 
     RowBox[{"\[Gamma]", "\[Rule]", "\[Gamma]param"}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"Min", "[", 
      RowBox[{"cpe1constr", ",", 
       RowBox[{"1", "-", "k"}]}], "]"}], "/.", "parameters"}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"cq2k", "/.", "parameters"}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"Max", "[", 
      RowBox[{"cTEST", ",", 
       RowBox[{"Min", "[", 
        RowBox[{"cWelfare", ",", 
         RowBox[{"1", "-", "k"}]}], "]"}]}], "]"}], "/.", "parameters"}], 
    ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"Min", "[", 
      RowBox[{"cTEST", ",", "cWelfare"}], "]"}], "/.", "parameters"}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"cTEST", "/.", "parameters"}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"1", "-", "k"}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"Piecewise", "[", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"cWelfare", ",", 
          RowBox[{"cWelfare", "\[LessEqual]", " ", 
           RowBox[{"1", "-", "k"}]}]}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"Null", ",", 
          RowBox[{"cWelfare", ">", 
           RowBox[{"1", "-", "k"}]}]}], "}"}]}], "}"}], "]"}], "/.", 
     "parameters"}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{"Figure3", "=", 
    RowBox[{"Quiet", "[", 
     RowBox[{"Plot", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
        "%", ",", "%%", ",", "%%%", ",", "%%%%", ",", "%%%%%", ",", "%%%%%%", 
         ",", "%%%%%%%", ",", "%%%%%%%%"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"k", ",", "0", ",", "1"}], "}"}], ",", 
       RowBox[{"Epilog", "\[Rule]", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"Text", "[", 
           RowBox[{"\"\<1\>\"", ",", 
            RowBox[{"{", 
             RowBox[{"1.01", ",", 
              RowBox[{"-", "0.04"}]}], "}"}]}], "]"}], ",", 
          RowBox[{"Text", "[", 
           RowBox[{"\"\<0\>\"", ",", 
            RowBox[{"{", 
             RowBox[{
              RowBox[{"-", "0.01"}], ",", 
              RowBox[{"-", "0.04"}]}], "}"}]}], "]"}], ",", 
          "\[IndentingNewLine]", 
          RowBox[{"Text", "[", 
           RowBox[{"\"\<\!\(\*OverscriptBox[\(K\), \(~\)]\)\>\"", ",", 
            RowBox[{"{", 
             RowBox[{"0.4", ",", "0.65"}], "}"}]}], "]"}], ",", 
          "\[IndentingNewLine]", 
          RowBox[{"Text", "[", 
           RowBox[{"\"\<\!\(\*SubscriptBox[
StyleBox[\"c\",
FontSize->14], 
StyleBox[\"WELF\",
FontSize->8]]\)\>\"", ",", 
            RowBox[{"{", 
             RowBox[{"0.25", ",", "0.15"}], "}"}]}], "]"}], ",", 
          "\[IndentingNewLine]", 
          RowBox[{"Text", "[", 
           RowBox[{"\"\<\!\(\*OverscriptBox[\(K\), \(^\)]\)\>\"", ",", 
            RowBox[{"{", 
             RowBox[{"0.1", ",", "0.65"}], "}"}]}], "]"}], ",", 
          "\[IndentingNewLine]", 
          RowBox[{"Text", "[", 
           RowBox[{"\"\<\!\(\*SubscriptBox[
StyleBox[\"c\",
FontSize->14], 
StyleBox[\"TEST\",
FontSize->8]]\)\>\"", ",", 
            RowBox[{"{", 
             RowBox[{"0.6", ",", "0.2"}], "}"}]}], "]"}], ",", 
          "\[IndentingNewLine]", 
          RowBox[{"Text", "[", 
           RowBox[{"\"\<(false negatives)\>\"", ",", 
            RowBox[{"{", 
             RowBox[{"0.35", ",", "0.45"}], "}"}]}], "]"}], ",", 
          "\[IndentingNewLine]", 
          RowBox[{"Text", "[", 
           RowBox[{"\"\<(false positives)\>\"", ",", 
            RowBox[{"{", 
             RowBox[{"0.55", ",", "0.05"}], "}"}]}], "]"}], ",", 
          "\[IndentingNewLine]", 
          RowBox[{"Text", "[", 
           RowBox[{"\"\<\!\(\*OverscriptBox[
StyleBox[\"c\",
FontSize->14], \"~\"]\)\>\"", ",", 
            RowBox[{"{", 
             RowBox[{"0.7", ",", 
              RowBox[{"-", "0.12"}]}], "}"}]}], "]"}]}], 
         "\[IndentingNewLine]", "}"}]}], ",", 
       RowBox[{"AxesLabel", "\[Rule]", 
        RowBox[{"{", 
         RowBox[{"K", ",", "\"\<c\>\""}], "}"}]}], ",", 
       RowBox[{"PlotStyle", "\[Rule]", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", "Black", "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"Black", ",", 
            RowBox[{"Thickness", "[", "0.003", "]"}]}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"Red", ",", 
            RowBox[{"Thickness", "[", "0.005", "]"}]}], "}"}], ",", 
          RowBox[{"{", "Black", "}"}], ",", 
          RowBox[{"{", "Black", "}"}], ",", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"Dashing", "[", 
             RowBox[{"{", 
              RowBox[{"0.001", ",", "0.02"}], "}"}], "]"}], ",", "Black", ",",
             "Thin"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"Dashing", "[", 
             RowBox[{"{", 
              RowBox[{"0.001", ",", "0.02"}], "}"}], "]"}], ",", "Black", ",",
             "Thin"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"Black", ",", 
            RowBox[{"Thickness", "[", "0.003", "]"}]}], "}"}]}], "}"}]}], ",", 
       RowBox[{"LabelStyle", "\[Rule]", 
        RowBox[{"Directive", "[", 
         RowBox[{"FontSize", "\[Rule]", "8"}], "]"}]}], ",", 
       "\[IndentingNewLine]", 
       RowBox[{"Ticks", "\[Rule]", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"0", ",", "1.01"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"-", "1"}], ",", "1"}], "}"}]}], "}"}]}], ",", 
       "\[IndentingNewLine]", 
       RowBox[{"PlotRange", "\[Rule]", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{
            RowBox[{"-", "0.05"}], ",", "1.05"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"-", "0.19"}], ",", "1.1"}], "}"}]}], "}"}]}], ",", 
       "\[IndentingNewLine]", 
       RowBox[{"AxesStyle", "\[Rule]", 
        RowBox[{"Arrowheads", "[", 
         RowBox[{"{", 
          RowBox[{"0.0", ",", "0.02"}], "}"}], "]"}]}], ",", 
       "\[IndentingNewLine]", 
       RowBox[{"Filling", "->", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"4", "\[Rule]", 
           RowBox[{"{", "8", "}"}]}], ",", 
          RowBox[{"5", "\[Rule]", 
           RowBox[{"{", "2", "}"}]}]}], "}"}]}], ",", "\[IndentingNewLine]", 
       RowBox[{"FillingStyle", "\[Rule]", 
        RowBox[{"{", "Gray", "}"}]}]}], "\[IndentingNewLine]", "]"}], "]"}]}],
    "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"SetDirectory", "[", 
     RowBox[{"NotebookDirectory", "[", "]"}], "]"}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"SetDirectory", "[", 
     RowBox[{"ParentDirectory", "[", "]"}], "]"}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"SetDirectory", "[", "\"\<Figures\>\"", "]"}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"Export", "[", 
     RowBox[{"\"\<Figure3.pdf\>\"", ",", "Figure3"}], "]"}], 
    ";"}]}]}]], "Input",
 CellChangeTimes->{{3.7657917702250133`*^9, 3.7657917771335354`*^9}, {
   3.7657918879598236`*^9, 3.7657919001492224`*^9}, {3.765791932802888*^9, 
   3.7657919942146378`*^9}, 3.7657920664683895`*^9, {3.7657920982075014`*^9, 
   3.7657921313668237`*^9}, {3.7657922899506702`*^9, 3.7657922952624645`*^9}, 
   3.765792650248581*^9, {3.7657927041673737`*^9, 3.765792746970893*^9}, {
   3.765792779540782*^9, 3.7657928046785493`*^9}, {3.7657928967847557`*^9, 
   3.765792922487013*^9}, {3.7657929563058906`*^9, 3.7657929846440983`*^9}, {
   3.765793023340602*^9, 3.7657930663844786`*^9}, {3.765793106412031*^9, 
   3.7657931214907045`*^9}, {3.765793278301891*^9, 3.7657932834800415`*^9}, {
   3.765796886194971*^9, 3.765796906231382*^9}, {3.765796967550435*^9, 
   3.765797121708129*^9}, {3.7657971966227646`*^9, 3.765797224685708*^9}, {
   3.7657972622681913`*^9, 3.765797293627319*^9}, {3.765797326173272*^9, 
   3.7657973574805384`*^9}, {3.765797436805379*^9, 3.765797468209387*^9}, {
   3.7658552101767673`*^9, 3.765855211017519*^9}, {3.7659725863849783`*^9, 
   3.7659726299872785`*^9}, {3.7659730997735896`*^9, 
   3.7659731035026464`*^9}, {3.7659731603814297`*^9, 3.765973187871931*^9}, {
   3.7675307093108845`*^9, 3.767530713179613*^9}, {3.7675310861447697`*^9, 
   3.767531087039096*^9}, {3.784017519695486*^9, 3.784017525000515*^9}, {
   3.784017885160233*^9, 3.784017906119135*^9}, {3.784017985456093*^9, 
   3.7840180012240577`*^9}, {3.7840180940651555`*^9, 3.784018165070529*^9}, {
   3.7840181965168285`*^9, 3.784018216508011*^9}, {3.784018265460473*^9, 
   3.7840182975447865`*^9}, {3.784018333195402*^9, 3.7840183643640127`*^9}, {
   3.78401843753514*^9, 3.7840184389202166`*^9}, {3.784018473239175*^9, 
   3.7840184801024485`*^9}, {3.784018539104389*^9, 3.784018553236855*^9}, {
   3.7840185928927727`*^9, 3.784018664542799*^9}, {3.784291283080161*^9, 
   3.784291304675098*^9}, {3.7842913387802863`*^9, 3.7842913789000144`*^9}, {
   3.784291464934664*^9, 3.784291466174364*^9}, {3.784291689473054*^9, 
   3.784291736611437*^9}, {3.7844598504701953`*^9, 3.7844599426769238`*^9}, {
   3.7844600130834637`*^9, 3.7844601853069706`*^9}, {3.7844602434954987`*^9, 
   3.784460263393301*^9}, {3.7844641859365244`*^9, 3.7844641958043013`*^9}, {
   3.7847064421785126`*^9, 3.7847064846716523`*^9}, {3.7847065324313107`*^9, 
   3.7847065432156353`*^9}, {3.784706607629884*^9, 3.7847067421897197`*^9}, {
   3.784707320732769*^9, 3.78470739420535*^9}, {3.784707433405095*^9, 
   3.7847074526580887`*^9}, {3.784707493493371*^9, 3.7847076366173005`*^9}, {
   3.784707680369403*^9, 3.784707811215276*^9}, {3.784707871720394*^9, 
   3.7847078950539064`*^9}, {3.7847079694502687`*^9, 
   3.7847080242468367`*^9}, {3.784708231573345*^9, 3.7847083429151974`*^9}, {
   3.78506253733202*^9, 3.785062545188501*^9}, {3.7850625877784514`*^9, 
   3.7850626169884443`*^9}, 3.7850628158724346`*^9, {3.7850628802708554`*^9, 
   3.7850629150712957`*^9}, {3.7850629607066174`*^9, 3.78506296478636*^9}, 
   3.7850641647584133`*^9, {3.785064219622674*^9, 3.7850642246711874`*^9}, 
   3.7850642797059383`*^9, {3.7851732684201946`*^9, 3.7851732743283367`*^9}, {
   3.785227852398631*^9, 3.7852278530026393`*^9}}],

Cell[BoxData[
 GraphicsBox[GraphicsComplexBox[CompressedData["
1:eJztvHk0VX/7/68oSskUhSJRKiQppbgkEZkbDGUuSqYQJWOZGkQlIUlEJZmn
TPuYZTyHcxzjOTjGDCcpFOm777Xus9+fxe9e79/7+/2sz7rf9/r0T2uvffY5
2369rmtfr+fjeb22WTkZXFrJxMT0iJWJ6R//a14aIeBGzyoZFGwNHNOvRdwI
3mWuX2iwyZTFe5NwOyw93pakGTb8vQ0Yn088GudrwkTGjsvtXggaj1dCRqpK
zb6vFcj3HYobPjjUgIhcYHFgZzay8sd7TkHxOmDy50iLbL+PHPxtkXc6rQFk
9twK4jwRDw0Bck3Vu5uh1m0Fex09A4TDx368m8SDn1XPEWPlAhibpVJIMi2A
axxt32NfAq8/F9VxPGyFBdXi/c/rccCx5Q19YIAID8zyZ/2Vy+HBlVybeLE2
WOd2pD1OqgJmlN8PXPYlAyeTq13cyRpwk63M4atoh8pzvKIXZxqBmlZ5n7Ct
E/x+65sleRFg3o74fJdnFzT8rvHvPNEKe46xLtoUdYPRbfOvPSFEUE/YZpvJ
T4FZ6WQ1v6ck8NhiLtp3gQrBaz4+WTjbBpLjZ9nJ2r1wwj7BNXW4DXg2fGGr
/NkLOwX3izWZkYEFeZ6+PbYPrqQx43vSyXBVrqhjzal+yDleOWA+Tob3Glbx
pTP98L2hosWKsx2+jwlwDkXSQFSr/pOgSDswLfnXfdJhI7NUNcggWbuTJEuQ
hbBvGy5+qgWmb9WjgRLJiJBXkHX+lXpQHtwytC4pEFaUa6qEjjcCnsid5/rq
HaiM3s5YrYKH3kqfzcUdObCq8tI4EkYAPfvH3DHMRXByqvGMC7UFlB+rs8al
ItBxZ1/PzcNEODQ2kdYdWQbax6XflweQIGBf4VbZinI4djYjiaWlDY4+5bhI
D66A3I/5DbCtHV4fZX5uM10HKc6qIm4uHbC6/7WHtyEeJh40PPnV2An0Z+M3
D7m0AE/bhFatQDckIfUBTVOt8PFahOyDKz1wXoz09twmElDNcaoahRQYMbK+
MTpPghHPwFj1BSosbnra/yyxDeJ/id7Tft0Lc+cjG5t3kmHd8Ilu11N98KK4
VCLxHhkKbr6vjJzug5oewXJLAhnYEQ7Fgfh+0NJYf4x9RTvgY5SMWtRowHrj
44SSQDuQhDPXlEzQ4EGs0Ypjou3QbBy4Ke1BFdTeiDb5vqcMudEVFRYiiD5v
U/unO1+kIWEKmxWu1KDzPUoyMlrfAIntPevlrN0I8cX7zfQ3J8HbPS/47cjN
IGI1nHNoJgu4UySm5YAAMjlhRpMfPkLMt7bNYiEtcMP9Kin/WSko5c+crqS1
Qip/Uk3SgTKQzrBrbJUjgZFQWiVLYDnYUGWDDG61gVDMybBh0wo4551pdAZP
hlukbPHUg58gTD/ArkqgA2QiTZ4bWDXD0IvasGGPTjB7PRoluECAYBHLbzfq
umDjVK1TUlwruHRoR93k7gGT9VXdHK1E4FkxdfbXZQq06RwWMawjgYyWi3lE
KhViLd+sYvdpgyG3Yk3um73QnuDROsWGxtl8zFfB7X2g+Xr3kafXyWAWu12h
p6YPyOVS2TfLyFD04yL77PV+CHa612czSwYlFz2v2q00sFAwOUba2A6Dq4Ye
6JfToOfl/v5cdN4gbDU17sqVIBHTvzJvRw0yIn+W26ixGkSSqKHhJgWIr6pe
OHh8AtyDaEepiFjkXcn0g1XrGqD36eT5t2yRYJMIbCn3m8BiMp17S/8HyDgq
f9YoCg+cLR1C12PzYK4nYVCzlwDhJ8JevlQphpmJyjDcQTS/cMw9WXMOB256
9jZ7w4gQUOymk0YvA/u2qZBMIgke5N+P0p0vB6F6qao8CTLUE5qSn3yrBN6Z
EuU9Lu1w92bWmoSgBqgMY2kTreuAqMAadeEvePh2C/+MR6wLFgP6tvahcfXy
vmcS/9VuiBDYblMGRGBa29UQh+uBL+PvhtYZk+B9adj+p+xU2K0TrGm7uw3w
Zxrsf4n3AnPHvrcV1W1gEnT3U0hzL7xe78VzSZUMbK1fqupd++CHS2vt2jgy
cBvu19UT7of7tmNJb6lkOB9Q4Eio74cHa9ipJmvawapCUq7bkQbuwzZDb7cw
5nvrP+d7LZy04oq5c7QKLHKehhWFlCMHV1xtjqlE8/uC3vuRu5lIbbSVuIo7
Ot9dS6XV8r2RUafzm/t/NYBI2Fs+5o8JoNA+4rLJvxkkIq6+uz2bCZu23HOn
8xHg0KnP/Ad/FoCK+/kFrwstIKHuVtbJUgpTesZhowXo878XIla+ogzihkLM
uteRwD54Zdhj63K4Kebm/kO3DWK9jClhahWwwzwtjvKGjOYfQdmLarWwUuX1
hsnJdvAXm8bdy2gCq+Tq0G6tTgiypF99XkKAsiqBk/oJXfA7uujavEsr6ITu
PvVlqBsqVz+yiU4jwgf9u2aGyhSgP011NMwgATFnBFcYQIXK2myRc3ZtcFdm
zXs3615Y0zDKHTfXBtyBVb/oHH1AJZA47OzIkPmB6saU1Qedv0tdaAVk4OEP
d/Gz6IcfuomxnF/J8M3U+GHFWhpcWUnMV+Rph4kbfk3PU2lAcr+sz47Odyvl
vidS3tWAU4yZGysoRJTsRPH6Ip9AmaZA0dyZgPQLKd6gFNZDfFJGy9eAcMiR
PZEkeLQJ9LxifznXvYcf3D239zrgYSTOI4oLyYVFPZYrqwoIcNlwSI+SVAQv
nTRcNrO3Au/0W3FPfhzs+Nz06sxFImQ87Lp7qrIMutdxChSmkqD2WGTyIrUc
GO/7jB/ufq3lFTBALgzK1WgHnOR9Wl1ZPcj7id06FdcBpTpP7K8k4cE5oOkp
249OSFq9cI4jpQU6ZOR+0FW6IaSlw+vyZiJ0l+T7bnzaA++3cPUoHSbBiQ0S
R+n9FPig0SoYwtMGoneDX3By98I2nqk5j9w2+HWsbdfYR/R5RzzLsjxIhrWm
goSX5n1woT40/l4EGS5dpt91XdMPdUW3FArayZD9ikYyyeuHMlGTlgur2mFz
+gE1sgkN9LdvPMMjhN53+t2Hzwd64Mr1lWUZm1vgTMzU0/fJbXBoZOPmdNcK
sO4+/Nrhfj8csHe+fXGBDMFB6naNsjRo9t4Xu3tTO/Q8PnWKtZ0GLO9T8oTQ
98GaoHHihjNk2GbzJWa3RDUw24aynuzrh5+yzCys69shlbxdtO82DaI01uYy
CTPiq+Kf8VUAgTZkE0feKpAQ5npJPlKB8PGeoW+PrgHn+WZP3/Qs5JIG6/M0
7Trw03VScNQKRHT8HFlJxAbYujtLysXjFdxJexhPP9sMRqJjp+vdMiG2TaGg
YSUaXzvMZzniCoAv/4XDO7UWuBzyQ1T5YwnUvVgr5ZXYCkLZlJVzQzhoW7Hp
Te8cEULyXiUqGZTDypqISS2FNgiBF4KnFCqAA59alviEDMNPrQXVPtXAEQU5
q5Ud7WDjZ/7rwZkmiE+pWmco3wnnpyyVrr0ggFnU7DXFh12gGK3VEHOhFY4O
R73eQ+iGxW9fZAafE+HnTZIViyQF1KOHZVkTSbBjNHGq0ZkKcqfLDihZoPns
4d6uJKNeYO1+eezwFzS+6kyYO1n6IKUq1TjlIhlM8hS5ud/0QdGj6FzHHDIg
SeI7qs6iz1v9XupxOhnwrab8ZUw0OOZIrmjnaodrWdp03CsaHL3ooByL1k8v
Vd+c2XS2GsLTD3lwfClCtnizf+n8VgsiipO/dbe/Rnwb+iY0H9cDE7Lqvon1
fTD5WeN6hrcJmAZf8YkXpMDWxfTNz9G6RTnMl/WKdi7cXpub0p+IxldU0pjj
2SJwy7hPO/G9BZw3VZ1zmUSASd4PhnWIML7xgWPbhzLglXhpVRpFgovzAsa1
hHIoyAqTykTrxAuwPcT3UQU0nPz4zvNAOwQo+fi3na8H5xs5jeYhHRDjjrPt
8cFDWkgj7x1aJyR8tjC89LAF3Jm5tndLdwOX1CXrylVEqOPf0aHn2wNOVQ7J
kxIkeCzvphzbRAGz+nVcBNY2OLV98IAAWy98FhfKj0ltg6aXC8ZC6b1weLj5
0+69aD2UkNF292wfNLZs/ZoYRgaOa9o7Axf74MxnHtpmEhnMZW7effm+H2IU
7kUoMbfDNzGFZqIeDeJNM9ftE2yHznnPy6uc++BniFTf3BYS9Bzl5vgd3gYW
K7/VLlyugA1Xmw2z/PoBJ8Kb8uUHGawWTk3XSdCA5/lmUTb+drBs2GQv2UiD
FxsTMqbQfPhYYr22tRJax+ntXD8SXgXp30WLHrT1wxmB7RuPsLdDsLbEe8oN
GjSM2l2/sJUR343/jO9yuALZH9zzaRA73ix2Bf2+JAcdxbU8ZJA1c1/fZVAJ
Sof3lXRcpEHM3UdDg2h+qLPdoiU52g7pFWnHCLuboG4Wv8WouA1q9cJifntX
gLGxz+7+fhrszjMXkEfjH28pHE17QIP2m5rVT7H4zv5nfL+F15cViqyZqqA9
nqXmeWQFEvTipO/lOzXwJVK43kA1G5F71UG6eBiNb9mWDo6wEMT6ubCufDn6
/tzmdGuCFg9voy3lzyuj66MtcYERsplgtp/HuGgOj9ZL707YOBWAH1kpGTmC
xneRRMjg4xKQV6XdqopqhYYijg0XOnDgEmZe3z9JhMup3jccNMpBfVNSivve
NmBJmFlYIVcBt9kkTwfdJUPeyWPqNndrwOig1/11Te0gw19yCBFvQvP8Ca0I
yU6QwdfVCYcSIHXFUND+gC441LuuSE2/FeR49fQ1qruB7fI8u/1jIog8nB/o
3EaBw7tOxmvGkkDnzop7ZBsqNN6Nei16vg2Ol6i4Kp3uBd5tqf2zY23w2F58
dfPvXhCz2kRELMmQXjjeG/OqD/Irxxt2ZZFho8MXX1u9fjD7bfiGOEGGUo7e
LmS+H149N5kQRuN7v26O7+lYGjQlGMqZofFdqrY2d/2xarCYJbq8Cy1GHqxm
8hOm1kJ81Uh7mVgSoiOWI7HCpx78QOyFbHAISJut6XJmQuvDF4ZSJlIpkOG6
eRCvhb7HWrRjW3lyQdU29BQhmgAWPMc9MyWLgIKXFLrwGa3PSVEVWY0I2PcY
PZRRJcK6848V7RLKICN3KAj3kAQLjvs179aVwwJz/GhnNxrfX6qMKx5UgLL/
oSOme9C4uSMcRd9ZD6FuCzNXvDvAqaTe8ORVPDSt1T6Da++Eue/Bz8z9WqDS
/rd8i1g3rJ11rGqdb4Vy1Z5AR7ceiBcozHkvQoKCUzHlLpUU4F2fa0lbgcbZ
F56Vwsy9kBHWs3rr2zbIb9rwNecduh56fonkv4cMD1Rvdfjo9cErD23SjlAy
WF9f+L7+B7oeilDiPNZKhtzZ47Rjyf3AvJ8YvnNlO/SbFz9pPUUDG2bDnx/R
9ZDoQ9E6iaA2+MIn8dzHugIuycZknrnVDxEjxsFpc2TQk2/K/7SdBoEenThn
vnbYfsV3obSGBgJRPQMkNP7IN7esCd2Pvqe/t665dLwKVpVM8O4l9MN7S9Eg
7bXt4BaS4tTjSoMO8mg0CxrPe7o3K63JogFHtIHFUfT6z6VmP/aj6ww+2c6N
Pb8rQNIt27/dnAa4/E+PfND43aDR1+Gf2QY5Ldtv025UgODMQKFbDw149Vx/
7kHjtTT2lWl/MA1SJq5s00bjNX3jsJn0Gxo8uyU4TULnj6ul77Xgr21AbGnj
FIusgJd7s7qiW2ggtkFXcw16/ZsErS0DxTRoPNOU+Ai9n2fF/DG6IzR4N7NV
UAk9nz169arZTCW8VfWy0aqsQJT6VWru3agBv7JEbuWwbESwUWUa9qL18kBU
9zfZe4iWNu72iYIGiPfIv/wmIh4UNtSvfHSgGUJ+LOKPcWVCqaXvu6xpdD7G
fD03blgAebZh5ZoHW6C9uepFhG8JOD7T3W73pBUkNYRV/FpwoHzuTg9tlAhG
+btXzauWw2flDyHs6LpBxKz0Q6tMBRS/HnvuEUCGhz5H8oWv1ICNnEj8o9p2
qD7i5r+downwEyzjsjs7oZwvqng4gABnDpo+kvbtgtt9F988OdUKGSnvd7bj
uiGKbTr+TSgR5KI4dlQLUUCGfa30MPpes9KTOddtSQU7+WMT4UZtUHBGC7mn
1wtJQwqOraNt0FJyL1jjVy+4E3n71S3I0HlU9SQ1rg8MJhMyWTLJgMOTUgu0
++HtDdlFATTe5SS3KcGPfvgi3jtSxtkOES+Ga2KjaTD1YN99RXS8GmuOXGKT
rwblofD5n93FiOqpnzXHiLWgHNp2yDg5CTmgt0Wt27UelFfr6PbyBcMmzhQO
35lGUBZBgu4Nv4Ob0k11V9XxINLKIt0+kwOvn/54XhtBAAmDHo59m4qAx9L7
0PBACxT0NvLsL0EgQabqAEmJCA1MJ5LexJaBj9fa6LK7JIif2FbYW10OcZJv
a5zIbfCWbdr4wr0K8Nwyd0dnRzucsUsMR9bXQ6xLPDvdowO8T5mlX7HEA6V+
3Tez1k64tOOrgt7NFrB/5a7SKNwN2pJPiltnWkGp69CFX449EP4w1u2OEAka
zn5gNkMoQJzI+z68SPqnHtQLhprayhpJbSBps1lpxZtesGMhfXu3iwwNT3tN
fmj3wTPSQ8LgfXTcZ0+bGsz0oev2HYcNWshgcX4X55PEfsju6eGOWdEOxt6/
vhto0NB6IHLaC413rcbm8ZZJGgi2iW76h/5Rmbf7bYlfG5yJP7w/z6ICOCN9
KUk3+uH0LrVL7Gj815zZIKCxjQZ7DSUDt6PxH5CfpcpWRYPTN7PsqtF48UwQ
H94mTYa46bJPO4SqIEOk9ZhfUz8UZyySiOh6dCxpjHDhGg2e+F89QkbXow92
awcZpKPX63taiaHXPxi2IdeuJANX2oPLeFIFJDz6RjM0pUH0E31nDTT+s66N
5vOhdY0bG9VYy70CvFQ3MZd20mCh/GyPGHr/Bwr7EctAGnhpXr24E41/zosC
bzxe0+B8Xfzrj+h84rsXrCs00QZeBZsR4pMKYPIZ3E5rRt8vU47Mi+jvs035
XpIqpMGEc8a4N3o8t/ZUf9QgDdTOmmw9gn6/SdczdrX+NrhxtsJWLKwCygW0
cq7X0aDAQ1d/AP184ZtMlz29NBgei+aQFf1DX81JLHV79KwClPp8nuiRaMD9
rTOQBz1/0HFAf/UYDYx0VbiU0eOl67Gl1/c7u7Fum2+DV00xnrIfKoCh9z4T
Zv/++zcd/Nmyd97dHAHFtuV5+83pYGT8Kv3L1Guw+7zqe2/GJLD/9r+gvjUd
NvTK3xPkmARx/cmRivs50HWg/3aw4wR4NB2GqG8fYV/1pjn7snHgz+GirFiB
gPcnxUqq8Djk9R9vaD5aDgas9HUNzmPA0If1kjZ9HK38DAx9+HieTHGE2Gdg
6MO4FaQjH91HgaEPy+Jsua8SRzB9uJHioqVzYATTh7/Ir2V+HzKM6cNrWcI5
nw4PYfpw2tqEmLlDQ5g+fPOaZEho6CCmDyucSmpInxjA9OFA85TQU8oDmD5c
PfQiyS2OhunD4W+3KPDT+zF9+HbdRtkxlX5MH7YzX/DTSujD9OFuaSetnd96
MX1Y9RreMUy/F9OH3+48M6p/kYrpw519wpMeaymYPjznXxtfUNON6cO7n93V
Gr/ShenDKfZHkNvcnZg+zCdRR93f0g65p9WZI1QHINLo2g+yOxl8Twa+zBka
gJVO33GRsm2wrUezPTFwEEpP2OkWfCOCgnxAxGbZIXjwaLat4XkrXNja/GNF
6xCcrLBct2DcAt/rQvud/YeBz25AYesvPESxmLkZiI2g+S5YOs+xGXgouQkr
K0cgJ1ji+nd6A6zy9j9z+NoojLP//CBwBH3PvTNL7+f+DEwXAlWu59SAS0x6
KHf5ZzgUeexT7mwllOwJYeNyHIN1+tSeIvVy4NJ0kbzNMQ430h1iJ+8j0C2F
b71ZPA4ij3ws9wkVQkYciA2YTYDfWmYKhS0XTNMPcm1ZnIBNgZru/BsywC/w
lX93yiQwvR0elDdIgg8jW55zaNHB4rNKrKRPJDDiAE2aLf+Ii/iNukH3NgdA
SsUQKTqdDqIBvCdZk+ngN0v5KeUTBD17g4+HbnaD+Kkbgw1kOlw+GD219iZ6
/f6OhleUcOgmhMUxt6LH3PwFMj7uYHhxtuTx5osQy6biMDRGh3th56sfWNEB
x/FQzjbtCfzebeAaWEwHZeXrexIpflB4o/GT/yh6vVqw7EEfGzjVSM56sfkM
bI7YsW/6Ox2EiosztA3R+/G6PKLB9xTCDbNN1TLRzwvtfnI57Q6cSpLOUaGg
500+jCRRnEFCy56K+4aez7DdecznHOx/GRWbvVkV2js2Pfnxkw4XDSbE0/TR
z2efVTlS9xQ6Jmgtye/R+7vLon6KLxAijpjvSmxHrz9opXc1zRWu9cee2UZH
j8O2WL+nWEBv7hE7C/R7mPwkuAx91IDluIAzdbMcFCxwVXr9okPIi0ALig56
XleLvl8sEhYPea0nv0V/DzcVf7QuEAqCZq1bSej510dZdPiuQ6TUgTD9cfTY
rqXOOc0aWFYQX4fPosdzvwzzKHpQbJe4Vwb9XiaRlIHbPgexfNYn0rRz//5W
LJ+ZV2Rn+TxqwfKZdk2y5eEpApbPKlMax9c6ErB8drX7RukaFgKWz2Ltb4N4
Fh7LZxo/Pc65PcRj+WwH8lOYkIDH8plbu+fvptUELJ8FJbFL36okYPnM07gq
JHNbK5bPipQSJwW3kbB8xpcxu373eyKWz9RequezovU9I59pdPDjfIxbsXz2
smHYec+HFiyfuTe/jA5d3YLls4dVe6ZVHAhYPvu0nV92yyc8ls8KT396juzD
Y/mM35m/Ql64GctnD35Je9qg62ZGPisPU1qVVdaA5bOLmo2/Iu/WY/ls69Fz
MpOX67B8dtp79J6V3icsnx0z4ruZJFqL5bMv3oe+XGavwfJZOzurszy1Cstn
WkmEvX2FlVg+ez9y00A5tQLLZ1bl2UmjIeVYPhua7ukf9CzD8lmkfdHhWVcc
ls9cMi0yxDNLsXwWf0tslJBYjOWzLJmQm2yOhVg+S1ArTNtkWYDlM1Ez14K7
lnlYPsO1t4mtVsjB8plaw/USK4UsLJ9Vil9NOcqTgeWzy0Ou0vVf32P57O1M
fwP3+rdYPqtc9+SWSUcils+ceb7stBl8ieWzkAk9yRKNKCyfZfBIC3HzhmP5
DHc3joV9zO+/5rM4PSdlLJ9VZ3a9H+5tAdlUrtVCbClg0X3Pnu8DAc6+fVbv
uj4LdMvNknoOEKBpAy+vtHI+PAmL+ibThgf1siSORs9i0CwpcHkfgwdLs2TT
txQcVEbb9bSF4aE4+YtrREQFtCCaqobo/GLwR/XtZ12kjAjA4I/7gq452Jq2
AIM/doon5wuwEjH+2EcVdfH8RcT4I2vcgbZ0AyKWfy1Kr5m0Djhj+XeyLoQz
f00rVN3uMFnt/QbOeep7hjURYOL0ePGppgz4XM/HelCfAJ4y/otzg7lwb2Qi
/McYOt9r6MlZ8kVwTWrlCH8SHg7GGiZH7MWB61jKaqFQPHxUFRDJGikH099n
s+2z8Rjfy48q9DaTJACD703Hiz2cYW8BBt/LZm55YozGJYPvnSphJo7vIGF8
bzzQ+gvBh/jH+yJ3I9vg+ZtQsqDS+VwrG7KK7fcIChFAlJ68yzqmANjkLGs6
y/GQXnjefbikBDZtCq/meIKHByLfeYtDy6Dururg90g8xsOqLmR1zQ/ggcHD
+EpcInLvEYDBw+KEyUopH1uAwcOiBF+bzD8gYjwsMnL252EiEXt/KVP2MBf3
WWDvLzaJaAWLra3A4agYeEs+Gb7YzYUhVAJ8fBeZmy+dASqHWZ1czAmAx+W7
Ug7lwrrPw8eLZvGwp57XVTyyEMx1XFW13+NBxd3i6cYMBIz95KM10eddwLN3
Bve4HFiFPlveSsFjfGnkuwNb2yYCMPiS7+dtu1iHCcDgSyK2ob2PzrUCgy/N
06RlPh4hYXwpOZwkPhtBxN63vUdzHKKjvOGuwUQL64cs4O5hZamVQMfTtyfu
5EQ+3PiUUCbXgIf5Ej8VE6ES0HP34vZDn687on1Y9mAZvGimBBEf46GU3PUi
8HMFaCTdV7mKxgeDz+QnR55/7EwABp8ROao/L3yvBRh85vEx7vyzJ4kYn9mQ
lbKBOELE3v9+Q15Jn89cAbF4zbs8T/KgYfVc7qdePDyprOuEjiJISuLMv/cS
D1q/Fv23BuNgcdMVsa/o8yu8vkozUakCkAvIq8wSPJzT/xHZ3l0FPibyKe7H
CFCYW63r7lILK3dNMVvvbwEdfT3qYmwj8O9e1JHiRt8/Zs453uof4V3k8LBE
IR6s8w+muJmXwrtE5Z+m4Xh45R/75cRgGQho1+1Ti8UD7nDWlG1kJczViU7y
f8eDs1nKK0nTBohI0giSIRGx+sVv56y4XK8eVr+82NX4sFKiFbKtnQTyItA6
7HerresI+rzeka27StJB6qSXSbYNAX6ynZbW78+BS9tt5QlofUnQ2tlhdqIQ
Kj79UE1Kw4Pkxo8f7xshoGO+6g0O/fvlbx22rLUth6Hdb0V9kvEYP5mtPnkg
cQMBGPxkkDig5U4iAIOffFRe87r6SCt4jvoI7mpoAMVbPjnziiSMn3wpsOjl
iCdi9ZbFiRdpSvm+4OSt0qxomgWnT7+eOrGXAIk1N4yLIvPhgP00fSsBfV7w
5O2T+mJg2eo04BOFh3EOz1MOa8vgELfn532P8KAIQ2yhCDp/bJOeZTXjMf4Q
JDq3fddFAjD4w3UDML/q2gIM/nBjVYKw9k4ixh+ahK7miE8TsfpP2aN+mi/M
AXRHBo8HHc0DBcugjbpDeDis1qN8M6QIUiPV6UfQeqVMa0+E8XkchEUB7RL6
/BR6NuSm8FSg8716xLoAD4/PIoYVOVWw3u5WVv5BAkTXpjv9VquFdzzmfueF
0fp/U+sH+euN4KH35OZ9IRLMJrM7fflSAPruY672pXhYc1iDM42jFNY9Nh9+
gf69fITalf4fy8Dzhud1j2g8KL8qvuB0tRJOf7zqTx7HwzoOXf5ouQZ4UX3h
5asM4h/16512Jld9Y0gdu1PQzIyD8eAnZ3jQ+z2UKnb/Y0k5tAQtWtWh80Hl
bbvmO/FGqAw/dFF/HwnOHnXsFnEogWK3zMr0CDyscN62c9ayDLTOfuDAocdt
H1qcaFk4yMwpXFuO1nMlB8RUj2SUgoSHSpsu+j6TlHWmrOUqhweP70RYo/HW
mrZKEheIrmP88r6l/iT+UU/384W5U5Wxenqrrd3Tn1KtEGTGdun08STweKEo
ThwngBhR0oLLMR0Ow4szF+wIwPkh/v7a/BxI36ggO8pEgNehMg/m0XUMvSxV
2yIDDwkXB+urJRHQHazu5kbvbyatlE/LoBzOi5dnvniNx/iBtySvlRQ7ARj8
oLs15uBQAwEY/KBw6+UHSdKtwOAHTFviq7XkSBg/mA+1ZotNImL1f3zXHLuB
tR/0czs0Gh3Igq7oS9EPZQlQcLU6z+1qPvR+qF2Z2IrWj36x52XQuulIrqVf
GDqeyQfDife+4dB48g++heaLBZerpZwpFWBBdzK/ieZThv6+Ny21cIsZARj6
+8VPTA9OX0bz0T/19xUfWq9u5idi+vu63KZ03Tkith5huhRw0SDVCS4+2P8K
uPLg9OUjhcKj6PwJHpreaFEEY94bXr5OxIOX27EtHidwwPRkd/EhdL785Hxq
J71YDiPnC5715OIhw1C0oCC+ClQOOnn77CMAm8Hr38f31YLYyYzPERtboNaL
d+MZy0aoX+mCK0Lr83WnjBveVRWAXc6IXhwOrW9uGlRoDpWg8fj7hB76PiDM
Ue7HJZYBs5WssBQa70ykY9zTZytBTTNRrmcED52XthnoijTA1hd9uZlxxD/W
U+HmRRfumULjDrk7nV0I8A6ys+9E73eO+k5Z8W057EMiHkWlovGzTiCriqsR
giZN+gMOkkDC2yOsRLUEao87czx+itZfz+QzeLXKYLO0Ln8ZWh88Io3MMb3A
geKnVw/10fkT7i41Sw4uhc4XAa/w6PweMg6ylZgvA/yeSzN1L9D5trrdxv1a
A+QMrS3BDxP/WN89E/9WoqsB+VUP3ugFIPDw4tMOb/T+iltj/RZHG4Co4qEz
qUyCfcPW5boiZaBYuGffTzTeV4tvZD96DQc+A+aJiejnD86BKZd8KYjXy1XN
ovNjqsJhb9ZmHJgoZz7fgJ4XCioeqqrFQcxqfNlx9P4+fxN4FNdeCoJtC9ld
6P1j60vlp6JiVBlsfXks9WZopEwr0LvOrE0QSAJezl1yq+kEiLpiaCaplg78
71InZO0JIOCrrmD7KgdusFna3lhJAA7p3MFPbIVg6FJ971gmHi48mD8zwIdA
xrR19jH099pO+k+FqpfDds5v9Bx0PjH0++Gf/GrzbOj76p/6fexUEl9qLQEY
+n3eeQ26OPp+Y+j3H+9E96buJmH6/QMvR7rVWyK2HvabRhCpN34Qa3pby2Zb
Fux/kXb6gBwBKhQdLhHO5sP1n/JlI0Q8UES25S4+LAaOmJOcQmj9HaApGB09
ioO+tysXd6DPs3uddLTBywp4yoq7NliHx/TvrGzLg6LnCcDQvzemOaxvt2oB
hv79yPS6J88GIqZ/n/HaMDeA5jfG+pzps3qBl6kzOJl16sbO50Ju/Su/+5/R
emjnVe2BU0Vwf6556gKaj4xDGvoCFXAg4fD+rAQ6np0phiecp8sh0kXqVkIO
Wi+0n76cHVkF2V3PTMakCYCLjFO32VELhJjhIhxnC2RJ5560MmwEi5QomTNi
JODfwnRrdUYBmFrfUCgqQ9fBAmShzS0lcF4wnTkNjbe0dXZ6H6LKIEI0YlvY
M3R+OLJMyJ2qBFHuQIdR9H1X/uie026+BmiTWm3R/JSI6Qt+2c7SA8nmEKKj
uW6uCoH9CYEdB9H7bb9pL+j7ohzenX11ORitT5lKCwdbWRthLFyFvvUwCR5v
WRi5L1MC3YcqYljRejD6fbnb9mNl8HH974CTaLw5jrqWbHiMg2szbR+F0fnz
ky9LL9m1FLawjJZsRMen0oFLUv5LGdQOfhZcjcbbXdljAfq2DXBzMHzPTQrx
D71j8idudYg2uEwkyDg6IuBg9UPvBXp/yYGKOet6G6D/LIvk3eMk4JifDDLb
WAZBU++anqDxNnAovlnTBgcRE1kfbqOfj4+qzKOKlsKB75zaGuj5JvLcNI4D
B7LR693/EW8/otXfE0twINCqW8yExtuZpy8/21eWQpzpCWle9BjTW1R/D9N1
DsPw0WaVdyoIVKiKkYfR65fWS3EWeUaX9XAA7utBGz3P/XvLz+IpBOacvGUF
0eOcMlO5r29wsPtX/5tg9PksvHDfuj8GgVwHtxNW6PldXPfUpLxw0HDtxKda
9Jg3o98uUQwH3qc16/7xvsf0HmWJSB6qCDD8LhPmYqV1dSNA4C+fVac2QF86
e34x+nyW3p/WPz/voz9d+gzNV0v9zv8pfuX/1W/+M/Wbv6uf21UjN7kf14z5
uRsOeY5b+jct03P+U/zTQqcObd2Hb1qm7/yn+JVV1yj60Z2al+lD/yl+4CYD
FbcPs03L9KK/q//2XmVApGVU8zJ9aam/VcjyYlWsWgf4tbMTXEabl/lXl+o5
f9WfGi5PGRZoa4B47WK/EP9/H39qPG9jpzN78zJ95+/qBy0wMFeMT21epgct
9VueM/7GnynTAfM47QHlguZlfsql+kutBm9JB0sHVAbt2HRtbfMyv+RSPyTt
MtEl5EIHGEU+bpMgNS/TS/5T/I9Xhfwppzc2L9NP/q5+w9XnPH/g8pqX6S1L
/X0uZ48eKxLvgJYnk3zBoc3L/HtL9Y3BExeGaD/aoeaORQrS07TMr7fUn8d0
SSj2sX4HSPMrmGhTm5fpEUv9eIdNUyeTj3SA2fdxrtv9zcv0gv8U/91a/Nuc
EwLNy/SDv6vfraFgLJNQ1LxMb1jqJ/M73XtWWaQDMtjN9RY8mpf5xZau778d
Z5q//A2db5vs6w7UNC3zhy31g3FY4zL4tTqgy/XArPlA87L1+FL/18nzesyS
BztgLLzA0bmxedl6eanf66JhlOTBPR2ghOySnU5oXubP2m3O1rntWAcw1TYO
B042L1vvMvxb4TUnvJxuD2DHgfEuDoWshP/f/q+MJf6v//VL/L/5Jf4u/cH/
6//6v/N//V39Eoz1OPcRF2t5b/zfvr9aQMdG//XTAWiw3m+aT2z7l368v6sf
hKEvuMXy6wol4jF94ZGNhOCaNfi/XX/2CP7cbiGHAZAxM3hfI05e5o/8d/O7
MPSOfvXoOQc0Pv5u/dlVh72CJDYPgPsD1um0RvK/9J/+Xf07DP2mX0RIYXMe
HtNv2Fwnbllswf/t+rl1uJv52o0G4GKXZYuuDnmZH/jfzZ/E0Jckk6RP6Nrh
/3b93Y2pfLUuzANgk9ziJPCDvMxv/T/tt2LobWuj1fR2rMb/5f7y/26/1p/1
p/8rP/q/q5+LoTcaScwpiqkt93Mx9MFEvcDTMQge0wdx5kPcYTvxf7v+9ZX7
2dfn6QzAQvTo4BMr8rL+gH83vxpDv1zIkbtZ7or/2/Wz6w/RRp7N0cBs/yFp
PEf7sv6L/2n/HUPPveepFIP71fyX++n/u/17f9aPv7Q/5a/6+xh6dD/nR+J+
Hvyyfv4/8/8t7e9f6gdk6NcRXkIElb34Zf39f9UvuHQ/gH/Vj/N39Q8y9PKr
R9feO1+Jx/RyZu65TW8k8X+7/QIuHN/FlqQxACdvfqDn2pOX9Uf9u/kjGXp+
ZKRTvtcN/N9u/wCeO5o3d0/ToPOH3fr3m9uX9Z/9T/s9GXzjjgfR/Rsz/i/v
Z/Df7Rf9s/0Qlvbn/VU/KYPPxHd4fdbYhF+2v8Kf+U2X7rew1H/K4DlZR7qP
EQTwy/Zf+Kv+1KX7NSztR/wzv+rS/R3+zL/K4EtyTfePRE83L9v/4c/8rUv3
h1jqd126X8S/9L8u6a/8u/pfGbyrr7lLt7gaj/Gur1crNfej79u/234TIacK
AoXUB+DL5bBv1dfIy/pd/938vQwe16mT87vDE/+3239i6X60S/uJ/6f9ygw+
GX45+aMPup7/q/tf/Hf7nf9s/4yl/dZ/1Q/N4KtrNIu2k9B8vnQ/jj/zSy/d
n2Opf5rBY7vb7FnucOKX7dfxV/3VS/f3WNpf/md+66X7gfyZ/5rBh/G+5xpS
55qX7RfyZ/7spfuJLPVrL91f5F/6t//ZL/9n/u0sOf59fd/R9VMk4YUib/sy
PzeDXwfLphjYrcAv27/kz/zeS/c3+TP/N4OHC12PXO8+27xs/5Ol/vCl+6H8
q/0BbrnO6m1jH8V4983YN8+VpoYx3v3heOhMEjKE8e5S56J32gmDGO92c29T
f3hvAOPdVj93zGw6T8N49x4W3AIN+jHevefBQ54f6/ow3p3Y8WS3DkLFeHdy
8nPK7tAejHfzOXNkP9/ThfFu5RPch0K/tmO8O6+e/jijsg3j3VE6hzgu2xIx
3i3Xw6UQL9uC8W43fOq6jthmjHdv0hjVI32uw3i3TIf6TMvdaox3S1h5dc99
KsN4N+eqZHXlvMI/9juR/21IFcjEeDdTycIiX2YcxruZEuusuVa5IAze3bt9
M0n6bBLC4N14zaiFzsfZCIN3+ykpyhvqFCMM3n1IRPBGGa0cYfDu2rvXp8/q
1iAMPsvw6zP47M9g3Zm9PiMY/yv0Tkx8WzmC8Y7nN7R/DgyPYHolu3uC+J0f
I9h6u+Kb1hGDlaNYPSUiJ1r9cfXosv4AxviOBOQ8mP+YjzDGt/pajLSHYQo2
vg70uYltbyuw8d17xtiVSmnAxnd6RYW9hFYLNr62W+QUr4r84WcQ92K1tDIh
Y+P7zHVkIu9UBza+YjnnCbvLO7HxTTlQEyO3thsbX1d2xNxmXQ82voWsmzeZ
NvVg45vx8qWavDsFG1/pHcQo2SkKNr4mYwayRoZUbHwTf7S45sZTsfFtVx/S
tMdTMT/D7bwpiaAvVMzPwD1s2GC4SP3f/Wz+zfwMDD+CRUtoAs9UNcLwI3Rf
U/T0MAtFGH6EI9PnKjmPFGF+hAVaAFUyrBbzI1SljT1O9sZjfgSmetxcXV0r
5kcQ2ahy475WG+ZHyN3ogExZtGP9Bkmiv1ff5ezE+g1uzwTPqDp1Yf0GSem7
t9s97sb6DY6+8eQOcOnB+g1GzN0iTXZSMH/D1rs7+ZzzKZi/4dqF6dgVElTM
3+DzZNZa0JeK+RuusrfsGyikYv6GCZpcY1c/FfM3CN5ckX/sBxXzN3j+jq39
/ZuK+RtwLIVjF9HfW+o/YPgFJLg0TTh9UhCGXyDoWnix7c0czC8gXxGRe0im
GvML2AwniVxYbML8AlOULJlZzj/8AkGns2VuF/7hF0i7HNl2vo+M9TeowLe4
NxkdWH+D2sW5U1sEu7D+Bpmz8QFSet1Yf4NOpbFBg3IP1t9wUjkgUnqhB/Mf
BCwc+Fn/jIL5D4KLHk49Xk/F/AclFuMuq+2pmP9gi31Opk0aFfMfrNpnu06l
k4r5D3xjqGoXvlMx/wEbe4X4Y/R5MvwHcnzBdl3o9y/1BzD4f86hnWKOO8sQ
Bv+/Tti0i/9qBMb/91991KaP4DD+78+nImZVW4f1MzDn+eEXdSkY3997k9Rz
kETB+L6Wu4zTY2UqxvfjahSOJodTMb7vErxP/FA1FeP7+sMfrVU/UzG+n71F
oFsRnScMvm9xznbHqhzqMv7O4OXaLU63UkyzEAYvb+jxZVo1mIHxct31ib33
pyoxXr6ofTx+63Qjxsst1b41zae3YLycU30+18/xD17exTYs1hpHxvonTn+Q
ekvy6cD6J5iY7dOO0Tux/glC47nX76W6sf6Jp7fHWKd29GD9Ew61WW6xgz0Y
f0eU+qaUgykYf+c1YTme8JuC8fcfZVUeNHTdzeDv509Iyea+oWL8Xa1B0cyX
RMX4O8+JkeoN01SMv0uson/hQOcHg79Pxk284ztMXcbHGfw77FFMgP58BcLg
37sFdqw5OHUF49/3DQW+4a+WYvx72+yLUa2MTyDN6ZRr+qsNxCtl+uePUDC+
Xb/G6GdoNQXj25OvHj4MkKNifPv5+gs7uUKoGN9OSggrzcJRMb4dU3/2ae4Q
FePb6ZYNvt0/qRjfLp74Uknpoi7jz5Hi1wZXKvXANi2P4lwKFW5mGGknPqKA
vltyrP0sFR7Q5n85EKkQ0zgo1Y8+H7Fzi5slxtG6Ueq1790JKnA5zu4+gt4n
16/TqTa/qMt4LYOvnjIhP+5mzkUYfHWh1L5XQSAN46v7HbX2H9SpxPjqhxU0
D3G7Royvmu9YX+Ho04LxVZzP/Qcf1f/gq6Sk02XtXmSsn+OWvoyH86UOrJ8j
7RzzAUp7J9bPYUxavWuDUDfWz3HA/CClbHMP1s8x8ZbvA3dnD8ZrBS6bbm7w
oWC8Nl/X2sNzjoLxWsMO58UUtA5h8Frh8CMy8JqK8dpd1F+zv1uoGK/V2r7l
fcsUFeO1ylHTIx/R+oXBa7Vo8Ro5OtRlPJXBS9eqVwm0XqtCGLyUnK/uye7r
jjB46cnppBk1cjHGS+fT75wZEPmE9XOoscoqI/soGA/dqc3UuB6hYDz02tvw
Hn1pKsZDsw18byTcoWI8dGbaJ4NYQsV4qHX0UfGWASrGQ8ev7jHkQ+cfg4fa
fTwQUU+nLuOVAb5UJSWJHljdx5sW2E2F6vbX+nreFMj4tjh8dYYKFP58aX90
nisXmN/BofOPO8Pe1boNHZcsIs+XMfR5Rx7fOyJMBV6kV70DzYdL+d5tP6nw
N1FoXai45tc59Pq5oS55lVkKnM6y0I6Yp4JCunKjyQgVCHhhxVn0fOWJ9zse
nqRC1vV6sSF0Pi/lZQy+RbJh4hq6kIcw+Jb+i0Q6HEnF+JbWek5qwHwFxre2
5x7paRBrxPgWQv8+Y3WpBeNb24Pe2W//L3zrURVV5sNVMtZf8pXdWC/OqAPr
L7GWs338EK0zGP0l0e2LGbt4urH+kr36tzM38/Rg/SWG3JoXFYk9GC/bw+SQ
E+hJwXjZNda6sM5vFIyXCdI/DbGYUDFe9m7jmgavBCrGy+6ckfpQQKBivOzC
umojaXQ+M3jZEalan3vofGbwMs9Az813jKnLeBaDV6UpmvSek6lGGLzKYWFb
i51KAMLgVYWqgyFia4sxXmXLGqp4ur0W6y8xir08/QiNKwaPMi2xeaNSRMF4
1IndP12l9lAxHnU65vmipT8V41FbrmeXmRVTMR7ldZhk1EGjYjxK/2QL+QNa
nzF4lLJw+3wZeryUF91KjRw7v6UH0mYvGdig+XZ8vK51hysFtl7snhlE6xHW
LN6ae3lUGJR1HU9B59uanu0i/vU9EK5DCBJC53NAypXM0o1UqBGOPxOKzuel
fOW9wH2JzIdUaKiZjJBDr986v6Jw0wQFZk/sl1FA57O1Rtyli2geF1q4pj6J
nv9sTHh7UQmtI30viL1F5/NSXvFLR8240pMKFyZn1w+h43XwXN6Vjet7IeL0
E0nSIBVyvY0jPeqokBEcPNGCfp/xUPPsC3QeMD/UknRHj7k20uT0v1IhwYTK
9Qs9XsoLGPq+lliG4uTafISh7++x3Ws0o/Ee0/eVPs58HCVUYPq+Zjxr98iK
RkzfX2FkF15v1ILp+1/dtZ+f+i/6Pkl9Iofdmoz1x5w5MHVSyqAD648hrf8q
T63pxPpjkOPHBTM5urH+mCgJFceyDT1Yf8z2iPiXOoQejBcsNqn7mt+gYLwA
ygcjWacpGC+YZntvkW5ExXhB/cmq0uhXVIwXELedFeZB44XBCz6I1xV3outX
Bi+4/a7u4TX0+TN4Qfg5W//PZtRlej5Dr68SYbrvEF6NMPR67gHbzWqNIQhD
r8+veSzfkVCE6fXGDu/xLdm1WH9MO3NH8OwuCqbHX2ElaJl8pGB6PKJQ6h61
i4rp8Tpx5OvgR8X0+BVNchwJRVRMj5d3Ut5zHo0Xhh6v6tRy5Mb/x3pmqV4+
o/K17DN/D5S1sjUS0fqdabaHl9uRAi563yNfofEi5Hv8SVgmFYreHKfHodcH
uPrObKjugY4II7ZMtB6OyvH6+o6TCnncimts0N9Zqi/jhj9+y71LBY3o2N2i
6PWyqzbOM49QwNTpZR07Gi83+Br3XelA3zukcy9H/nF/1gOjumjd9zvanxyM
xstSvZZb6Lr4p+vo+S8j1nh0vHDFjc3P1vaCX9BFCzx6P3WaIVZeVVTwdeje
Uod+n2P2YkXCCyps43g6b4Me7+jnWnEOrZvwtx3v/0SPl+qlbXcXnseu6oUz
46trq79R4evA4M9A9DkHDWRuyUM/r+PlFG2OPueimKc7pv+xPszYXefSjK5j
dHBfO9HjBfWcy1po3YbUNOMX0eOleiSDjyz+/sc/KnbMHPBJxarj0788NpC+
bJe+tgDpG+Qtjl3ZC0pybcHVP5ePL+Pzz0NVo1vR57dUz2LoL+M72X5GBtQg
DP3leUnPoxv3KhGG/tIodPzZ/vEyhKG/PMlo5JFxRRCG/sIU52G+c3cRwtBf
VMZzcRxP8hGG/iK+ryom1jYHYegv+WkswVkGmQhDfzHVDBvKuP0BYegvjq9/
Cr9/+BZh6C/FuXRvU/fXCEN/ObBiQnloOB5h6C+ET6afFdmfIwz9xeZc9AGR
0KcIQ38ZIMcNbHMMRxj6SzBn/DE30xCEob8MidfYKhX7Iwz9hUcqaNboowfC
0F92CXJ7btjmiDD0l7Wl5qK2spYIQ3+ZSRmYCUzSRhj6i5XJXOTZ3TKYXrku
zEdhamVa8SaaYD3XpjFQF+uaOebwABlW8I7RKB0Do2mzMtWhAGTmyDYmn0vj
cGVvd7CeqjeiNsS6kLZ+AlrvNh3iF3FFVu8sivFLm4CS1oKAl1K2iKOA/Sev
M5No/fSWdequIcKXb/7w+vwkGAtzR3zfcgxh6BMN7K3jVXMbkKrSS5LcE5/h
hL+ZcWLUQ8Qg+7a+VOQYkAlWmuujghCWCg0+JoVxeHiGX8JJzA/hWjtuyzs4
Dvx3dZUPn7+OdFl5m2cFTUCPsjJna7AdMnRRf0Jr1yR8dZp8X5F5ATkVx8S2
q3USMha220p/UUMY6/lVm7X8EjaKIqM5c6Pz4eOwaPShgsPOE7lVvj1c4+AE
XLQ/PWfBeg2RHZsj6bRNwDfHrWE3uC4is81BSam+k2AQVT65eswA6W8u5S3f
Tof6p+ecW88dQhjra+N3xG/P6+mlsalrTR+T0b+vXsv2Yn4YEuK0Skr49hjc
fyPwXP1GMHJvtdm2Y2LjUKW10/flhB8yI0jZUoMfB4e9Gjt7A92Raj/KsXqX
CXgT9mivn5Y9IrpW9XcOzyRcX3HHp/imOTLERahciUxCYblfkJK0JsJYj7Z3
flnDly6BOM+t+3701jjUn/E79pVwC7EgblRb2DYB9xrc4jw2uCBCa0wKbMsn
IGPox+rOZ5cQ2es383ntJqHbXtz0zq6ziNfxMMLzDXTYa/iqr5dLEWGsDzWO
2jXso69AMnbLnNIdngSEtCtt8PNx5ERPm9DdMDrMcOc/3rFuM3LywqThiDwd
CvJPjY+tkUMY679LSmo6KrnNpcHbTa+3NHwGYfrGzGCxcCShsVpg040xqBDU
mFH6HIzoSIwkW24eB7FAb0PlM/7IqBj5Rnz1OPyyCtvpv9UDKdqwIZt8eQJC
lTzuf5JzQHAXFNlG2SZBc3yhwvG6BZJ96nAiPWcSHjI5aub0n0IY6yXFjL7T
hywkkf0CzzxNndHvm/lxD3/XCzndw/GKxD8BcOjQ3txIF4Qr6t4ut4IJ8BW9
dK7JwgbB17jgTppPgkBJeIDH2XOIhvdsesgqOqSUjA/ORQHCWL94WUe9q73G
hvhcjNp1tGcS+HQFuG7YnEDa1hxi1Qygw6+rvJQ7xluRjZHnDpKk6NBvcl3j
rehBhLE+UZysJit095X+sPrZVe9Ahzj1ynULyuKI4+KXkMoaOpxnSqvooM6V
5mRcl62NoUN4ROCnlyq8CGM9QuI5bXcoJb10wSzI36XmM5TNnBQ/qhGOZHi9
ecTrOgaPfSVqM7eHIDKHP4xO8YzDyvKTL3lC/BGrd6d3hJaNg2IUJ2fyVQ/k
oOGbsR7rCUhdmZhun+KAcKwuXHeHeRI+fB16b9pqgcRcduAeSkfnC1GvTK9c
C2HU76fJr3YwG0gjvHsulEzYjUOb/DvR4iEvpMHyvk459wRMsa/w39blgjyg
ilp5Zk/AAcfHPEXVNojwNXplv/EkqDyVWJM4eQ6Ridkj7MuE/j3hdkGersoI
o56+rDq08x3vOuSif0OUbPskJL5e0xu6Sw0Rjr/sleJDh7Gwl/eHo0SQhax7
SfUSdDhaNGmsc1geYdTLp6rscqNOj5Sq/NitL3mZDlJR4/6p9B1IXsS2RbFy
Omzqdn5lv3WxdEEt+Y3EU/R621N7piL5EEZ9fGxyEw+5paz0ZNntkcE8OnS/
eVO6gnMVsnLDolI/jQ7XaB0y3z+1l4pfxvFcbKTD9K6KCzai30oZ9W/bXs+X
A6/DSvMXYoLLKz8Dl0dOx9vz4chBIn/jY+cx+JZ4cP1d5RAkvmwDuwLXOCiw
qHJuTfBHXo5xeTMj47Df4TDi8NgDmfacZrW0nIDOmWn+uEEHJM9kjgPPNAkL
+z+xIystkfUerJqWHyaB4Dq288Z+bYRRL0bhT39V0N+LBGaXUg5cHgfcszsH
rm30Rta81kg6xDkBqjfe7Ln/ywXRYHby+ZUxAb9+92hz/LRBqqukavYaTsJ2
9y/Jq44aIolvq879/DUJ3kJlBidrlRFG/da7w4wUurgeaQ+zwX8gTYKvVn2G
/QM1RHWMKb/zFh0mhGsa9p3dhjiVifWo7aBDaQZHs1yNPMKoz4p/0CW86WOl
NqoV9y9cooOkTdMTjcadSCf146GzCB1sqRPJgh5MiMhjpX6jx3QQfSF4wrGR
H2HUY2ODgzXJqrWl9usEt/PloO8/ra97KgtWIztMIm9y99FBZvvTH0orKKWa
2UY6EXV0WBvw+grTtZlSRr31Y7FWWaHpVanzl+pJly50/v1qi+qZHSjVesYi
MDVFh9qOjS3CSEEppeISS9YQurRfZ33bnZtYyqin3IVIfc8SnErpd21kLqyq
xPjg0mMulmOcLGV92DHv29Vr8+SKseM6O0Oehmt/nP8/THFSsw==
   "], {{{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, 
     {GrayLevel[0.5], EdgeForm[None], 
      GraphicsGroupBox[PolygonBox[CompressedData["
1:eJwV1XV4lWUYB+AzFmBQ0iEwQKWkW5TuHihKbqNrA0ZtYyMUBVFURAGnl0iM
sPW6LAxSBEaXpIndAo72fv+4eX7Pb+++feecbyw+OTUhpUAkEoninH82R0ci
rWIjkRMxkcgjtKYw/+i3sJV7ff2kbj5tKMK/+m3c52un7I/SlqKc1w/Qn5df
ZiA12K5vrT8tP0Y7ipGiu4X35MlccO5B+wV5JYOoSbquNFvkWexwro39jLyA
9hQnVXcr78tTuOjcQ/aL8isMDvdrr8Y+uRYZchm2ysvNJmTJT5g1OSK/ZLbk
c9dra54Nr89caD5j1mU9HexzzUqsZZd9hdmU17jNPskszCo+sD9nNmQDafaF
5p3kctCeYzbnPz97YJi6VSyVGzAkvKdmdfbLtcmUy7JNzuZJuRZH5Z2u007+
Sn6cjsyzV2a3XCJ8FnIRPpSnku97Btnz5dUMpU74LHTl2C7P5gvn2tu/lhfR
iZLhs9AV5SN5GpecG2y/JK9hGHezS99B/014/+lMKdJ0xdgkT+eyc0Psl+W1
JFKX3fqO+m/Da6YLpbmiH6q/IueSRD2ydOXZIc9hsVybY/Ie39NJ/i48i+Zi
c4lZj67yw2YV9shlwvskF+djeQZXff8w+1V5HcnUJ0/fWf+9/BTdKMs1/V72
sZ8DHOQQXZw/58zTdKcc1/WJ+mvyeobTgMP6rvofwrNJj/D7bY8nTy4fPoPw
LLKaT+zPm43YyMzwXJh3cUi+4XpJ8nV5AyNoyBF9N/2P4X2hJxWIhNeqv2Fu
ZCSNOOp8d/1P8rP0oiJR4d71EV6VR9GYY8730P0cnnV6czsFwj3oo8LvlDya
Jhx3vqful/A7RR8qER3uQV+A1+UxNOVL53vpfg2vn75UJibcgz6aN+SxNOOE
8711v8nLSKAKseEe9DG8KY+jOSed76P7XV5OP+KJC/egj+UteTwtOOV8X90f
8gr6U5WC4R70cbwtT6Alp51P0P0pv8D9VAu/H7oSfCqnUyjck70g78gTuYds
e4Xwf5o8lzOu18/+l5zDA1QPz7KuJJ/JGdwU7tleiHflFBbId3BAbsVsuSI7
5XnhOZfrcFw+6+f0l/+WXwzPglyfAfJ8syp7w2sym4XryjPNUqxhc3j/zcbh
eSHTvsiswToOh+uaLcLnzc3hGfB4hb992f7uZTGLTDJIJz/OzzBnMJ1pTCWN
KWxygcnmJFJJYSITyHPh8eY4xjKG0YxiJCMYTjJJLGEpy8hhJbkk8j9pX/Es

        "]]]}, 
     {GrayLevel[0.5], EdgeForm[None], 
      GraphicsGroupBox[PolygonBox[CompressedData["
1:eJwVzEkuw2EYwOHXtDBcwcKmVk4gdQgJYWFjXeoGSs1jRQiif6khxnTFHRzB
zqyo2QU8Fk++3/t+yds2mO0ero2IGgb471FDjjHGyTPBJFNMM8Msc8yzwCJL
LFPgkBLbbLDGKkfsUmSTdY7ZI2GLE/bZ4ZQDzljhuy6i3BDRScJVfUSHt0Be
X9Kqc3TpES5oMg/RotvpJ+GXXvsvdz/54J03qrzywjMVnnjkgXvuuOWGZrdS
9FHkhx63r/2ldZZzSnaNZPgDXsg5sw==
        "]]]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, 
     {GrayLevel[0.5], EdgeForm[None], 
      GraphicsGroupBox[{PolygonBox[CompressedData["
1:eJwNzdsvFnAcx/Efj2UqhRvK+SKHVDckhxsXyCE3T+R0YWuzdZAnN5SKC5vN
ZjnTDQq5cGWzmT8jUuFfEY/XxWvv3z77br/Cl7HoYGIIIYFJ4tdCSNKDSAjT
7NHLPuNsk0Q/U+xSRx8T7JDBI9oY4htnPinQWnoY4ycR0nnIM96zwqn7fK2h
my9skUgaD2glxjIn7vO0mi4+s0kCtymjhUGW+Oc+V6vo5BMbBG5xn2beschf
9zn6hBeM8oO4PVVLaWKABf7Ys7WSDj7ynUv7TS3hKW+Z59h+Vx/TzgfWubDf
0GIaecMcv+13tILnjLDGf/t1LaKB18xyZM/ScqIMs8q5PUXvUc8rZji0Z+rX
5BB+eV8BTRg6Ag==
         "]], PolygonBox[CompressedData["
1:eJwN0kVTFgAQBuAPkLADxA7CDsJWQsAOylZASrBRwg5ASlBnPBp3dazR0XH0
r9jdXcjJ5/Dse9id3cvGlFbl7w4OBAJBdBLK2XCFIIIJoRuhhBFOBN3pQU96
0Zs+VLGGdKYwikH0ZQ9rmc9URjOYfuxlHRkkEMMQ9lPIYmYwjv5Us55MEoll
KAcoYgkzGc8AathAFknEMYyDbGYps5hAJLVsZAHJxDOcQxSzjNlMJIo6NrGQ
aYzhKGWsZB4jOEwJy5nDJI6zhRxSGcg+CljEdBqoJI+xHKOcbFI4wTZWMZIj
lLKCZnYwl0a2kk8ru5hMPRWcJJcWdtJBGk1sp53VtLGbU0TT5ZEehAQCZ7hL
JR3cJotSWrhOPOkU0cgVIogmmTzquMg/ezv5yx9+84uf/OA73/jKFz7ziY98
4D3veMsbXvOKl7ygKywQeC6f8ZQnhLs7kCRyqeUCj/XiZBqFNHCZMCpo5xYZ
3Oc0dyjmHk1cJYoyWrlBIjnUcJ5H7sTKVAqo5xKhRJJANtWc46H5TFlCM9eI
oZw2bpLCf4pKanQ=
         "]]}]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}}, {{}, {}, {}, 
     {GrayLevel[0], LineBox[CompressedData["
1:eJwt0bVOXnEcx+HDgNvAgGtL2aBoi25sWJGQdCR4kQvA6czSEZcrwOUKuAAG
nHIFSAVGnpMwPPn8803e5M3v5PeMt49FBEHwk4XoIGjSKFKN57pIL5XkUGx/
0G0maMbPgjT7hS7RRxW5lNgfdYdJWogh3X6py/TzhTw+2590lylaiSXDfqUr
DPCVfErtz7rHNG3EkWm/1lUGqaaAMvsf3WeGb8STZb/RNYao4QPl9r96wCzt
JJBtv9V1hqnlIxX2f3rIHB0khrez3+kGP6ijMLyr/b8eMU8nSeHt7L91kxHq
+RTe1f6ix+/frIvk8Hb2e91ilAYabZGcev8Kb+mdzJl3UXhz71ft1pPwv2oK
33kDhIo4+g==
       "]], LineBox[CompressedData["
1:eJwl0sdOFGAUBeAZNYo1gIB1gwURsLOw94KiRog0wcYDgL2wtotiYn0AG1hw
L1bURCxRE3kABbvu7X43Lr6c85/MYnJnsmvrS+uSiUTiGftY5TGQl3o5y/W+
PNXPkEq29xt5njrmkct0+3d5k/1UkMYo+1t5gXrmM54Z9h+yjQNUks5oe5e8
yBYWkMdM+095i4NUMZgx9m55ia0sJJ9Z9l/yNodYRwZj7e/kZbaxiAJm23/L
Oxymmkxy7O9lM9tZzATm2P/IuxyhhizG2T/IFnawhInMtf+V9zjKeobE7ewf
5RV2spRJcdf4YbgvGtnA0Lid7ZO8yi6WMTnuak/Srh9jI8PidrbP8hq7KWJK
3NXegwf6cTYxPG5n+yKvsyf+A/GdbL15rJ9katzZuycP9SY2s8K7X/L//+ks
I+K23l9lK3vjM/GdbX3o0E8xLX4H71480k+wWh/EK72WYr0/z/VzlOhpdOoj
4zfRv8kblOrpNOgr5QBe6GUyk+K4g0yhkifea2UG1Zz2XiNTqeK1d7nMoobC
+B/If+uCV+w=
       "]]}, 
     {GrayLevel[0], Thickness[0.003], LineBox[CompressedData["
1:eJwVzFk2AgAYhuEf59iHJbECMoaEKFPGTIUoITInkR3YQgty2ePiOe939Q0l
0iMLfRExzKjR4oUHbrmmwhgJxplgkimmmSHJLHN0+yPmNcX/eZpFlvgdiFjW
DCuskiXHGn+DEeu6wSZb5NnGbezoLnvsc0CBQ4445oRTipQ445wLylzyySsN
7qhRpc0bj9S54Yt3nrjnmybPdPjghyt6uFktLA==
       "]]}, 
     {RGBColor[1, 0, 0], Thickness[0.005], LineBox[CompressedData["
1:eJwVztdLlmEAxuG3aeugHAVNbGBlloFtaCilkTSMhrbANpSDFkU2iLLE9oCy
BWVFpmlDIyqLdtDfUJmpBy2zDmxf38HF/Xy/533gi87MTstqEQTBa0odClsG
wRxiaMVH7Q1lXGe/NpeBtOaT9pZyDvg9j0G04bP2jpPOmSTQmWatgoPO8xlM
W75oF+waxtOdGu2UXcoIuvBTu2rXMZlobmiHbDqxhPFVu2jXMoEevNeK7DJG
Es5NtjKdX+5L7Hqm8IB8+lLJdmbxiILQW98fthk8Zgh32cUL2lHOZp4xjWr2
8opG74ttFk+ZyH328JKe3GYbz5nJQ/ZR6+1pu5xR3GM3Edwijxn89t01u4Fk
+lHFDtJC37o/YhcQR3sq2EIq39xfstlMohcftDN2BaOJ5I9WajeSQv/Qf9eO
2oUMpQNN2mWbQyK9qdPO2pWMIYq/WiXHnBcxjI58167YXJLoQ712zq5iLF35
p1Vx3Hkx8XTih9bAeefVjKMbAWVsYioDuMNOZofO3pywS3jCcP4Dum5npg==

       "]], LineBox[CompressedData["
1:eJwVzzsvA2AUBuDTSmxqZdOlP0BXNpPEIv0BdCQhMUm6ic0PYGUzSWzaKkpd
Wpe6tKiyY0c3T4cn78mb7yTnS+eXZ5cSEZGjlIxYZ4h9Cszw48GuXGGKMT51
23KBCUZIcKDflHOMk+JX90WREmUOqfTngYgjecwJVU45o0ZvMOJcXnDJFXUa
XHPDLXc0ueeBR55o0eaZF17p8EaXd7bcOE+WYf503+yYF5lklCR7rDJNpv9f
1shRZYMGH/b/ASFrNtA=
       "]]}, 
     {GrayLevel[0], LineBox[CompressedData["
1:eJwNyjkvGHAAxuG/IxH3saCuGtC6FlTp0qHUuVCqDBKJxH0szrYGk0RadbVL
qXMwSSTia1BH+Spo+wxPfsmbN79vvG0sIoSwyJeYENKjQjiPDOGrDvCGAmK5
t//UKdqoIIML+4oOUkchcTzYt3SadirJ5Lf9mw5RTxHxPNq3dYZ3VPGES/uq
DvOWZyTw1/5LZ+ngBVlc2dd0hAaek8g/+47O0Uk12Vzb13WURopJIrDLPO95
SQ43/hs6RhMlJBPBHh/pooZc/vhv6jjNlJJCJPt84gO15HHr/10naKGMVKI4
4DPdvOIpd/4/dJJWyknjiEV6ec0xS/QTzSELnNLDCcuc8R9XIzgi
       "]], LineBox[CompressedData["
1:eJwNzbcvBHAUwPEf4tiV/bBzZiXYtRk5R4iFRNkRLYQdtyMOIUT4V/Tee7/J
Z/jkO7yX96KJvubejBBCDxVZIWwwRSdRUozTTi0HmSHMaz/1lJJHNksM00Il
RRzaX9ABGihjnUk6yGeVMXaJs80se9SwyTRdRFhmhFaqKObIn0UdpJEYBeRw
bHbCKWekIyGc6wWXXHHNDbfccc8DjzzxzAuvvPHOB5988c0Pv/yR9HeIJsop
JJcVRmmjmhLWmCBBHVvM0M0Oc+yTdvcfnNI+3Q==
       "]]}, 
     {GrayLevel[0], LineBox[CompressedData["
1:eJwV1GWAVFUYBuC77C4hLd0sIN3d3c3SHbbigmIQ0qIgitggotJhdysp3d3d
tVLS+JwfD9973jlz986dMyQMGJSYFBNFUbJ/lsRGUe34KNoTF0WvUI/0XNYv
ZRl1vL5XN4H6ZOCKfjl1vbbP+lUakJGr+q76q/Kn9KA4K/T19Pvl12hIJpJ0
aflJfpZr9nWzviZ/Rk9KMEyXnaXyy6y0r771AXkijcjMIF06fpaf47p93a2v
y7PoFe7XujAb5ZIMl3OwTJ5mVmGk/IZZgu3yTLMm/7heA/Ng+HzmJPNtsywL
aWw91szPPNZYTzer8gUPWg820zObX6zfNyuyiCHWk8yizGeL9QyzOv/52z3C
1M3mPbkCvcMzNYuwSS7FCDkny+VRvCmXZIe8ynUayofk12nCOOsCrJWzhO9C
zsCv8vPc8J6e1jfkOfShdPgudLlYIY9mtX2NrA/Lk2lK1vBd6DLym/wCN+3r
ZX1TnktfyrBG31h/JDx/mpGNIbpM/C6/yC37elvfkufRj7Ks1TfRHw2fmeZk
57a+j/62PJ/+lGOkLjcr5TFMkUuxU17nPU3lY+EsmlPMd8xytJDHmwVZJ+cI
z0nOzB/yS9zx/r7Wd+QFDKA86/XN9Mflt2hJTu7qN7CRTWxmC1tpbv8Je6bS
ilzc0/fT35UX8jAV2KZvoT8Zziatw+/bOoH1cu7wHYSzyBz+tP7ArMRihoZz
YRZjq3zf9frL9+RFPEJFtutb6k+F50Ib8hCFz6q/by7mUSqxw/5W+tPyu7Ql
LzHh3vURn8uPUZmd9rfWnQlnnXbkI0W4B31M+E3Jj1OFXfa30Z0Nvynak5/Y
cA/6FHwpP0FVdtvfVncufH46UIC4cA/6WL6Sn6Qae+xvpzsvf0giBYkP96CP
42v5Kaqz1/72ugvyNDqSQMpwD/p4vpGfpgb77O+guyhPpxOFSBXuQZ+Sb+WB
1GS//Ym6S/JHdKZw+H3osvCXPIzU4Z6sU/Gd/Ay1GGWdJ/yfJo/lgOt1tE6W
Z9CFIuEs67LytzycNOGerVPzvZzERPkhNsu1GS3nZZU8LpxzuTS75IP+Tif5
X/njcBbk8nSVJ5iF2BA+k1ktXFceamZjLkvC8zcrh/PCCOvJZnEWsC1c16wR
vm8eCGfA8Roop2EWP+gGUYdDXuysuyzPpBtFScthrx3hKMc4zglOcorTnOEs
5zjPBS5yiWS6uPYV1/qE7hQjXfgewr3xozyYuoyxzsdqeTxT5TLsDu83a4Uz
GZ6d6/4P9Uf9rA==
       "]]}, 
     {GrayLevel[0], Thickness[Tiny], Dashing[{0.001, 0.02}], 
      LineBox[{1455, 1489, 1488, 1487, 1486, 1485, 1484, 1456, 1457, 1458, 
       1459, 1460, 1461, 1462, 1463, 1464, 1465, 1466, 1467, 1468, 1469, 1470,
        1471, 1472, 1473, 1474, 1475, 1476, 1477, 1478, 1479, 1787, 1480, 
       1481, 1482, 1935}]}, 
     {GrayLevel[0], Thickness[Tiny], Dashing[{0.001, 0.02}], 
      LineBox[CompressedData["
1:eJwV0WVoVmEYBuAzdZs9FezcLLAL7HYGmDPAQp1dm4JdYGFgzG7BLrAwEBW7
G2d3YaKC8Vev98fFzfnuh/d8z3sSU9NT0mKiKPpKRnwU/YuNosy4KNrCONpT
ift+PyMX0Y+6FCTiAVsZTwcqk2n+rFxMf+pRiBgeso0JdKRKOMP8ObmEAdSn
MFl4xHYm0omq4Qzz5+VSUmlAEbKGed0FmcFAGlKUbDzWXZTLGEQjihHLE90l
uZzBNKY4cTzVXZYrGEITShDPM90VuZKhNKUk2XmuuypXMYxmlCIHL3TX5GqG
05zS5OSl7rpcwwhaUIZcYQd2MInOVOOV+RtyLSNpSSK5w17sZDJdqM5r8zfl
OkbRiiTyhF3ZxRRSqMEb87fkekaTTFnyhv3ZzVS6UpO35m/LDaTRmnIkhDth
D9PoRi3emb8jN5JOG8qH97KfmfQkX7g39jKd7tTmPYeYQ5/w7Ly7chNjaEuF
8L84wCx6kT/cNfuYQQ8+cZT51OEDh5lLX75wnIWh8557cjNj+cYJ2vGRI8zj
B6eoGHblIL+YzXdO8ofefOYYv1nAT07zlwLhW/MfngZ+gw==
       "]], 
      LineBox[{1708, 1778, 1663, 1773, 1722, 1623, 1589, 1510, 1746, 1695, 
       1650, 1610, 1576, 1555, 1511, 1512, 1513, 1514, 1515, 1516, 1517, 1518,
        1519, 1520, 1521, 1522, 1523, 1524, 1525, 1526, 1527, 1528, 1529, 
       1530, 1531, 1532, 1533, 1747, 1696, 1651, 1611, 1577, 1556, 1760, 1709,
        1664, 1624, 1590, 1766, 1715, 1670, 1630, 1771, 1720, 1675, 1777, 
       1726, 1783, 1534}]}, 
     {GrayLevel[0], Thickness[0.003], LineBox[CompressedData["
1:eJwNxGc3FQAAAND3QsgopMgekaKssmcIFTKzkpdVhDISsiKr4xz/2P1wb05o
pX85GAgErriOFEFuEUY4EdwmkiiiuUMMscQRzwpDNFFCFg+5yyrDNPOcbFK4
xw9GaOEFOaTyi0ne8JJCEvjJR1opJZdHbPGJTl7xhETWGOU1ZeSRxm+m6KKK
IpJYZ4w2ysknnW0+0001T7nPBuO0U8Fj/vCF99SRwQ7TvKWGZ+wzSy8NJLPJ
BB1Ucsg8Hyhgjxl6qOcvXxkgk11CvOOERWo5YoF+TvlOMQfMcU4f/1jikkaO
+cYFg5yxzH8ecAPsAy1D
       "]]}, 
     {GrayLevel[0.5], LineBox[{350, 351, 349}], LineBox[{718, 719, 717}], 
      LineBox[{958, 959, 957}], 
      LineBox[{1789, 1790, 
       1788}]}}, {{}, {}, {}, {}, {}, {}, {}, {}, {}, {}}}],
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesLabel->{
    FormBox["K", TraditionalForm], 
    FormBox["\"c\"", TraditionalForm]},
  AxesOrigin->{0, 0},
  AxesStyle->Arrowheads[{0., 0.02}],
  Epilog->{
    InsetBox[
     FormBox["\"1\"", TraditionalForm], {1.01, -0.04}], 
    InsetBox[
     FormBox["\"0\"", TraditionalForm], {-0.01, -0.04}], 
    InsetBox[
     FormBox[
     "\"\\!\\(\\*OverscriptBox[\\(K\\), \\(~\\)]\\)\"", TraditionalForm], {
     0.4, 0.65}], 
    InsetBox[
     FormBox[
     "\"\\!\\(\\*SubscriptBox[\\n StyleBox[\\\"c\\\",\\nFontSize->14], \\n \
StyleBox[\\\"WELF\\\",\\nFontSize->8]]\\)\"", TraditionalForm], {0.25, 0.15}], 
    InsetBox[
     FormBox[
     "\"\\!\\(\\*OverscriptBox[\\(K\\), \\(^\\)]\\)\"", TraditionalForm], {
     0.1, 0.65}], 
    InsetBox[
     FormBox[
     "\"\\!\\(\\*SubscriptBox[\\n StyleBox[\\\"c\\\",\\nFontSize->14], \\n \
StyleBox[\\\"TEST\\\",\\nFontSize->8]]\\)\"", TraditionalForm], {0.6, 0.2}], 
    InsetBox[
     FormBox["\"(false negatives)\"", TraditionalForm], {0.35, 0.45}], 
    InsetBox[
     FormBox["\"(false positives)\"", TraditionalForm], {0.55, 0.05}], 
    InsetBox[
     FormBox[
     "\"\\!\\(\\*OverscriptBox[\\n StyleBox[\\\"c\\\",\\nFontSize->14], \\\"~\
\\\"]\\)\"", TraditionalForm], {0.7, -0.12}]},
  LabelStyle->Directive[FontSize -> 8],
  Method->{"AxesInFront" -> True},
  PlotRange->{{-0.05, 1.05}, {-0.19, 1.1}},
  PlotRangeClipping->True,
  PlotRangePadding->{Automatic, Automatic},
  Ticks->{{{0, 
      FormBox["0", TraditionalForm]}, {1.01, 
      FormBox["1.01`", TraditionalForm]}}, {{-1, 
      FormBox[
       RowBox[{"-", "1"}], TraditionalForm]}, {1, 
      FormBox["1", TraditionalForm]}}}]], "Output",
 CellChangeTimes->{
  3.7657919963259907`*^9, 3.765792069043545*^9, {3.7657921031762443`*^9, 
   3.765792131811667*^9}, 3.7657922955706787`*^9, 3.7657927474795313`*^9, {
   3.7657927800694013`*^9, 3.765792806076847*^9}, {3.7657928972415447`*^9, 
   3.765792923136278*^9}, {3.765792971699719*^9, 3.7657929850560274`*^9}, {
   3.765793024075673*^9, 3.765793066942028*^9}, 3.765793122573807*^9, {
   3.7657968926836753`*^9, 3.765796911542176*^9}, {3.7657969776295166`*^9, 
   3.765796985409707*^9}, {3.765797048005252*^9, 3.765797123049579*^9}, {
   3.765797198205574*^9, 3.765797232146796*^9}, {3.7657972836440196`*^9, 
   3.7657972943872857`*^9}, {3.7657973286905394`*^9, 
   3.7657973584519825`*^9}, {3.7657974375883408`*^9, 3.765797484408062*^9}, 
   3.765817622819845*^9, {3.765855212170449*^9, 3.7658552241075015`*^9}, 
   3.7659726331648207`*^9, 3.765973104643571*^9, {3.7659731660463133`*^9, 
   3.765973197726529*^9}, {3.7840178905923777`*^9, 3.784017907319359*^9}, 
   3.7840179862230225`*^9, {3.784018097938904*^9, 3.78401816592198*^9}, {
   3.7840181990318127`*^9, 3.784018217131648*^9}, {3.784018272716749*^9, 
   3.784018298224736*^9}, {3.7840183358224516`*^9, 3.7840183651611676`*^9}, 
   3.7840184396311383`*^9, 3.7840184809531727`*^9, {3.784018539922658*^9, 
   3.784018554459676*^9}, {3.784018596184574*^9, 3.7840186651118526`*^9}, {
   3.7842912860700955`*^9, 3.784291305916988*^9}, {3.784291339965063*^9, 
   3.784291379683366*^9}, 3.7842914683801556`*^9, {3.784291690601736*^9, 
   3.7842917373687477`*^9}, 3.784445912136052*^9, 3.7844598564920692`*^9, {
   3.784459904505658*^9, 3.78445994354055*^9}, {3.784460026613299*^9, 
   3.784460072946377*^9}, {3.784460145821603*^9, 3.7844601860460567`*^9}, 
   3.784460263997652*^9, 3.7844634388371506`*^9, 3.7847064207443123`*^9, {
   3.7847064599005876`*^9, 3.7847064855962257`*^9}, {3.784706533614437*^9, 
   3.7847065439843006`*^9}, {3.7847066081193113`*^9, 3.784706742736467*^9}, {
   3.784707373280252*^9, 3.78470739503572*^9}, {3.7847074341894927`*^9, 
   3.784707453832493*^9}, {3.7847075119503517`*^9, 3.7847076373864727`*^9}, {
   3.7847077313797855`*^9, 3.784707779841053*^9}, 3.7847078118088207`*^9, {
   3.784707889938738*^9, 3.7847079153657084`*^9}, {3.7847079711835766`*^9, 
   3.78470802494291*^9}, {3.7847082337409964`*^9, 3.784708343428296*^9}, 
   3.785062546180831*^9, {3.785062592650032*^9, 3.785062618045125*^9}, 
   3.785062816751819*^9, {3.785062882074434*^9, 3.7850629162750072`*^9}, 
   3.7850629654408913`*^9, 3.7850642265495577`*^9, 3.785064280911538*^9, 
   3.785173254677305*^9, 3.785173306278203*^9, 3.785227847905038*^9}]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["\<\
The Local-as-efficient Test and figure 4\
\>", "Section",
 CellChangeTimes->{{3.6609772427701063`*^9, 3.660977245635023*^9}, {
   3.6953576318725967`*^9, 3.6953576323561993`*^9}, 3.7235333374468145`*^9, {
   3.7242473342897243`*^9, 3.7242473377307477`*^9}, {3.724247390075876*^9, 
   3.7242474036244593`*^9}, {3.7265552161009912`*^9, 
   3.7265552298439913`*^9}, {3.732889799276472*^9, 3.732889806527178*^9}, 
   3.7328898472823796`*^9, {3.765018068435666*^9, 3.76501806969728*^9}, 
   3.7658175351534314`*^9, {3.7658178129745274`*^9, 3.7658178161659846`*^9}, {
   3.7675306575742598`*^9, 3.767530657675946*^9}, {3.784016477000146*^9, 
   3.784016477044635*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", 
   RowBox[{
   "The", " ", "required", " ", "K", " ", "with", " ", "the", " ", 
    "constrained", " ", "exclusive", " ", "price"}], "*)"}], 
  "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"D", "[", 
       RowBox[{"v", ",", "q2"}], "]"}], "/.", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"q2", "\[Rule]", "0"}], ",", 
        RowBox[{"q1", "\[Rule]", "q1mon"}]}], "}"}]}], "/.", 
     RowBox[{"p1", "\[Rule]", "p1econstr"}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"qe1", "/.", 
     RowBox[{"p1", "->", "p1econstr"}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"p1econstr", "*", "%"}], "-", 
     RowBox[{"(", " ", 
      RowBox[{
       RowBox[{"k", 
        RowBox[{"(", 
         RowBox[{"0", "+", 
          RowBox[{"(", 
           RowBox[{"%%", "-", "p1econstr"}], ")"}]}], ")"}]}], "+", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"%", "-", "k"}], ")"}], "p1HTestconstr"}]}], " ", ")"}]}], 
    ";"}], "\[IndentingNewLine]", 
   RowBox[{"(*", 
    RowBox[{
    "First", " ", "we", " ", "see", " ", "the", " ", "case", " ", "of", " ", 
     "exclusive", " ", "constrained", " ", 
     RowBox[{"price", ":"}]}], "*)"}], "\[IndentingNewLine]", 
   RowBox[{"tmp", "=", 
    RowBox[{"FullSimplify", "[", 
     RowBox[{"Solve", "[", 
      RowBox[{
       RowBox[{"%", "\[Equal]", "0"}], ",", "c"}], "]"}], "]"}]}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{
      RowBox[{"tmp", "[", 
       RowBox[{"[", 
        RowBox[{"1", ",", "1", ",", "2"}], "]"}], "]"}], ",", 
      RowBox[{"tmp", "[", 
       RowBox[{"[", 
        RowBox[{"2", ",", "1", ",", "2"}], "]"}], "]"}], ",", "cpe1constr"}], 
     "}"}], ";"}], "\[IndentingNewLine]", 
   RowBox[{"Manipulate", "[", 
    RowBox[{
     RowBox[{"Plot", "[", 
      RowBox[{"%", ",", 
       RowBox[{"{", 
        RowBox[{"k", ",", "0", ",", "1"}], "}"}], ",", 
       RowBox[{"PlotRange", "\[Rule]", 
        RowBox[{"{", 
         RowBox[{"0", ",", "1"}], "}"}]}]}], "]"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"\[Gamma]", ",", "0.5"}], "}"}], ",", "0", ",", "1"}], 
      "}"}]}], "]"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"cTESTconstrLocal", "=", 
     RowBox[{"Piecewise", "[", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{"tmp", "[", 
           RowBox[{"[", 
            RowBox[{"2", ",", "1", ",", "2"}], "]"}], "]"}], ",", 
          RowBox[{"\[Gamma]", "\[LessEqual]", "0.5"}]}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"tmp", "[", 
           RowBox[{"[", 
            RowBox[{"1", ",", "1", ",", "2"}], "]"}], "]"}], ",", 
          RowBox[{"\[Gamma]", ">", "0.5"}]}], "}"}]}], "}"}], "]"}]}], 
    ";"}]}]}]], "Input",
 CellChangeTimes->{{3.7658019131766834`*^9, 3.7658019815001855`*^9}, {
   3.765802021060556*^9, 3.765802071441811*^9}, {3.7658021015676346`*^9, 
   3.765802123409256*^9}, 3.7658021593082447`*^9, {3.765802726176676*^9, 
   3.7658027263591366`*^9}, {3.765802903003643*^9, 3.765803012293025*^9}, {
   3.784463356061365*^9, 3.784463357703664*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"c", "\[Rule]", 
     RowBox[{
      FractionBox["1", "4"], " ", 
      RowBox[{"(", 
       RowBox[{"2", "+", 
        RowBox[{"k", " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"-", "3"}], "+", 
           RowBox[{"6", " ", "\[Gamma]"}], "-", 
           RowBox[{"4", " ", 
            SuperscriptBox["\[Gamma]", "2"]}]}], ")"}]}], "-", 
        SqrtBox[
         RowBox[{"k", " ", 
          SuperscriptBox[
           RowBox[{"(", 
            RowBox[{"1", "-", 
             RowBox[{"2", " ", "\[Gamma]"}]}], ")"}], "2"], " ", 
          RowBox[{"(", 
           RowBox[{"4", "+", 
            RowBox[{"k", " ", 
             RowBox[{"(", 
              RowBox[{"1", "+", 
               RowBox[{"4", " ", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"-", "2"}], "+", "\[Gamma]"}], ")"}], " ", 
                "\[Gamma]"}]}], ")"}]}]}], ")"}]}]]}], ")"}]}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"c", "\[Rule]", 
     RowBox[{
      FractionBox["1", "4"], " ", 
      RowBox[{"(", 
       RowBox[{"2", "+", 
        RowBox[{"k", " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"-", "3"}], "+", 
           RowBox[{"6", " ", "\[Gamma]"}], "-", 
           RowBox[{"4", " ", 
            SuperscriptBox["\[Gamma]", "2"]}]}], ")"}]}], "+", 
        SqrtBox[
         RowBox[{"k", " ", 
          SuperscriptBox[
           RowBox[{"(", 
            RowBox[{"1", "-", 
             RowBox[{"2", " ", "\[Gamma]"}]}], ")"}], "2"], " ", 
          RowBox[{"(", 
           RowBox[{"4", "+", 
            RowBox[{"k", " ", 
             RowBox[{"(", 
              RowBox[{"1", "+", 
               RowBox[{"4", " ", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"-", "2"}], "+", "\[Gamma]"}], ")"}], " ", 
                "\[Gamma]"}]}], ")"}]}]}], ")"}]}]]}], ")"}]}]}], "}"}]}], 
  "}"}]], "Output",
 CellChangeTimes->{
  3.7658021281844683`*^9, 3.765802160030264*^9, 3.7658027268977165`*^9, 
   3.7658027764727345`*^9, {3.7658029834511137`*^9, 3.7658030129748363`*^9}, 
   3.7658176242689433`*^9, {3.7844633405268173`*^9, 3.7844633585469985`*^9}, 
   3.78470835853011*^9, 3.78506301216043*^9, 3.785173320418235*^9, 
   3.7852278596361036`*^9}],

Cell[BoxData[
 TagBox[
  StyleBox[
   DynamicModuleBox[{$CellContext`\[Gamma]$$ = 0.5, Typeset`show$$ = True, 
    Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", 
    Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = 
    "\"untitled\"", Typeset`specs$$ = {{{
       Hold[$CellContext`\[Gamma]$$], 0.5}, 0, 1}}, Typeset`size$$ = {
    486., {156., 165.}}, Typeset`update$$ = 0, Typeset`initDone$$, 
    Typeset`skipInitDone$$ = True, $CellContext`\[Gamma]$52611$$ = 0}, 
    DynamicBox[Manipulate`ManipulateBoxes[
     1, StandardForm, "Variables" :> {$CellContext`\[Gamma]$$ = 0.5}, 
      "ControllerVariables" :> {
        Hold[$CellContext`\[Gamma]$$, $CellContext`\[Gamma]$52611$$, 0]}, 
      "OtherVariables" :> {
       Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$, 
        Typeset`animator$$, Typeset`animvar$$, Typeset`name$$, 
        Typeset`specs$$, Typeset`size$$, Typeset`update$$, Typeset`initDone$$,
         Typeset`skipInitDone$$}, "Body" :> 
      Plot[{Rational[1, 4] (
          2 + $CellContext`k (-3 + 6 $CellContext`\[Gamma]$$ - 
            4 $CellContext`\[Gamma]$$^2) - ($CellContext`k (1 - 
             2 $CellContext`\[Gamma]$$)^2 (
            4 + $CellContext`k (1 + 
              4 (-2 + $CellContext`\[Gamma]$$) $CellContext`\[Gamma]$$)))^
          Rational[1, 2]), 
         Rational[1, 4] (
          2 + $CellContext`k (-3 + 6 $CellContext`\[Gamma]$$ - 
            4 $CellContext`\[Gamma]$$^2) + ($CellContext`k (1 - 
              2 $CellContext`\[Gamma]$$)^2 (
             4 + $CellContext`k (1 + 
               4 (-2 + $CellContext`\[Gamma]$$) $CellContext`\[Gamma]$$)))^
           Rational[1, 2]), 
         Rational[1, 8] $CellContext`k^(-1) (-1 + 8 $CellContext`k - 
          4 $CellContext`k^2)}, {$CellContext`k, 0, 1}, PlotRange -> {0, 1}], 
      "Specifications" :> {{{$CellContext`\[Gamma]$$, 0.5}, 0, 1}}, 
      "Options" :> {}, "DefaultOptions" :> {}],
     ImageSizeCache->{551., {219., 226.}},
     SingleEvaluation->True],
    Deinitialization:>None,
    DynamicModuleValues:>{},
    SynchronousInitialization->True,
    UnsavedVariables:>{Typeset`initDone$$},
    UntrackedVariables:>{Typeset`size$$}], "Manipulate",
   Deployed->True,
   StripOnInput->False],
  Manipulate`InterpretManipulate[1]]], "Output",
 CellChangeTimes->{
  3.7658021281844683`*^9, 3.765802160030264*^9, 3.7658027268977165`*^9, 
   3.7658027764727345`*^9, {3.7658029834511137`*^9, 3.7658030129748363`*^9}, 
   3.7658176242689433`*^9, {3.7844633405268173`*^9, 3.7844633585469985`*^9}, 
   3.78470835853011*^9, 3.78506301216043*^9, 3.785173320418235*^9, 
   3.785227859673958*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"D", "[", 
     RowBox[{"v", ",", "q2"}], "]"}], "/.", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"q2", "\[Rule]", "0"}], ",", 
      RowBox[{"q1", "\[Rule]", "q1mon"}]}], "}"}]}], "/.", 
   RowBox[{"p1", "\[Rule]", "p1mon"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"qe1", "/.", 
   RowBox[{"p1", "->", "p1mon"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"p1mon", "*", "%"}], "-", 
   RowBox[{"(", " ", 
    RowBox[{
     RowBox[{"k", 
      RowBox[{"(", 
       RowBox[{"0", "+", 
        RowBox[{"(", 
         RowBox[{"%%", "-", "p1mon"}], ")"}]}], ")"}]}], "+", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"%", "-", "k"}], ")"}], "p1HMonkbind"}]}], " ", ")"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"Solve", "[", 
  RowBox[{
   RowBox[{"%", "\[Equal]", "0"}], ",", "c"}], "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"cTestmonLocal", "=", 
   RowBox[{"%", "[", 
    RowBox[{"[", 
     RowBox[{"1", ",", "1", ",", "2"}], "]"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"{", 
   RowBox[{"cTestmonLocal", ",", "cpe1constr"}], "}"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"Manipulate", "[", 
  RowBox[{
   RowBox[{"Plot", "[", 
    RowBox[{"%", ",", 
     RowBox[{"{", 
      RowBox[{"k", ",", "0", ",", "1"}], "}"}], ",", 
     RowBox[{"PlotRange", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"0", ",", "1"}], "}"}]}]}], "]"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"\[Gamma]", ",", "0.5"}], "}"}], ",", "0", ",", "1"}], "}"}]}], 
  "]"}]}], "Input",
 CellChangeTimes->{{3.726988357328991*^9, 3.726988464220191*^9}, 
   3.726988512236991*^9, 3.727266320968094*^9, {3.732972712029488*^9, 
   3.732972782204488*^9}, 3.732973236466292*^9, 3.732973627155488*^9, {
   3.7400722937561464`*^9, 3.7400723872256513`*^9}, {3.7400734392299027`*^9, 
   3.7400734432004595`*^9}, {3.740114069881284*^9, 3.7401140836609297`*^9}, {
   3.765793708757765*^9, 3.765793722601737*^9}, {3.7657937600156717`*^9, 
   3.7657937693457174`*^9}, {3.7657952133624225`*^9, 
   3.7657952196087165`*^9}, {3.765796545546974*^9, 3.765796583239007*^9}, {
   3.7658022928046913`*^9, 3.7658024076951623`*^9}, {3.765802582652746*^9, 
   3.765802593815933*^9}, {3.7658027678856716`*^9, 3.765802770922556*^9}, {
   3.784463363488452*^9, 3.7844633641550245`*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"{", 
   RowBox[{"c", "\[Rule]", 
    FractionBox[
     RowBox[{"2", "-", 
      RowBox[{"9", " ", "k"}], "+", 
      RowBox[{"12", " ", 
       SuperscriptBox["k", "2"]}], "-", 
      RowBox[{"4", " ", 
       SuperscriptBox["k", "3"]}], "-", 
      RowBox[{"2", " ", "\[Gamma]"}], "+", 
      RowBox[{"6", " ", "k", " ", "\[Gamma]"}], "-", 
      RowBox[{"4", " ", 
       SuperscriptBox["k", "2"], " ", "\[Gamma]"}], "+", 
      RowBox[{"4", " ", "k", " ", 
       SuperscriptBox["\[Gamma]", "2"]}], "-", 
      RowBox[{"8", " ", 
       SuperscriptBox["k", "2"], " ", 
       SuperscriptBox["\[Gamma]", "2"]}], "+", 
      RowBox[{"4", " ", 
       SuperscriptBox["k", "3"], " ", 
       SuperscriptBox["\[Gamma]", "2"]}]}], 
     RowBox[{"2", " ", 
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{
         RowBox[{"-", "1"}], "+", 
         RowBox[{"2", " ", "k"}]}], ")"}], "2"]}]]}], "}"}], "}"}]], "Output",
 CellChangeTimes->{{3.765796551079214*^9, 3.7657965836319923`*^9}, {
   3.765802362658636*^9, 3.76580240840325*^9}, 3.765802594256729*^9, 
   3.765817624308837*^9, 3.7844633660692754`*^9, 3.784708361714507*^9, 
   3.785063015754524*^9, 3.7851733205744815`*^9, 3.785227862320363*^9}],

Cell[BoxData[
 TagBox[
  StyleBox[
   DynamicModuleBox[{$CellContext`\[Gamma]$$ = 0.5, Typeset`show$$ = True, 
    Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", 
    Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = 
    "\"untitled\"", Typeset`specs$$ = {{{
       Hold[$CellContext`\[Gamma]$$], 0.5}, 0, 1}}, Typeset`size$$ = {
    486., {156., 165.}}, Typeset`update$$ = 0, Typeset`initDone$$, 
    Typeset`skipInitDone$$ = True, $CellContext`\[Gamma]$52711$$ = 0}, 
    DynamicBox[Manipulate`ManipulateBoxes[
     1, StandardForm, "Variables" :> {$CellContext`\[Gamma]$$ = 0.5}, 
      "ControllerVariables" :> {
        Hold[$CellContext`\[Gamma]$$, $CellContext`\[Gamma]$52711$$, 0]}, 
      "OtherVariables" :> {
       Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$, 
        Typeset`animator$$, Typeset`animvar$$, Typeset`name$$, 
        Typeset`specs$$, Typeset`size$$, Typeset`update$$, Typeset`initDone$$,
         Typeset`skipInitDone$$}, "Body" :> 
      Plot[{Rational[1, 2] (-1 + 2 $CellContext`k)^(-2) (2 - 9 $CellContext`k + 
          12 $CellContext`k^2 - 4 $CellContext`k^3 - 
          2 $CellContext`\[Gamma]$$ + 
          6 $CellContext`k $CellContext`\[Gamma]$$ - 
          4 $CellContext`k^2 $CellContext`\[Gamma]$$ + 
          4 $CellContext`k $CellContext`\[Gamma]$$^2 - 
          8 $CellContext`k^2 $CellContext`\[Gamma]$$^2 + 
          4 $CellContext`k^3 $CellContext`\[Gamma]$$^2), 
         Rational[1, 8] $CellContext`k^(-1) (-1 + 8 $CellContext`k - 
          4 $CellContext`k^2)}, {$CellContext`k, 0, 1}, PlotRange -> {0, 1}], 
      "Specifications" :> {{{$CellContext`\[Gamma]$$, 0.5}, 0, 1}}, 
      "Options" :> {}, "DefaultOptions" :> {}],
     ImageSizeCache->{551., {219., 226.}},
     SingleEvaluation->True],
    Deinitialization:>None,
    DynamicModuleValues:>{},
    SynchronousInitialization->True,
    UnsavedVariables:>{Typeset`initDone$$},
    UntrackedVariables:>{Typeset`size$$}], "Manipulate",
   Deployed->True,
   StripOnInput->False],
  Manipulate`InterpretManipulate[1]]], "Output",
 CellChangeTimes->{{3.765796551079214*^9, 3.7657965836319923`*^9}, {
   3.765802362658636*^9, 3.76580240840325*^9}, 3.765802594256729*^9, 
   3.765817624308837*^9, 3.7844633660692754`*^9, 3.784708361714507*^9, 
   3.785063015754524*^9, 3.7851733205744815`*^9, 3.7852278623516226`*^9}]
}, Open  ]],

Cell[BoxData[
 RowBox[{"(*", 
  RowBox[{
  "The", " ", "white", " ", "area", " ", "is", " ", "the", " ", "one", " ", 
   "where", " ", "the", " ", "unconstrained", " ", "pricing", " ", "occurs", 
   " ", "in", " ", "exclusivity"}], "*)"}]], "Input",
 CellChangeTimes->{{3.7400728107906365`*^9, 3.7400728576583033`*^9}, {
  3.7400732644891996`*^9, 3.7400732655019054`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", 
   RowBox[{"Identifying", " ", "the", " ", "relevant", " ", "boundaries", " ", 
    RowBox[{"are", ":"}]}], "*)"}], "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"cpe1constr", ";"}], "\[IndentingNewLine]", 
   RowBox[{"cTEST", ";"}], "\[IndentingNewLine]", 
   RowBox[{"cTESTconstrLocal", ";"}], "\[IndentingNewLine]", 
   RowBox[{"cTestmonLocal", ";"}], "\[IndentingNewLine]", 
   RowBox[{"Manipulate", "[", 
    RowBox[{
     RowBox[{"Plot", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"%", ",", 
         RowBox[{"1", "-", "k"}], ",", "%%", ",", "%%%", ",", "%%%%"}], "}"}],
        ",", 
       RowBox[{"{", 
        RowBox[{"k", ",", "0", ",", "1"}], "}"}], ",", 
       RowBox[{"PlotRange", "\[Rule]", 
        RowBox[{"{", 
         RowBox[{"0", ",", "1"}], "}"}]}]}], "]"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"\[Gamma]", ",", "0.2"}], "}"}], ",", "0", ",", "1"}], 
      "}"}]}], "]"}]}]}]], "Input",
 CellChangeTimes->{{3.726988694148591*^9, 3.726988769746191*^9}, {
   3.726989344962191*^9, 3.726989383244591*^9}, {3.7272663886568985`*^9, 
   3.7272664217264986`*^9}, {3.732972789818488*^9, 3.732972803477488*^9}, {
   3.7329732807061377`*^9, 3.732973285330063*^9}, {3.7329735456883082`*^9, 
   3.7329735461693563`*^9}, {3.7329735793726764`*^9, 3.7329735831470537`*^9}, 
   3.7400714607374763`*^9, {3.7400724030006504`*^9, 3.7400724263517027`*^9}, {
   3.740073132385877*^9, 3.7400731376569405`*^9}, {3.740073471647107*^9, 
   3.7400734962816257`*^9}, {3.740073611596332*^9, 3.740073611904185*^9}, {
   3.7401142199156427`*^9, 3.740114239282143*^9}, {3.7405733711032915`*^9, 
   3.7405733782001762`*^9}, {3.765793920175313*^9, 3.765793967429928*^9}, {
   3.765793998380149*^9, 3.765794007121769*^9}, {3.7657965964227643`*^9, 
   3.765796653552947*^9}, {3.765796725453643*^9, 3.7657967516179075`*^9}, {
   3.765802446669272*^9, 3.765802449901623*^9}, {3.7658026866192975`*^9, 
   3.7658026918861303`*^9}, {3.7658027917469006`*^9, 
   3.7658028006071053`*^9}, {3.765803028755994*^9, 3.765803034177494*^9}, {
   3.7658031085980887`*^9, 3.765803128429944*^9}, {3.765803181236577*^9, 
   3.765803185344863*^9}, {3.7658032363366375`*^9, 3.7658032364632597`*^9}, {
   3.7658034330246525`*^9, 3.765803478210758*^9}}],

Cell[BoxData[
 TagBox[
  StyleBox[
   DynamicModuleBox[{$CellContext`\[Gamma]$$ = 0.2, Typeset`show$$ = True, 
    Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", 
    Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = 
    "\"untitled\"", Typeset`specs$$ = {{{
       Hold[$CellContext`\[Gamma]$$], 0.2}, 0, 1}}, Typeset`size$$ = {
    486., {156., 165.}}, Typeset`update$$ = 0, Typeset`initDone$$, 
    Typeset`skipInitDone$$ = True, $CellContext`\[Gamma]$52855$$ = 0}, 
    DynamicBox[Manipulate`ManipulateBoxes[
     1, StandardForm, "Variables" :> {$CellContext`\[Gamma]$$ = 0.2}, 
      "ControllerVariables" :> {
        Hold[$CellContext`\[Gamma]$$, $CellContext`\[Gamma]$52855$$, 0]}, 
      "OtherVariables" :> {
       Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$, 
        Typeset`animator$$, Typeset`animvar$$, Typeset`name$$, 
        Typeset`specs$$, Typeset`size$$, Typeset`update$$, Typeset`initDone$$,
         Typeset`skipInitDone$$}, "Body" :> 
      Plot[{Rational[1, 2] (-1 + 2 $CellContext`k)^(-2) (2 - 9 $CellContext`k + 
          12 $CellContext`k^2 - 4 $CellContext`k^3 - 
          2 $CellContext`\[Gamma]$$ + 
          6 $CellContext`k $CellContext`\[Gamma]$$ - 
          4 $CellContext`k^2 $CellContext`\[Gamma]$$ + 
          4 $CellContext`k $CellContext`\[Gamma]$$^2 - 
          8 $CellContext`k^2 $CellContext`\[Gamma]$$^2 + 
          4 $CellContext`k^3 $CellContext`\[Gamma]$$^2), 1 - $CellContext`k, 
         Piecewise[{{
           Rational[1, 4] (
             2 + $CellContext`k (-3 + 6 $CellContext`\[Gamma]$$ - 
               4 $CellContext`\[Gamma]$$^2) + ($CellContext`k (1 - 
                 2 $CellContext`\[Gamma]$$)^2 (
                4 + $CellContext`k (1 + 
                  4 (-2 + $CellContext`\[Gamma]$$) $CellContext`\[Gamma]$$)))^
              Rational[1, 2]), $CellContext`\[Gamma]$$ <= 0.5}, {
           Rational[1, 4] (
             2 + $CellContext`k (-3 + 6 $CellContext`\[Gamma]$$ - 
               4 $CellContext`\[Gamma]$$^2) - ($CellContext`k (1 - 
                2 $CellContext`\[Gamma]$$)^2 (
               4 + $CellContext`k (1 + 
                 4 (-2 + $CellContext`\[Gamma]$$) $CellContext`\[Gamma]$$)))^
             Rational[1, 2]), $CellContext`\[Gamma]$$ > 0.5}}, 0], 
         Min[
         Rational[1, 2] (-1 + 2 $CellContext`k)^(-2) (1 - 6 $CellContext`k + 
           12 $CellContext`k^2 - 4 $CellContext`k^3 - $CellContext`\[Gamma]$$ + 
           6 $CellContext`k $CellContext`\[Gamma]$$ - 
           8 $CellContext`k^2 $CellContext`\[Gamma]$$ + $CellContext`k \
$CellContext`\[Gamma]$$^2 - 4 $CellContext`k^2 $CellContext`\[Gamma]$$^2 + 
           4 $CellContext`k^3 $CellContext`\[Gamma]$$^2), 
          Rational[1, 4] (
           2 - ($CellContext`k $CellContext`\[Gamma]$$^2 (
             4 + $CellContext`k (-4 + $CellContext`\[Gamma]$$) $CellContext`\
\[Gamma]$$))^
           Rational[1, 2] - $CellContext`k (
            2 + (-2 + $CellContext`\[Gamma]$$) $CellContext`\[Gamma]$$))], 
         Rational[1, 8] $CellContext`k^(-1) (-1 + 8 $CellContext`k - 
          4 $CellContext`k^2)}, {$CellContext`k, 0, 1}, PlotRange -> {0, 1}], 
      "Specifications" :> {{{$CellContext`\[Gamma]$$, 0.2}, 0, 1}}, 
      "Options" :> {}, "DefaultOptions" :> {}],
     ImageSizeCache->{551., {219., 226.}},
     SingleEvaluation->True],
    Deinitialization:>None,
    DynamicModuleValues:>{},
    SynchronousInitialization->True,
    UnsavedVariables:>{Typeset`initDone$$},
    UntrackedVariables:>{Typeset`size$$}], "Manipulate",
   Deployed->True,
   StripOnInput->False],
  Manipulate`InterpretManipulate[1]]], "Output",
 CellChangeTimes->{{3.7657966451295156`*^9, 3.7657966540476604`*^9}, {
   3.76579674109505*^9, 3.765796754982936*^9}, 3.76580245483142*^9, 
   3.7658026925782948`*^9, 3.765802736871648*^9, 3.765802800911317*^9, 
   3.7658030348168216`*^9, 3.7658031289475174`*^9, {3.7658031818389654`*^9, 
   3.7658031857687283`*^9}, {3.765803439173191*^9, 3.765803471241395*^9}, 
   3.7658176243327723`*^9, 3.7844633694752393`*^9, 3.7851733206464834`*^9, 
   3.7852278677955008`*^9}]
}, Open  ]],

Cell[BoxData[""], "Input",
 CellChangeTimes->{{3.784708977538907*^9, 3.784708981923962*^9}, 
   3.784709428670143*^9}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", 
   RowBox[{"Defining", " ", "the", " ", 
    RowBox[{"test", ":"}]}], "*)"}], "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"cWelfare", ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"cTESTLocal", "=", 
     RowBox[{"Piecewise", "[", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"cTestmonLocal", ",", 
          RowBox[{
           RowBox[{"cTESTconstrLocal", "\[GreaterEqual]", "cpe1constr"}], "&&", 
           RowBox[{"cTESTconstrLocal", "\[LessEqual]", 
            RowBox[{"1", "-", "k"}]}]}]}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"cTESTconstrLocal", ",", 
          RowBox[{
           RowBox[{"cTESTconstrLocal", "<", "cpe1constr"}], "&&", 
           RowBox[{"cTESTconstrLocal", "\[LessEqual]", 
            RowBox[{"1", "-", "k"}]}]}]}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"Null", ",", 
          RowBox[{"cTESTconstrLocal", ">", 
           RowBox[{"1", "-", "k"}]}]}], "}"}]}], "}"}], "]"}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{"Manipulate", "[", 
    RowBox[{
     RowBox[{"Quiet", "[", 
      RowBox[{"Plot", "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"%", ",", "%%"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"k", ",", "0", ",", "1"}], "}"}], ",", 
        RowBox[{"PlotRange", "\[Rule]", 
         RowBox[{"{", 
          RowBox[{"0", ",", "1"}], "}"}]}]}], "]"}], "]"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"\[Gamma]", ",", "0.2"}], "}"}], ",", "0", ",", "1"}], 
      "}"}]}], "]"}]}]}]], "Input",
 CellChangeTimes->{{3.7658031592783074`*^9, 3.7658031630352974`*^9}, {
   3.7658032414787993`*^9, 3.765803255522358*^9}, {3.7658032906589003`*^9, 
   3.765803324836119*^9}, {3.765803402547134*^9, 3.7658034047044086`*^9}, {
   3.7658034826897783`*^9, 3.7658034891086583`*^9}, {3.765803747542333*^9, 
   3.7658037551956043`*^9}, {3.7658039990659075`*^9, 
   3.7658040049611363`*^9}, {3.765804035338915*^9, 3.765804039929571*^9}, 
   3.784708926165072*^9}],

Cell[BoxData[
 TagBox[
  StyleBox[
   DynamicModuleBox[{$CellContext`\[Gamma]$$ = 0.2, Typeset`show$$ = True, 
    Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", 
    Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = 
    "\"untitled\"", Typeset`specs$$ = {{{
       Hold[$CellContext`\[Gamma]$$], 0.2}, 0, 1}}, Typeset`size$$ = {
    486., {156., 165.}}, Typeset`update$$ = 0, Typeset`initDone$$, 
    Typeset`skipInitDone$$ = True, $CellContext`\[Gamma]$52952$$ = 0}, 
    DynamicBox[Manipulate`ManipulateBoxes[
     1, StandardForm, "Variables" :> {$CellContext`\[Gamma]$$ = 0.2}, 
      "ControllerVariables" :> {
        Hold[$CellContext`\[Gamma]$$, $CellContext`\[Gamma]$52952$$, 0]}, 
      "OtherVariables" :> {
       Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$, 
        Typeset`animator$$, Typeset`animvar$$, Typeset`name$$, 
        Typeset`specs$$, Typeset`size$$, Typeset`update$$, Typeset`initDone$$,
         Typeset`skipInitDone$$}, "Body" :> Quiet[
        Plot[{
          
          Piecewise[{{
            Rational[1, 2] (-1 + 2 $CellContext`k)^(-2) (2 - 9 $CellContext`k + 
              12 $CellContext`k^2 - 4 $CellContext`k^3 - 
              2 $CellContext`\[Gamma]$$ + 
              6 $CellContext`k $CellContext`\[Gamma]$$ - 
              4 $CellContext`k^2 $CellContext`\[Gamma]$$ + 
              4 $CellContext`k $CellContext`\[Gamma]$$^2 - 
              8 $CellContext`k^2 $CellContext`\[Gamma]$$^2 + 
              4 $CellContext`k^3 $CellContext`\[Gamma]$$^2), 
             And[
             Piecewise[{{
                 Rational[1, 4] (
                   2 + $CellContext`k (-3 + 6 $CellContext`\[Gamma]$$ - 
                    4 $CellContext`\[Gamma]$$^2) + ($CellContext`k (1 - 
                    2 $CellContext`\[Gamma]$$)^2 (
                    4 + $CellContext`k (1 + 
                    4 (-2 + $CellContext`\[Gamma]$$) \
$CellContext`\[Gamma]$$)))^Rational[1, 2]), $CellContext`\[Gamma]$$ <= 0.5}, {
                 Rational[1, 4] (
                   2 + $CellContext`k (-3 + 6 $CellContext`\[Gamma]$$ - 
                    4 $CellContext`\[Gamma]$$^2) - ($CellContext`k (1 - 
                    2 $CellContext`\[Gamma]$$)^2 (
                    4 + $CellContext`k (1 + 
                    4 (-2 + $CellContext`\[Gamma]$$) \
$CellContext`\[Gamma]$$)))^Rational[1, 2]), $CellContext`\[Gamma]$$ > 0.5}}, 
                0] >= Rational[1, 8] $CellContext`k^(-1) (-1 + 
                8 $CellContext`k - 4 $CellContext`k^2), 
              Piecewise[{{
                 Rational[1, 4] (
                   2 + $CellContext`k (-3 + 6 $CellContext`\[Gamma]$$ - 
                    4 $CellContext`\[Gamma]$$^2) + ($CellContext`k (1 - 
                    2 $CellContext`\[Gamma]$$)^2 (
                    4 + $CellContext`k (1 + 
                    4 (-2 + $CellContext`\[Gamma]$$) \
$CellContext`\[Gamma]$$)))^Rational[1, 2]), $CellContext`\[Gamma]$$ <= 0.5}, {
                 Rational[1, 4] (
                   2 + $CellContext`k (-3 + 6 $CellContext`\[Gamma]$$ - 
                    4 $CellContext`\[Gamma]$$^2) - ($CellContext`k (1 - 
                    2 $CellContext`\[Gamma]$$)^2 (
                    4 + $CellContext`k (1 + 
                    4 (-2 + $CellContext`\[Gamma]$$) \
$CellContext`\[Gamma]$$)))^Rational[1, 2]), $CellContext`\[Gamma]$$ > 0.5}}, 
                0] <= 1 - $CellContext`k]}, {
             
             Piecewise[{{
               Rational[1, 4] (
                 2 + $CellContext`k (-3 + 6 $CellContext`\[Gamma]$$ - 
                   4 $CellContext`\[Gamma]$$^2) + ($CellContext`k (1 - 
                    2 $CellContext`\[Gamma]$$)^2 (
                    4 + $CellContext`k (1 + 
                    4 (-2 + $CellContext`\[Gamma]$$) \
$CellContext`\[Gamma]$$)))^Rational[1, 2]), $CellContext`\[Gamma]$$ <= 0.5}, {
               Rational[1, 4] (
                 2 + $CellContext`k (-3 + 6 $CellContext`\[Gamma]$$ - 
                   4 $CellContext`\[Gamma]$$^2) - ($CellContext`k (1 - 
                    2 $CellContext`\[Gamma]$$)^2 (
                   4 + $CellContext`k (1 + 
                    4 (-2 + $CellContext`\[Gamma]$$) \
$CellContext`\[Gamma]$$)))^Rational[1, 2]), $CellContext`\[Gamma]$$ > 0.5}}, 
              0], 
             And[
             Piecewise[{{
                 Rational[1, 4] (
                   2 + $CellContext`k (-3 + 6 $CellContext`\[Gamma]$$ - 
                    4 $CellContext`\[Gamma]$$^2) + ($CellContext`k (1 - 
                    2 $CellContext`\[Gamma]$$)^2 (
                    4 + $CellContext`k (1 + 
                    4 (-2 + $CellContext`\[Gamma]$$) \
$CellContext`\[Gamma]$$)))^Rational[1, 2]), $CellContext`\[Gamma]$$ <= 0.5}, {
                 Rational[1, 4] (
                   2 + $CellContext`k (-3 + 6 $CellContext`\[Gamma]$$ - 
                    4 $CellContext`\[Gamma]$$^2) - ($CellContext`k (1 - 
                    2 $CellContext`\[Gamma]$$)^2 (
                    4 + $CellContext`k (1 + 
                    
                    4 (-2 + $CellContext`\[Gamma]$$) \
$CellContext`\[Gamma]$$)))^Rational[1, 2]), $CellContext`\[Gamma]$$ > 0.5}}, 
                0] < Rational[1, 8] $CellContext`k^(-1) (-1 + 
                8 $CellContext`k - 4 $CellContext`k^2), 
              Piecewise[{{
                 Rational[1, 4] (
                   2 + $CellContext`k (-3 + 6 $CellContext`\[Gamma]$$ - 
                    4 $CellContext`\[Gamma]$$^2) + ($CellContext`k (1 - 
                    2 $CellContext`\[Gamma]$$)^2 (
                    4 + $CellContext`k (1 + 
                    4 (-2 + $CellContext`\[Gamma]$$) \
$CellContext`\[Gamma]$$)))^Rational[1, 2]), $CellContext`\[Gamma]$$ <= 0.5}, {
                 Rational[1, 4] (
                   2 + $CellContext`k (-3 + 6 $CellContext`\[Gamma]$$ - 
                    4 $CellContext`\[Gamma]$$^2) - ($CellContext`k (1 - 
                    2 $CellContext`\[Gamma]$$)^2 (
                    4 + $CellContext`k (1 + 
                    4 (-2 + $CellContext`\[Gamma]$$) \
$CellContext`\[Gamma]$$)))^Rational[1, 2]), $CellContext`\[Gamma]$$ > 0.5}}, 
                0] <= 1 - $CellContext`k]}, {
            Null, Piecewise[{{
                Rational[1, 4] (
                  2 + $CellContext`k (-3 + 6 $CellContext`\[Gamma]$$ - 
                    4 $CellContext`\[Gamma]$$^2) + ($CellContext`k (1 - 
                    2 $CellContext`\[Gamma]$$)^2 (
                    4 + $CellContext`k (1 + 
                    4 (-2 + $CellContext`\[Gamma]$$) \
$CellContext`\[Gamma]$$)))^Rational[1, 2]), $CellContext`\[Gamma]$$ <= 0.5}, {
                Rational[1, 4] (
                  2 + $CellContext`k (-3 + 6 $CellContext`\[Gamma]$$ - 
                    4 $CellContext`\[Gamma]$$^2) - ($CellContext`k (1 - 
                    2 $CellContext`\[Gamma]$$)^2 (
                    4 + $CellContext`k (1 + 
                    4 (-2 + $CellContext`\[Gamma]$$) \
$CellContext`\[Gamma]$$)))^Rational[1, 2]), $CellContext`\[Gamma]$$ > 0.5}}, 
               0] > 1 - $CellContext`k}}, 0], 
          
          Piecewise[{{
            Rational[1, 2] (
              2 + $CellContext`k^(-1) (-2 + $CellContext`\[Gamma]$$^2)^(-2) \
(-1 + 2 $CellContext`k $CellContext`\[Gamma]$$ (-1 + \
$CellContext`\[Gamma]$$^2) + $CellContext`k^2 (-8 + 
                  11 $CellContext`\[Gamma]$$^2 - 
                  4 $CellContext`\[Gamma]$$^4))), 
             Rational[1, 2] (
               2 + $CellContext`k^(-1) (-2 + $CellContext`\[Gamma]$$^2)^(-2) \
(-1 + 2 $CellContext`k $CellContext`\[Gamma]$$ (-1 + \
$CellContext`\[Gamma]$$^2) + $CellContext`k^2 (-8 + 
                   11 $CellContext`\[Gamma]$$^2 - 
                   4 $CellContext`\[Gamma]$$^4))) < 
             1 - 3 $CellContext`k + $CellContext`k $CellContext`\[Gamma]$$^2 + \
((-2) $CellContext`k + $CellContext`\[Gamma]$$)/(-2 + \
$CellContext`\[Gamma]$$^2)}, {(-4 + 3 $CellContext`\[Gamma]$$^2)^(-1) (-4 + 
              16 $CellContext`k + 3 $CellContext`\[Gamma]$$^2 - 
              24 $CellContext`k $CellContext`\[Gamma]$$^2 + $CellContext`\
\[Gamma]$$^3 + 
              9 $CellContext`k $CellContext`\[Gamma]$$^4 - $CellContext`k \
$CellContext`\[Gamma]$$^6 + (-4 + $CellContext`\[Gamma]$$^2) ((-1 + \
$CellContext`\[Gamma]$$^2) (1 - 
                  2 $CellContext`k $CellContext`\[Gamma]$$^3 + \
$CellContext`k^2 (-12 + 21 $CellContext`\[Gamma]$$^2 - 
                    9 $CellContext`\[Gamma]$$^4 + \
$CellContext`\[Gamma]$$^6)))^Rational[1, 2]), 
             Rational[1, 2] (
               2 + $CellContext`k^(-1) (-2 + $CellContext`\[Gamma]$$^2)^(-2) \
(-1 + 2 $CellContext`k $CellContext`\[Gamma]$$ (-1 + \
$CellContext`\[Gamma]$$^2) + $CellContext`k^2 (-8 + 
                   11 $CellContext`\[Gamma]$$^2 - 
                   4 $CellContext`\[Gamma]$$^4))) > 
             1 - 3 $CellContext`k + $CellContext`k $CellContext`\[Gamma]$$^2 + \
((-2) $CellContext`k + $CellContext`\[Gamma]$$)/(-2 + \
$CellContext`\[Gamma]$$^2)}}, 0]}, {$CellContext`k, 0, 1}, 
         PlotRange -> {0, 1}]], 
      "Specifications" :> {{{$CellContext`\[Gamma]$$, 0.2}, 0, 1}}, 
      "Options" :> {}, "DefaultOptions" :> {}],
     ImageSizeCache->{551., {219., 226.}},
     SingleEvaluation->True],
    Deinitialization:>None,
    DynamicModuleValues:>{},
    SynchronousInitialization->True,
    UnsavedVariables:>{Typeset`initDone$$},
    UntrackedVariables:>{Typeset`size$$}], "Manipulate",
   Deployed->True,
   StripOnInput->False],
  Manipulate`InterpretManipulate[1]]], "Output",
 CellChangeTimes->{3.765803163526944*^9, 3.765803325325797*^9, 
  3.7658034052558794`*^9, 3.7658034904041424`*^9, 3.765803755982628*^9, 
  3.7658040051366243`*^9, 3.7658040404162664`*^9, 3.7658176243656845`*^9, 
  3.784463374208157*^9, 3.784708368782116*^9, 3.7847089267158623`*^9, 
  3.7850630201043563`*^9, 3.7851733207246256`*^9, 3.7852278715302477`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", 
   RowBox[{
    RowBox[{"Figure", " ", "4", " ", "in", " ", "the", " ", "paper"}], ",", 
    " ", 
    RowBox[{
    "as", " ", "for", " ", "the", " ", "elements", " ", "on", " ", 
     "welfare"}]}], "*)"}], "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"toplot", "=", 
     RowBox[{"Min", "[", 
      RowBox[{
       RowBox[{"Piecewise", "[", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"cTestmonLocal", ",", 
            RowBox[{"cTESTconstrLocal", "\[GreaterEqual]", "cpe1constr"}]}], 
           "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"cTESTconstrLocal", ",", 
            RowBox[{"cTESTconstrLocal", "<", "cpe1constr"}]}], "}"}]}], "}"}],
         "]"}], ",", 
       RowBox[{"1", "-", "k"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"parameters", "=", 
     RowBox[{"{", 
      RowBox[{"\[Gamma]", "\[Rule]", "0.6"}], "}"}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"cmin", "/.", 
     RowBox[{"\[Gamma]", "\[Rule]", "\[Gamma]param"}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"toplot", "/.", "parameters"}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"cTEST", "/.", "parameters"}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"Max", "[", 
      RowBox[{"cTESTLocal", ",", 
       RowBox[{"Min", "[", 
        RowBox[{"cWelfare", ",", 
         RowBox[{"1", "-", "k"}]}], "]"}]}], "]"}], "/.", "parameters"}], 
    ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"Min", "[", 
      RowBox[{"toplot", ",", "cWelfare"}], "]"}], "/.", "parameters"}], ";"}],
    "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"cTESTLocal", "/.", "parameters"}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"1", "-", "k"}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"Piecewise", "[", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"cWelfare", ",", 
          RowBox[{"cWelfare", "\[LessEqual]", " ", 
           RowBox[{"1", "-", "k"}]}]}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"Null", ",", 
          RowBox[{"cWelfare", ">", 
           RowBox[{"1", "-", "k"}]}]}], "}"}]}], "}"}], "]"}], "/.", 
     "parameters"}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{"Figure4", "=", 
    RowBox[{"Quiet", "[", 
     RowBox[{"Plot", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
        "%", ",", "%%", ",", "%%%%%%%", ",", "%%%%", ",", "%%%%%", ",", 
         "%%%%%%", ",", "%%%", ",", "%%%%%%%%"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"k", ",", "0", ",", "1"}], "}"}], ",", 
       RowBox[{"PlotStyle", "\[Rule]", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", "Black", "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"Black", ",", 
            RowBox[{"Thickness", "[", "0.003", "]"}]}], "}"}], ",", 
          RowBox[{"{", "Black", "}"}], ",", 
          RowBox[{"{", "Black", "}"}], ",", 
          RowBox[{"{", "Black", "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"Thin", ",", "Dashed", ",", "Black"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"Red", ",", 
            RowBox[{"Thickness", "[", "0.005", "]"}]}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"Black", ",", 
            RowBox[{"Thickness", "[", "0.003", "]"}]}], "}"}]}], "}"}]}], ",", 
       RowBox[{"LabelStyle", "\[Rule]", 
        RowBox[{"Directive", "[", 
         RowBox[{"FontSize", "\[Rule]", "8"}], "]"}]}], ",", 
       RowBox[{"Ticks", "\[Rule]", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"0", ",", "1.01"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"-", "1"}], ",", "1"}], "}"}]}], "}"}]}], ",", 
       "\[IndentingNewLine]", 
       RowBox[{"Epilog", "\[Rule]", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"Text", "[", 
           RowBox[{"\"\<1\>\"", ",", 
            RowBox[{"{", 
             RowBox[{"1.01", ",", 
              RowBox[{"-", "0.04"}]}], "}"}]}], "]"}], ",", 
          RowBox[{"Text", "[", 
           RowBox[{"\"\<0\>\"", ",", 
            RowBox[{"{", 
             RowBox[{
              RowBox[{"-", "0.01"}], ",", 
              RowBox[{"-", "0.04"}]}], "}"}]}], "]"}], ",", 
          "\[IndentingNewLine]", " ", 
          RowBox[{"Text", "[", 
           RowBox[{"\"\<\!\(\*SubscriptBox[
StyleBox[\"c\",
FontSize->14], 
StyleBox[\"WELF\",
FontSize->8]]\)\>\"", ",", 
            RowBox[{"{", 
             RowBox[{"0.36", ",", "0.09"}], "}"}]}], "]"}], ",", 
          "\[IndentingNewLine]", 
          RowBox[{"Text", "[", 
           RowBox[{"\"\<\!\(\*SubscriptBox[
StyleBox[\"c\",
FontSize->14], 
StyleBox[\"TEST\",
FontSize->8]]\)\>\"", ",", 
            RowBox[{"{", 
             RowBox[{"0.32", ",", "0.35"}], "}"}]}], "]"}], ",", 
          "\[IndentingNewLine]", 
          RowBox[{"Text", "[", 
           RowBox[{"\"\<\!\(\*OverscriptBox[\(K\), \(~\)]\)\>\"", ",", 
            RowBox[{"{", 
             RowBox[{"0.4", ",", "0.65"}], "}"}]}], "]"}], ",", 
          "\[IndentingNewLine]", 
          RowBox[{"Text", "[", 
           RowBox[{"\"\<(false negatives)\>\"", ",", 
            RowBox[{"{", 
             RowBox[{"0.2", ",", "0.5"}], "}"}]}], "]"}], ",", 
          "\[IndentingNewLine]", 
          RowBox[{"Text", "[", 
           RowBox[{"\"\<(false positives)\>\"", ",", 
            RowBox[{"{", 
             RowBox[{"0.55", ",", "0.05"}], "}"}]}], "]"}], ",", 
          "\[IndentingNewLine]", 
          RowBox[{"Text", "[", 
           RowBox[{"\"\<\!\(\*OverscriptBox[
StyleBox[\"c\",
FontSize->14], \"~\"]\)\>\"", ",", 
            RowBox[{"{", 
             RowBox[{"0.7", ",", 
              RowBox[{"-", "0.12"}]}], "}"}]}], "]"}]}], 
         "\[IndentingNewLine]", "}"}]}], ",", 
       RowBox[{"AxesLabel", "\[Rule]", 
        RowBox[{"{", 
         RowBox[{"K", ",", "\"\<c\>\""}], "}"}]}], ",", 
       RowBox[{"PlotRange", "\[Rule]", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{
            RowBox[{"-", "0.05"}], ",", "1.05"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"-", "0.19"}], ",", "1.1"}], "}"}]}], "}"}]}], ",", 
       "\[IndentingNewLine]", 
       RowBox[{"AxesStyle", "\[Rule]", 
        RowBox[{"Arrowheads", "[", 
         RowBox[{"{", 
          RowBox[{"0.0", ",", "0.02"}], "}"}], "]"}]}], ",", 
       RowBox[{"Filling", "->", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"4", "\[Rule]", 
           RowBox[{"{", "8", "}"}]}], ",", 
          RowBox[{"5", "\[Rule]", 
           RowBox[{"{", "2", "}"}]}]}], "}"}]}], ",", 
       RowBox[{"FillingStyle", "\[Rule]", 
        RowBox[{"{", "Gray", "}"}]}]}], "\[IndentingNewLine]", "]"}], "]"}]}],
    "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"SetDirectory", "[", 
     RowBox[{"NotebookDirectory", "[", "]"}], "]"}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"SetDirectory", "[", 
     RowBox[{"ParentDirectory", "[", "]"}], "]"}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"SetDirectory", "[", "\"\<Figures\>\"", "]"}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"Export", "[", 
     RowBox[{"\"\<Figure4.pdf\>\"", ",", "Figure4"}], "]"}], 
    ";"}]}]}]], "Input",
 CellChangeTimes->{{3.7658035214463105`*^9, 3.765803585538064*^9}, {
   3.7658036165576377`*^9, 3.765803712124841*^9}, {3.7658037873188*^9, 
   3.7658037879500756`*^9}, {3.765803833776551*^9, 3.765803852399762*^9}, {
   3.7659732782431765`*^9, 3.7659732830583076`*^9}, {3.7659734131971254`*^9, 
   3.765973457823748*^9}, 3.7659741227205467`*^9, {3.7675309893592887`*^9, 
   3.7675309923332644`*^9}, {3.7675310653106976`*^9, 3.767531068111615*^9}, {
   3.7844634221958795`*^9, 3.7844634270065975`*^9}, {3.784463643943227*^9, 
   3.784463664362547*^9}, {3.784463741145795*^9, 3.784463916428337*^9}, {
   3.7844639526116977`*^9, 3.7844639789471827`*^9}, {3.7844640598431435`*^9, 
   3.784464095731423*^9}, {3.7844641376028423`*^9, 3.784464152572956*^9}, {
   3.7844642092654505`*^9, 3.784464276419738*^9}, {3.784464314360181*^9, 
   3.7844643271678915`*^9}, {3.784464359964062*^9, 3.7844645007336197`*^9}, {
   3.7844645530063066`*^9, 3.7844646619652653`*^9}, {3.7844712806301003`*^9, 
   3.7844712818019433`*^9}, {3.784471313316647*^9, 3.7844713171444736`*^9}, {
   3.784708429119934*^9, 3.7847084832034926`*^9}, {3.7847085242669983`*^9, 
   3.784708526845708*^9}, {3.784708588733116*^9, 3.784708674953167*^9}, {
   3.7847089948663597`*^9, 3.7847090978260946`*^9}, {3.7847091475089626`*^9, 
   3.7847091546623306`*^9}, {3.7847092523026333`*^9, 3.784709270436452*^9}, {
   3.784709311014155*^9, 3.784709346115119*^9}, {3.7847094361335435`*^9, 
   3.784709437408078*^9}, {3.784709574875731*^9, 3.78470958878418*^9}, {
   3.785063030871342*^9, 3.7850630647472553`*^9}, 3.785064292118041*^9, {
   3.785064350331421*^9, 3.7850643542858243`*^9}, 3.7850643984615755`*^9, {
   3.78517333484305*^9, 3.785173340093397*^9}}],

Cell[BoxData[
 GraphicsBox[GraphicsComplexBox[CompressedData["
1:eJzsvHk4VX37/40kIWVISLNKhaRJKicSmTJGJEmiRJmSRBkyJEWmJDLPc8ZM
y2xvs73Z5tnelLFSqdCzruNqr+s59Ovp6r7v5/vc3+O5+qdjHWvvba3P+pzn
5/y83691bjG8oX6ZjoaG5hUjDc0f/ytcHmspfX1GQj1/o9u4Gg5hV3yJPzBP
hp6rz82CVrTC0uNKk6zV6t0UcBB5NnBOngCHvhnkaqTVg90WfkPP6kqk/v6B
xurdTUATmRvyhFCEbPId/5w41QySNHQ7jYmZyPin/r42EQLQWNg3iCtGIzFv
CmtZHxPBaY9jqfGr+wjrhvjpkZFWkJxJOHGV6A7eV3OMI/hJUNr3cAe3/nP4
KJk8cuVeOxiEnDLi04sBG9HKbK6KDhCh5wl1ZkiE/rTKhy1bumDt3YOUV9vS
4atp6/Nd9t3gddePgce+DPZIrVg0LuyBTlLacZ7jNSAXtcUkc10fBEvr3riU
Vge3NlzYOqjXD1q2j2kmKhtBcOIMc7vyAJjvTiinedwMHKtnGCu/DEC9B3PI
Pq8WoEeep28LHYQkPtfT3ZIEuHagsHOl4hBcDzLbY9lJgGR5w4iSj0OgSdfQ
Py9PhA/jvGsoQcMgKOK83PIpEXI05JYFyIzA9D7fXcIEItw75RaeTRkBKc0d
8UWzRNjSq9AR7UaG1b0bPEQYWoFmyT/acgXpRxMNMMPlV91rWoZIv3bJYJBu
hoEpUNKgyUOWV16eQHxaoLQsZ3kvQzJy6m2DplU/ASTdb8lbRT5FOl339d4+
gv6u6v6kV1/VQfmEcHL5/TaQZNrnxdbnD1JnMmLpCSRw0lt+rVUqEnJe5dXD
lg6wsNvHntUbB0kWMpttrDphs0cn8xxNMkx61/svNHTBs7bPGeJPC4CDNKmE
4+2B+rJCS54XlfDKMkDU+2ovnDs4Ivk4Gg/9F0pl5Av6YGM5ux2/ZgOM2buF
ys33wwFdo3R72maIWNjqpRwzAD10/lc1OFuAZfRkj7XiIBjtM5HdMt4C+beT
K4PeD0J977L7Fn4EYEZYj49EDIGWlY3xwFoiNIdInCXIDoNWL6scYk2Etk2Z
K4snh8G5S9+VlEcE3tPGajGBI1BNccrLJ6OfZx87KniIDPJDn1brfSOCsJdJ
bl83GZRcaFiCVrZC6MAZBwvlBmAM657JZ6lAEvaErTNtbwIDB14RO+IrhD1J
4P0BaAGD8u1ihWLpSMgsiYffEx1v6dj86aEXiETeR43KYSLQfO5pFkiwRIQz
TBuIB9qAZhXTnccePmDcL+qufocEAwmtPOfXhIOWY+ZZzeZ2kLSHQcuEWPBR
u29axdsJTtGT5sqrk4AShvMZvdUFM/QTWvouOeCx+eKsXW03nOOxHLuwqQKs
OpWDb7P3Qj193pGDjjjgoH17ZuFKHzzZGebs6FkPIkpWFwJS+sHOxsVs7EoT
UGyKFNhvD4D4VTqh88RmWPM15N36bYOwvEPSgb+oBfRDt4n31gzCTe44LuZr
BCj8bMT86eYQRHn3ryudI4CElaoDbuMw8Ka2iSVcIAJ5OcVbrXwYwh5t8jNP
IMJYs9ZuPvMRkGkQcHrQQ4SE1FxzC1YylGzbV/7gC3q8X0euLIMMvBtvJhsx
tsLHyUqf0kPoeG2R6XhT54vYqJoZ7/VB52u48HsS8TaYkd56Zra2gcGWOX7V
wqfAVydUlSvQDk5texQu9EYB58diyT1WHbAZx72zaj4eKn3oSVtr0fmaGGNg
3pMMs3ean3Lwd8Psoy/EXAYEwh/ax6671gP0xQk3+79WAQ1Td/2L0l7Qvkqz
fHNWLSSX+OwPZO4HgzJTuafsjdCsWW+2sH0AEhSPkoflm0HX/QHes2kA9l6e
1BdWawFG4kxVnfUg4C5VOKqtIwC79n4V1U1DEKYX4rUvjwDn7udfb6kbgn1B
pXYTIkQwrBA80HN9GPKHk66ouxOh6oiDuwDPCJTECB0rqiKCUt1NO8GSEejV
wV+tniTC3C0eprHzZIityH11dFnr9/na9n2+VsLrG+d4hhbqYeDsKfsHlApE
vGPMitu5CQYY5nbrKBci3Bu8bKe50PygtZOXPjsDkbY9N++gh87XPSFzy7Uj
kbeqOj6v89Hxf1lQPnrBEXlB8dTvYWkDJ+FN1bjjD+E2v43tZxUSRLAtS5CD
MNhxIe1FXzw6X8sqbostjwU66ZjVU1Po+Gc1jnc9SgTDuOpHPUpd4DhRu54j
6SWUVfGeUovqBh9OuvaPauVw+tFuxRlKD+Q1tFkHDtRAqtoDfW3JPth1Py5M
c0M9tGaPlRbc7weO4xHyB7ib4IHIymSbS+j4r+IolsxsBna3qoVp1kFI9i71
8o5ugczUfhual4MQc5l+4bQWATjW+Vo5GQzBiZ0jwgavCTB7XudxBdMw7Mko
2c5whgiTdk6Nz1OGgb83sGlrBBFOszdxdZwdgTPybIwu7UTg/Brm7vdlBASZ
RzgrPhHBiJHgI/qcDFPL4u5dQ9fH8BvyVjzM6HjJTLzw3hWA7HjTGKlphM5X
ShfdMfJ16GFZw1uQ0galHjnrBFoDQXjNjZzzCyTwjVj5Vo4jCkbaC9xz5Dug
lMmWf/ZGPBx24r+j+KITfHkHN16zTAaL+42BjJ+7oGKZVBbfYBF0ihz4PC3d
A/fibpk0qlZBT3HevbWBvZD2bLxxuXAtnFwtcGx6qA/eGk3zv8tugK0PPMLW
sA/AkNjy9OM7mmFBirRr/NUAeIydHof9LcB0fn1L+IVBKN+Rf9eXlgCXr0w/
sF45BFs7z2lsiyVAVuRwm27uEFTUZ1+K30YEnvSDsu26w+BJuKIj5kiEhhQu
nNWyETj79U7tXAkRslimjMYSR0BHefuG4dfoeFXRbGNSIIPg87iCq7StYJkz
ZW7+lgz217lMmtH8ynfRqCpUthMM3L+0f/JKAtPA2ifvorrgiH4y8yn+fHD2
6Ttu4DwCTedK350cJMIxgybN01vJwLO1oZhtgQjj+gOLKtVkaEVvfAP6e+rh
IyJfPqD50tj+Iq90CnjvFn1bZUmGDbMblxHpqfFS9T1essH3cN8oL6keGIt7
ppEzlYhr2uOI6TNNMOMfEnyftQipNXr6kH1ZC8wtlOjVSWYiXHlh5omyBHBy
ODgvoxKF1IYxCTlEo8+/9qLEWJozQqLljh+Ya4VS/fSRPJYHQFcTMKUkjtYz
dPdYXqmGAmtzSlm0fzs0b/BPvJIZA0fFDxjSdXaAr6ot26RCIkQkVbFoH+6C
9HXGyxN3ZIJ+8CfL44+7oXrD10OXR8vg2GhwzJ4W9PlzvpUs8KmBL7fbDOkF
+2D7+6sftCl1sON19NsGi374fD1KemSqEXQf7+2OPYvmd9n6jqpwNF5qdZd1
0Q/CTrxUw6egFtDNPc7OHj8I2R/ErqUoEgCJ3b6j6swQOH21wtsPEqCZeH5d
Gc0wgDW792MVIli+VJ4ujRyGAD3bKdJzItDtZ16Ve3oEEo2ZiwZbiVAbyeYf
PTMCb3OlRuU+EqHcivXANV8yVMRwq5DQesYm4+HwyQ9ovvlUHrFnKBChOewE
o6fReBHN1romawScAuGGJcFtEJFzpulbVwDkv/QRyhxF4yVUXNUhORLqT71K
tD/YATO7ndVcd8ajdUl2wwXPThA5N3Nj8EgypHk2cLoOd4Ex50b7r6WFYLuM
bVuPcA9Mye+QtZyrhNp1OzpV7/XC6Ym0FPvXePA7bCMZ2tgHz0rW+Ly73wCK
28gHeRkHgPR6xTUazmZoDJ/X4UsfAMqy2fevt7UAc1QG6cGZQegovfjx+scW
YLVU3um2OAjyaguVfc8JcEHk9oPw5CHIVb6m0cpHhFl+8aZW1WGw7fFo8rAj
ghpleOzp3DAwiD2OsC4kgrHQ7nPV4SOgzRo1SBpF6xMzm73rJcmAn9IzNaVp
heZNe9jjKGSoejv+uQCd31o6s+syRdD5Tf5U3qmcBAnP8GvMH3XB+vu6/C86
c+FABu8BiVsjcNfBmv5tHxHeMZy4eIGbDDITXm5tX4mggOeL9iwkg8o01xQO
XW8fPrVxZR3ohJkP1u0Tq1NAuiV2gWRCBpbdX2JZ0XiJim9gHDVqBqsKGvaL
rCXA8CJw/HMsGTSmtxyfQfPfokeAwOHsTihNcQwNjkfHf+Mjrs8aZHh7fPNm
XbpWOKogqLf4hQx5088fkNDr956N1l3XQgZ23bk7F9Fj7njNPjJzF9BcGNP4
bJUCJNeSkew7ZPAI+jbluZwarznf4zUGLj3fpHK4vB6uyO5yfvuoEkl4dvHw
OckmcJJaLyBsUYTo7+fQKZxrBpqxSuYWr0zEqV0iDjmKzre2goO4+ijksMzw
napgdP+hKdCbJeqKWPlcqBuaQvcfGUgVz1sPkOOOTbLdi9Zjo0jkePtzcGEU
1HB/gNYX9IPq79xj4Owhh4csjej8s7skPyqQCKWCJ5UCBLvg8S2HQE/9DEih
pbjvv98N+A4ZI+7MMjjAqaomX90DHTWJN6KNa2Dz468jXVv64MqN/lWOtXVw
2pXWq924H065m51f6GyEE8XS1hIaA6CVdi1xIqgZ/My2MzR9G4CVrbOTIb4t
kF4wMRASOQhm72vy5dE8tNZ85p6J6hAMByKe9r0EKGEd6Ea+DgGtZcY8TokI
+1Wy72mEDoPbissQ/4wIeid2McbKj4B/qJW+F5EI/DcVeVLGR+DbYJri/Q/o
fIkXdF/xkAz7jmo4uaHx2tcsyKf3Bh2/nESfudIgxKz37GMRGTRe35CFcI3n
ISOH4l76GK1nBaQ46c4HwPyyiNddPSSgmWgVH7GNBElnsaPn96D7B5+HWjV0
8fDIZv7jVcdOoCmEyeANydDIpKxZ2tEFNq4eCWeFCqHS7NthAn8PiNCZ9rjV
VUK5TK/bdZteUJkPO5lZjYd8xZByq8o+uM+U8TzWrAEMZjjoNi0bgECLhYxq
pmbIa1z9LjtxAJotHQk7+FrAW+ZO511VdH37wJvaMNMCl27Of1j1eRB211QO
Cz4lQM6nE8NScUOgshx3V5+HCEMXivyJisMw+JDRZ4ctEThcFW7vfj8M7XsV
OBNeEaH0+CmtnJARyDd/x1JLIcJNSMvZdpQMUTLGm8no/uGbpryR9CAZTsZv
uZmEzm+rM8ekCrej69sHldAy4SSoWS+vmuTSBU1zFpTwvbnwuFRsr5DVCDp/
S54ivURQ7nIYNeEgA+NR9af70Hi9vSj+gT8XzQd8K5uD0XhN8C9K4W5D49X3
qo/2x2QIi+l37Tckw7xl2LJ4tB48SMw6HhRBhrmp+2/S0fjkvd+jJpWIjjeZ
UzDVOxlWvqsOpVVBz5vV44bR9VjaqXl9y0cyBHdnabeh11u0qzwlq44MbaoR
SlLo8cHo0BUzNF3gW19ml6WbAvu050yLbclQHHa+ai8an/7HZwYbA8kw4kk/
txX9exFvWEpXTpDhSYjHixr0+7wBi6oTpej188yv/IBe//Xngrr042i+Drsd
I7QrBc4jbox3SOj63axT4Ih+fj6JJaebqwsEtumF0txOBSXlUpeT+fXgJP5A
XCSpEhFfXUf35CBaz7JOeJ+KLEJKLt5LfPm+GXwvG5Yxp2ciuSY+5QqHCGBg
OmU/zByNXH+qss3UH12fTb/yZHxwRSS1XHuHX6Pz93AozX1DD3gjmerJvBud
r+PiJVufP4eimPHnt+63Q8ZmOS1/yxgwPrA54gmuA1Rbz94qXZcIzZP0E6I7
u2CFzySXz9t00Dx0/onwvW6old0vlx5YBhlJyTs7SnugjV5uaEKtBg4Es+6o
5uuD2ivxW+yK6sBQVUSr52I/3B0OordvaoR8TSXES3UARvVSV9/2awZCsZeH
/MIAXJBgajV51AJdx2RO9b8YBHzJ7Ff/EwQobW5LyVceAk1//0XbbgIcENwi
AZ+HwNffsfSSIhECwkZrQp8Ng+JhvVlvNM95Kua78cmNgP7rk/09BCIQ9K/o
ibxG14ddTV82o/HuVX40/Ywnuh4cVX1wDo13jouOYqMj6N8JrYj5JvIUiRKp
OtgmgY7XyCLtsMlZdF1helb2oA0GThyWSNgQAC8EE2putJPA4tOA5jW9SLDf
MOd6ekcHrGG2lzk1EwehVhHM07fQ+Vp230djdTL01bHM6hO7QLfNVCNkqADM
Im2lGzb1gISE6WR/diVIdIvpLVzvhXesXCx7cvBQfyZ1mT7SB6aPmJ5dM2iA
N1p7rkTSDMCWzVVftzI0g6AxjwRt/ACIcAvsAu4WqA8c0P2sPAgFDYl9c5Mt
8PiTxnn1j4NwaLGNvjkAnRfndq3xjx6Cuq19dyLWEUHHceGDuvwwrOW9nfLe
hgg2LY5l1jPDMJQxylKK7oMmT7YTBYNHYIw+5p0UGu9bd9XNxYuRAWd2nC0S
jfegG2cf+faR4WC2fnEEOn+dNAbOSG7uhAiWsFUcm5KA1MM4c8qxC1YpDNy7
2pkDhbialJgbIxDHG7dlOxrvXyqe7Z5YQwZuicFdfeh+eA2PwkbrLDLsoiFJ
3EPjJfeJQVlYExov0xHrzV8ng8Lj+epLBmRIbGgnWqLxXj9ZbjwSRga2oMti
j9H4E3BxMq6O7gSLR8tp1t1Lhtzu4X43JTJcTmwRi0fjvSukX2bTLBl0u7bo
EtHr1ZRpaaPFk+HomROv9qLHMpGSfDe/dsKAz+FzlqdToE9ybZqUDRlOT3q3
06LxvvvsN6YN/mRYTKQRWEDni9hyvtfar8lwQHuhpgz9/su0VfbiJWT4tnyl
Qz96/Q7Pmq8/IKPXwx9d/ZQvBWY7A/bhiejvLaPnsfg/rP9XxMWPzg6TIWih
cX8Wej7pctk7l89kODN82uCP+oF/dZbr5UYyFO5IH1JDj3fEzr0zZeiCmWey
NQPGKcDYvBBUOEUGoXLWu/Xo+amUKxFafF3QX3CEK1IlDcb7DcsK13aBdoNB
YKRS6g9/fw/nEXmXNV3gHfspc1lnClD10qebmD98+zYNzoxZOx/wBECRSXnu
/gvTcFYnMn3mbQyYvln+YSBjCpi/OevJbUyH1QOHvdazTsF2tamxiofZ0H1w
yMXj+iTcajwCwbOvYF8195xZ2QSsy2bro6VFwBF/vLJ/0wTkDp2obzpWDuor
plnqLcah3DRsvc5EJajGcr96XfkGPuw4vjrVvAZO5IoUBfC/AbrPyWvWb6+F
Utq2o69sX2P6rGipCfu11jGg6rMNfVZKpw+OAVWfnTnMtCzZcxSo+iwTve+a
wFEKUPXZNKaokDkxClD12duWgp6PHpExfVZcMbY+fXIE02fdLiQ9UpQcwfTZ
akpYrM2LYUyf9U3YIL5uegjTZ11q14qOSw9h+qzphXknpahBTJ/tEb6htHN2
ANNnZSybr/uoDWD6bMJOzddqRv2YPts1uGnqFlMfps/OOeMi8mt6MH1299MH
ShNXuzF9NsnsKOLC3oXps1wCtf37CR2YPht01vJzu207ps/S3fhQGiRKwvTZ
kpOmKvmzrSB++H4AjygFvJ98ItWj+yG9jU2faYkUOFVxkWVehwAfah8NWTiP
ApfpiPjGhWYIpte3Uecfg4hJD+Hc603A0ZcTRVc5BtkeAjc/TNfDckdnzSOW
r2GC+Usq79FaoEnUTx9ifwM0em7SN7NrwCok/RF7+RsQC5LC53yqhOI9noxs
18eBRa2/t1CuHNgUrARdWCfALt08dOohAj1CzcTbRROw+cndi/v4CiDjBfCP
6E+CE9Oyvj7GHDiffohtw+IkcLsp2K5bnQFObpHOPUlTQJMwSj6sHgupYxue
sypNg8Eb6VDBu0FAjQMaGhrCH3ERsVbF3YvnPiRVUNqepU/D1vucp1bETYPT
p74vQnfdoXevx4lHPDYQ8daOXN8+DVcOPXvLdBv9/v7O+sg+X+hp8XmxjIge
s6/LF7lrC9pGn4r9eIwglFHanDI+DV4+56q9DaehlPXxAZM0f/i2W93arWga
JCVv7onuc4ICuwa882v0+7IeoofuGoNiQ/vLMB5N4AnYse/9h2ngKyrKUNZG
r8fhypg8VyD4amedl81EP8+32/9KmisoxgpnS/eh53VTx2L7LEBAyay/dBY9
n2GyU+quFuwPDw7N4pGBjk5u/89fpsFIfXJ7mhr6+awz0kdrA6FzcpgQl4xe
3wN6OUUuNwg4emFXdAf6/UOGqtfSrMFyKFRzyzR67LPhUnKfAQzkHDU1QH+H
xkmATfuuLNCf4LXo5zkA+fNslQ4L0+AZ5mbQdxo9r6I0vZ8/CBbFHFa1J6B/
r/RtxLFaN8h3/3SJ2IaejzlGf5rrJgQJHfRRm0CPTQm1FmmXgJ62Ncb3E3o8
t6Cd26cKRabRe0XQ36XZnDTicvcQls8IIyefPHvWieWzmyHKgmxbOrF8Vj2e
qMUY3YHls9v7n8rs2d+B5TN7tbdCSH07ls/COHXYr15px/LZthnGoL3c7Vg+
C6oRjKS0krB8Rulk4C5IJWH5TLatmb8jkYTls2xd+ROhJBKWz+4mji2wSrZj
+azTf/MT/q/tWD7bt7fFS0KpE8tnlXJcEUJsnVg+U4h4ea8yowPLZ8nHVWme
aHRg+Wz/6JOP7QvtWD6TIa0x5opqx/IZnXK2kJtyO5bPolQV/RfekbB8Vqyf
xb3nOQnLZ0LX1j7cpkDC8pme+qeTR963YfnsuUOz7HhUG5bP3uEubZrVbMPy
WfkxiqYobRuWzz6ZnYzHZbVi+UxseG9aikErls/u3D75rGd1K5bPxCc3r9pd
9ZffJP9eMGfQ5i+/aZ5zVVHI7r/8JlWGjctMhghYPttdQMteiNZL1HyWHdc0
NKT0/598linWxUDW6wS5sljWBvsicDgrtvGGRDtc1I87n9BXCv2++Swh70lQ
FDdjHRBQAevHbllbFpOg55T52mVC1dDkr8t3MJ4E8z6zq43wOHAJkXzYmE8C
Pgf3S3lX64D5WfsXObp2oPp5cSs/GBk/aQeqn/fpfI7r6OMOoPp56w7vz90r
0QlUP880g8G1ZqAD6pJ21TxyoUDrLKml0IIACTbC14/sHoUMruhtj5JbfpqP
89ZEH9h+pxP6a6bjXh4uBJbRTJoF9XY4FKodF7C3FCjhq0mHlrfDKxnezS/H
ykElpfOEHI4ETTpu3GneVXD8qozYFTRe7bqDfTzX4yD/0Gh7eDoJfMR5xK/W
1IKgKq78/BsS5p8FZ3CLTV9uB6p/9ixw6pKGZAdQ/bMom7IvBM1OoPpnDk6Z
ryfn0Lh7S0rV0EXvL2hZTK4LAVzwi1lhixSYN6MLrqQj/LCepBecsx0tLga3
k4EeTbvbwXvzB86iR2Xw/sqi8M1hEiCMNTW2kpVwTr1b2iubBGOHz7CfbaiG
O6PNHIro87ono+oLt/AQuqpwS2YVCRKL33svZ6kHleLxV7kb28E4GhiTHjbC
ui/KU+/L0X3iscNnzgY3g2PwYebO0Q6Y640iKwy0QOHgUbPonZ0QYOQwUJNE
AQXHAf9afcJP1zvrcQseHa9O2FPHab09qAAa8aVHgs+j88HWIHBtBgIsSaUX
HrC2Qz7H3o+lfuWwko3p/YVGEpwyZAtxPVYFcsxvW1SS0XxJe60ppLIGZq7H
xWikkAD3zHC7tG0tfFwc0ljoJ2H+0OUYm3wN9HlT/SGVHcnFYXwdQPWHUmof
XhIy6ASqP8TF9+0J0/JO2BggFHlIlgIGTczxeQ8JMP2eQmoao8BWblF1A2HC
D+v112InaV2+YuiW9b/jdKAdbBHlI6KHyuBJpCVea5wEJe3dYW5vKmBapjSw
GI0PQ8lBfyHHajhgHCM4G0cCCdOtzWqb8cB8uU2ysoQEQ3zH7foK6gAcWrLG
VrdDtujJ2PXHGkG7qp9yMbEdPrP3uuw1b4ak5Xmzywo6YFGV/ury/BY4cYDw
iiLaCRkriMSkIAosvqqjKTch/FhP3FyuEC1RAeMlHeMR5STQUvsc1NFTBUHK
HNKMCSQoyKlWsbXCwY1c8/SqLPR8d9NpX+46mPZ+K4H7QILTaqr9i6EN4Nn6
UWbGvh0eIgJ9vVzNsCptw/uLxh3Acrjmhr1JC2zcts3yrnwnlB55+dYkqBJE
J5GongwSXN+L93XZUANGW1dkAvr3SjfeVRVqxIPUkWy6iAYSXDF+stO5ohm8
me0DvLg7wa5s++RICQVqnIW82s4QfloPbYpVrf30pBNalHZ26p8sgOIzlNVf
DNtBcO2rVw/PIvAp9K6YOkc7HL5z5CLOpBycGKYbAltI4GbcrnudswoI90gT
Nuh84uLUnN72rAZ8vgjpzCeR4LL8iudpyrXAYVzrJtRNwvyU+2pTJivk24Hq
p1zeL6vynLkDVj4z5+hE140NirolQhc6geqnaC4IKa5n7oQUcgevwDEKFBy6
vfqILwGCNWasmPoo0Hx2E+/4CcIP9Vwk+Cf41xWBs2DAEYsj7TDBaq9ozlQG
L5mMrMymSXAcKIyPkAqIeetVsaKQBOEy8ZrcZ6qBuX7Dcjo03jc4Ms90zeLA
aHeeQDJ6/l794KSCXx3cnTxi+56xHXS/1FhrcjaCzcFAM9Gwdti4mM7zXLsZ
5LnCmzbHdIALU07SUHQLwOG9zl5inSChc1c51JsCrqkloRJmhB/qTfHe1TlJ
HBVwzTbA7TKaX/zOINoV2VVgSzr8KQ593s9w6Te+yeLgUkLj16BMErzzsqmc
n66FE2aHV79F7+cDNzH18M0GMDm0lkfaAs0/SV9t5GmbIeueUN4qtJ7xmbmV
qa3RAkNDXF93qnSCZGSR3o1rldBllWUS9ZIEyft91Mw/VMPtbQcUM9H7j9hn
YpEbhYeqgYBwDzwJvNWMSiZS0f2h3/lp4rcOYOBoMSZlo/Eik1auokv4oV5m
0VfsDDaqggsnz15UROeD9pRzOttMDfS81Fzfj9Z3gZc6D7DvaQF214NW93Q7
Ib/Pqir3PQV8pXlv+nETQMKiRfTu2kp4sbXugX8uCbYfW0+Ujq2Gvtg3p1jQ
69PXPpKBU8TDJZnCLevReORR3k+apEfPF+wu9UbPd0f17p0Mw8FOLYWtQuj3
pQjx7gZllXDIVzjqCLoeie5Z1vz0ZA1wmpgxf0LHV+ZOie/azmYQvfagjhbN
B29u2Fu/x1Hg3KzUm3NqhJ/W/1qbZxRxgWg9+UjE+ytad+hJS06no+tZlBG5
rloQgWtP3+mVrEXrx7QSLiX1csBrtQyIE0kQc0W88BJNFVwmkh9woOPhHnbq
3hXXGji3fsPkJXS8DkR2thkdqYWUrdd29naQMH9DlEuI4CSDrpff/Y1d7Xnp
p5d1ANXfYJyMEi072wlUfwPZziDNz9oJ1o/T2jcfpgBurd3CbT8ClHGstbzZ
QQFROZZ7tgqEH/YvNk6h50Sii2D6qmrd5NF2iDvk2+o1Wwp07+tOOb1F6xer
ayVrkipAl4MrR6wIzdeyTDmrpKphUXbDLBc6/t4MNE6b+nHQ7C124WABmv/4
swVo79YBi1dDcABaPwjrr+y2oGkEmt5gPsmn6Hy15iE3KzUDz3ncvhvPOkDG
5JFiy7MWcKzsmdQ72gn0dJpMgR4U0FPm53e8Tvhhf/VlTaCp8GI5iLGJ4AnV
JMjQ3pqfH1EFgS/8VZeh9Qijesy3E/tw0GoU4BWA5tPSIdlvL7trwebtGN2m
SXQ9dOBcq3mxAfbL79Ffda0d7kvWOi1ONMEXn2veYfIdoKqsqi4r3wJfFDiV
FtQ6gaZNiv39mUpI7ju+wQ/N97UH32UaDlbDuQcTB2+j97+m8BzNV2886JYk
iQfUkGBjTcODrdHNIJnWpIq874CGwrhtTekUyLi2l/sRuo4u3R/uNkg78li1
CsZWP7fHo/Oh+pYtaHXVQOIMB54dnS9apZltNFtaICDI5ajW+U7QfC14+sQU
Bc4KxV26vY0Ai9FaY7Q0laC239w5Jg+d3xJ394s9qYZ2wUSLr+j62TggJLnq
EB4GeeaHTEpJIKYSdGh4pgqsRDetqUavX0GQgOzzxMFr0azj79B6iIZB6NhI
ciVMkAdLGNDxUxUyFnm0rwaUinn3B6HxQ5rZqafY2AwyMdJNQts7IZNbVWSi
ggLX23bEB2sQftjvGhvZfLETqILGsw0afWh9Eud14UJ/Wg0wsU94RaLHXbcN
1/WxoPWSUOAb+kud4LUYcUFvmAITdCWSckcI4CQtM7v1ajUMziGXP6L3Y6Oh
96kBVwXXZHCSGuj1eO8TfHtrZQ1UTzOYvUfvh0E830r5VTWcEqqs34Eef1Fo
vjnHXQ0PR1JN9NBjzl0RN6J0asBGxkzDEJ0v22picr80UIDD8I7GJhXCT/fn
XHOSpIynncAqnEPGMxbAtx14bhaTdtDz/qo5woUAR36G9keudiCdcn77CN23
mCppT6xG97tZr69d0/9YCbS2tK2X0ecpMSRd42VXA7ZzwbZ86PNe3yD9HvbW
ArdTEK6gnYT5HWuXa2qclEbrs+9+h8aX11oHv7UD1e84nTiibq/eCVS/48nT
rSMJqzuBZMhzKOwABXaojLuE+BOAlccqp7CNAvm4M8l/+PtL9YW+zVtyFh8X
AWfM9gWh42g8KKx/9ux1KfCUzJt7o/vbHhbhZ+rhFcCmOrK+FY3/hpqjlxkP
V8MqLrshfnQ8ZRS/1Ei14kB6+Toep1ckOKi6QbbHug4kaCfpJ5a1A/eaJNZ7
Hxvg4pYP+1QD2uG2cGPtNblmcIjl2L4joANiAj8/xwW0QOPrx7LVxzrhCqnk
Cpsber2V+21DbxB+0D+6krRPWrwvh8acss3eaLyVdmhcyQqqgttZY1kH0OdZ
GvRCzngHDq7QF93hRudvAmsG3+OWWtjat1apCK03XwrnnDLUbgCaZ7oOd660
A1fufqUDQ01A4FJE3st0QOadoqjjMi3gVZax7opGJwxcp588oFgJzgH621ah
8dGZu83wfHs1fAiYHzVA7x/37cypDS548JBzjo9A89Gos8uN4rBm2Llb3Kx6
sgNEfNlcFFMpsLxEqiX5POEH/ebIYP9rT9kqCE0uDmdG4+FukYWHXVMNCJzU
9s9E6628qQ075ta3wDfz5Ioy/U6Imnrg92CcAkVbJ7omBAjQd5yn4sSHCih3
k10pgtbPGkj6sKhHNTyx8Av7I17ctwt47t2DBw0J2i0BCAnkmmsovZQqOPVI
mJWCXj+dZf0KTUcc3F8UFdZF728gfJprR2Ql8G9WeWaBjt+FtKcDHjtroM62
N+EqGm/hyT1SFFwz7F8btI20sRM4JwseXymjwPECMkeeJuEHPcqWHJtkvbEK
3rwJfyGA3o9+k048bUwNCHUe0FZG7/ehSNkyJcYWWPR7qK5i1AkdyxajowYo
oDq3LL9AAq2fKm7GbLhQDbns7Ex/5DPX1kfxuJIqtD7TYnBAryf05flIq2/V
YBYQzd2C3g9X4eutp9Kr4cGhCQ1u9JipnnbHe9ZqqAyJtrZGj7cltWwKU6kB
tuaeC3vQ+eL+fPXaW3UU+MS9PuS4KuEH/WyBPp6xEq1Xw9q5jnKg9SrJo/pL
M7qexjD5NSqj62laVQc9h2I1yM6v0WRGf78gu5T2yng17LaOowlAjw8UK7ke
f14NqTyNCX/UmwKNRu5jX6ogtfuxQgJ6bFnGLiNgjX7+9gLvH/udT/nu5eoV
1eA4ZZJ7GD0/jn9RtbC1GlRjacPl0OOlel6eeXeueTcFgvjl/fjlf6yXl14v
lWcKVz5QYHt39IfxX1qfU3+/IPOsDZ/cX99fOW3lWXKxE5by5P/w4f8ZPvwf
ve7v6XX/8PD/Gg/fZvWVZSr0Lx5+eJ1sT6IK8bf1xH/4+P8MH68nVpYsaUj8
bb3zH17+T17+eeiW2UFP4i/11n/4+P8MH+9qc2vM5xrxt/Xgf3j5P3l5xo2a
9yl+xF/q0b/i43v9FBVXdAxDacgG37k44g/8+6/04b/Lv4//w7//P/LvrZWv
HMQsiD/o1ztWnhsb60XrsUn5vcIyP+rX//Dwf/LwSTS3X79G699f6ee/4t8v
1nObCTYMg+q05MxiMvEHvv1XevZVyEq1zRsGuw3c05oxxB/06qW8u47O3d1D
Q8NAvMU3/S6S+ANP9it9+R+e/T/Ds/PsNqV/ZEX8bf37H779T7692t50+FoI
8Zf6+6949m1X782X1AyD46WTphZJxB949V/p4Xt6eCRWvhyGUWZRDogi/qB3
L+XZ138cKbDpHQb30aL4m2i8LuXVf6VPL9Wbw/e+7H5GGAaJDtmEO4nEH3j1
pXz6r/Tjf/j1/wy/vq4/QTsP3b/+rr79D8/+J88+d1/iXQpar/xKX/8Vv34/
76UMY9UwbJO+XnMDjY+lfPqv9G7v3cru6uno/mIjuWQful4u1bOX8usOMtzL
SrqGwT57dm1eLPEHPv1X+vNSPZnmLnnbcNMwyJ+Qly1G89NSPp0pMQNvwNYF
seQ1J3DhKb/Uh6n66JMX07T1pwhQzquUfbMWrfefZN65gdYfS/n0pTz6f4rP
tPsFn/liCZ+59Rd8Jvk3+UzHf/jMf4vP/Lv9QH7Fmy/tF/IzntHxN3nG5iU8
o+sSnpHlFzzj3N/kGal6pWDQ8xfX3/z7/TuoeqZpUorlyBeqPk76Pl7lf5uH
HP0FD3nsN3nIp/8iD0nVE080OplsXvhLT/Rnx69myPz9fhtUvXF+g3rMWXT9
rdI6d0dq4yBMxPixf3Gv+ylPOfsLnvL2L3hK1X+Rp6Tqf9dkR/fWtP9+v4zs
gZvb5xkoECzBmbPi3V96YcehFWCRRJ0f1d/nx8u/zWeu+i/hM6n6neeKs6KO
aL6g6nd7JzkfcxX+fn8Lqr5X2R5T7IfWX77igQWR6H6936vNq4i1+f8zvjP5
J3wnVW+LWhwM5Rn89/tTUPW5iBmds0kEwvf4aPkeH4U/5UWfLuFFLf5DvChV
7/smPm+pkUH87f4Y78nSduUePcB7wH71nZnqn/Knl/4mf7q0v8Yn5oUeLz4K
sI8tl31TTcT0xzWO2dsPuVDjK/d7fEX9lE8t+Q/zqZx/k0+l6p1DvXTRhpd/
5FOpemDdSyE/QeZWTA/EBRhMbir9/X4YVL0w4cDp2nQPItZvze57vzUq3+ry
H+ZbHf9FvpWq37WeY6qrIP/7/Syoet995WWXayiE7/mF+D2/lP5tXtZoCS8r
/Qte9uVPeFmqfmhqVDJvlkL87X4aJXiHvK2G/eBqxvCk4Cj+3+Zvl/bj0LI9
4lzBRgFNjkcLduj6TtUzZzvPi2oEUfNT2ff8lPzbfC5V/8Tv+Ty1Kpf4Q7+P
pFNzIZYPh+BM78aAI4SGn/K7vT/hd5f2B1nab/DP/FT/PT/lYrxv/094X6r+
quHavX9LNvGH/iICdCuPGKZ2QubXyUdHYyt/ygez/4QPXtqPhKrnCm5m5uG5
Ts1ncd/zmd9PeeHzv+CFcUt4YaP/IV6Yqq9WuTY43V/Viumr+R1C5Jjy3+8X
QtVfeYejVEueEDH99W5H24a1KoS/zRvr/A/xxlQ9VOTk1s08Y/9+vw+qfjr3
VXu8bYaA8cqH/01eWfRv8spU/XX0MOcVlzTib/cXofLOSb/JO8N33nlpPxK3
ZG3iBRYKfExQ1ZFE1wOq/mvs+TL/YgTht/lnqj7cp+W2wy+f+EO/EyoPrb6E
h+5YwkMPfOehf9UPhcpLWy/hpce/89JU/bn/qdTl4y+JP/RP+RlPrbyEpz7x
nade2l+Fql+/aLwQvtOOgPHUDUt4auaf8NRL+7NQeeqh7zz10n4tS/lqqh7e
dGRY7RI6n5b2c/kZfy3/nb8eXhtwK5iWAuKt7Wua5okYj+31ncde2v/lZ3x2
gWWuH5MRAeOx1/6Cx2b/BY9N82/y2Op/k8em6tu4bw0eGaytmL69feNW69GK
3+/PQtW/NcUb/KuCiJj+PdKwPtBTk/Av89ws/y/x3FQ9+qyyaNeJ1/9+fxWq
fi2i4SLc+4GA8eANS3hwuyU8uMkSHnzLv8iDU/XvkIm3ByvTib/dz+VnPPnH
X/DkAt958qX9X/iqjedTV1IAZy26ImaCiOnvEf09X6/EEjC+PGwJX77zJ3w5
VZ9nF1TSbEXXv6X9Zai8ednf5M1/1X/mZzy663cenar/a93JFZHPJP7Qr4bK
q29bwqvX/4RXX9rPhuofdGz3GhJ2JPySVz+a0GjStqIFSlWbWiyMOn/oh7OU
V1/aH2cpv071I9LMbaeupBJ/6J9D5dvNf8K324tER1AW0f1B+KsSUbSepvLu
Vd9596X9dqj8O/sS/n0WN9DGdpXwA+9uw5ovuBfdj3IP+8RFyv/Iuy/t10P1
P4JGheMk0fv5GQ+f9p2HX9rfh8rHp33n45f2+1nKyy/t9/Mrfp7qr3CofPB5
9gyP+Sst0pfOm/DhMX/lcqjOSBqCw/wVuXc5wf3PcZi/EvSxIb0pG4f5K4+1
3giKbMf/1c+Ha4JWbxaP+SsaX6+KPr9ch/krLv2f37L6NmD+CtMH4iD7sWbM
X+EgTeu73/yr33r4BxPPFHki5q8YSn1qkwoj/OWvKEylOI22YP4Kg7mMgJl0
C+avVDtV5836N2P+StPW9SJJnU2Yv2L6/iNXXUIj5q/IK33o47jcgPkrqwxc
PFcer8f8lVDpwWfOdHWYv3K6ym5jMhGP+St7Q0jvREtwmL/yWXoLS0hQDeav
0ApezFRB8wbVX7n1Ypv1E+cqzF/xMa9a3GlaifkrmiN7HO5frcD8laMaYi8y
tMsxf0WHqe/qOpUyzF/5OpsEH86VYv6K7jHtZJ2MEsxfac1escGaUIT5K2/W
8PvZ0hdi/sqicljuKa5XmL/y7nBWWZlKHsbTJ73ZLLPCNAfj6SkR9GzTSVkY
T29V9G3hyZdMjKcP1VGP3iOYgfH0YrSWtWbLUzGe3js+6+Etu0SMp49RVVgG
K+Mwnt7BdrVh8UAUxtMLXEytNqYNx3h6keRTlbF1wRhPT6OVf4C/zg/j6Zs3
d+zUKPPEePqIenLzmonb/3ee3n078xGs/4XE6qqmai08BPfan8hZfAG4dzvl
G0ZxIJrCxsDHmARhJy9lU+JwcCbhaZ31qpewQ5WtZEUEDhpXc3IKS+bBm72Z
s+4DOMxvsoOGjvq7eMxvoiNWRUc/rcX8JnHGYyNPLtRjftMLi93pSSONmN/E
ySVsMgotmN+UMZjaGBxNxPymtZ2cOh3vCBifLul7xcu8+Srm70RagJTILTyw
vA86uMn7GXwt224aRYOHKpdOXQbHeBiq9zVPzsTBpMZEkWJjBgitLEcW0Hi3
F3FenCPnQF32LTWkBof5Q4HGO11zT+Mxf0i5NvgNg1Qt5g/l7cE5QU8d5g9J
5fXRMu1vxPwhNrZuNchvxvyhuaLpF/Y8RMwfqhssiOXZSMR479LXykrpxtag
5t9lenrHY3Q9L628LYYHdqP0hFixKHQ/t1mZi4CDF23ymfv8U4B3PZvtk3Ac
FM9Ldz1XygIl+pkcsQQcbJ2O23UpJB8E9jYde/ANh/k7gawdPb05eMzfObZ/
+PHYXC3m76SsW484zdRj/s5LpUi3hdgmzN/p57pzcJ7Ygvk7+ZZbXt20Jf7F
X998HxNWroP5Ke4nT8Tu8MRD9UKMcCshCF6f3ZG5ixUPrNePu905HAeKr5jg
VD4OXiUG5eQJZ0Ca2o0SG/R5NJfmWfeJ5UDsl7WX/YpxmB/TH5n9aucRPObH
LN9+gfMuTy3mx8id9iq+HF6H+TFzGmEFNf0NmB8TdvB4T41dM+bHLMT1NHdW
ETA/pm0lY2nHfiLGM0cs8sy4JNiCXWuA3cSmB9DJundEVw4PN64e2k7TEwFE
7U90D3twMFaa2h2nnAxPD2z5WhuFgwfqk4QVqS/BiP6By9NoHNjd631xajIP
rgWuVBefxmF+StnDs6w30PWJ6qfQrsbxkKtrMT+F/WXIWtm4esxPUZdZIaJ0
ognzU1a6CktrerZgfkqQ5Pmer97Ev/jik+Fd27QvgfqY5zHTk6HQcHA3S/t7
HDg8vSnypDwBaPkKoS8ZB1sWpSr7zTNh8Z1JgnMYDvgjFB5w+OfCcSnebYZE
HPhX1nZBZyFkLm/d+/oyHvM3+OXdPj2wIEKOvoCgYmA0TA3nX7+Jw4HmG7J7
UUcqsKumFEqiv/c2Lnhw70QWnGRn03mfioN6fYtsR7lX4J7svc+ZDf8Xr2zR
urugUB7zC6q2WyLNvnjgXyaYLGwbCBvx69hE1+Ih69IN3tyAWGBKvPpyqBAH
Eontl7qL06F7PnajNzp/vjBqCKsNZcM+O3V7+lc4zG9w3lfb8lkYj/kN5vYj
zpEMtZjf0K87eHKzSx3mN1wt1OdwyGvA/IZXox6VXLrNmN/gKHbe4hS6PlP9
hoHQlpWlEkSM/x0IHwhmV7ADlg+W9wpD3UGkKKPoG5pPNk7cvpQqFAEu/mYk
9iEcPMrttxhMSgJTZb+5ohgc3HCUbjp+/iWEikxNp0biILrGTqcwKA/6jULp
09D8TPULzqmJypAf4jG/YPF2dPxkWi3mF/hddRNxdKnH/ILOjwz5dziaML+A
suzQvfxLLZhfcGl8q61cMBHjcSWnyBt1/Y0hfXL1q8qxECgUphvh/4KDzY/i
q+o2JcAXrkuuSWk4WLHraenajZngnrRvJDwUBypj5BPux3LB5MxjiYsNODgi
2yt527MQdu6Qfsyri8f0+9CrOG0/GSIYDV4znaNEActGh/nd6Oc/96/j+3Qw
FdaWMAYovsBBe8tk7+XQLKgQJGu9S8LBpzjmGzMz+fBF4eARFUb8X3yvZMAu
AxUNMLVjnpHsioMBi3EYQOs34l2pV853M6D/MmiGoPMj1o7v1TWfHHi471u3
fTkOBN8Up7e9qIX+RncXiWkCnKi7I2s2kwzvhMcfsP0x/juDSS3zLyFiTe+N
qlj0eiJPPNe6nAgO8dOX5BJxcJQ4UZNYnAk6r6Y+RqPX+2rPns5tUnXAzso0
dDmMCBmzWW+d76RB9jkFnCU6PswOJ8ifj2bDg3urao6h6xHGC8tKlKnlH8H0
5SgtT+19gXgguN143V0TAMcWdPlruPHgrs94WeNELKgaN74oR/Mjf6ugAdv1
dNi3g8M4Db2/NakRD5nysqHiifuK/lwcpk9rvDjnw7gbj+nTF61xjGYLeEyf
rj0mR66yrsP06fV6jlOJ0Q2YPq3Gx2X4TaEZ06c5VL8VKT8gYPq06/uJyIN/
PM/v/K3kjs9Dy9bfBi23Abpt59xAPkSboV8dD290Dy9nTA2HmwRa3OsRHBhk
2hXe1UmC3fvMxmvR8R1iN284e/Al2BEu2BPQeiP/WnWuzbU8QEpfT61CP0/V
l19Zpy8quOExfZnNV0Bgf3Qtpi/v5bLimrCox/RlObF67/dfGzF9uV1hb1+u
WgumL5d79V6dRp8XlYeVJJP34vZdAX0LjU+W4iHQL5hQdH4BB+88JNdcbYyH
R34RN/gz0PqhpKxE5GMGKD66PyGLPl8j7/2RwJYLIePizvdrccDiQXm/1qAQ
ekwYVc9p4jH9t/pyccUbYSIURj1a2eQTBSWLlz4/a0LzY1eGccBICmwLvbpv
FJ1PCibcPU42WaBnVp7kjc43FkWd+sSqfMhvv9betwyP8bVOe1pDajy14Jh1
jHifZxzMzd8hP0KfvyynWV6oVgYYTmb03EPnRwGfKdd2oxwwLGYQ+4ruf75I
+b556FULKWTnu5ZdBOCq5nyyMjwZqn1p+EfR+c9VXN460foS+Gg4+2LR/JQU
2kN+z5EINtxx3N5oPKZdWVddGZgJr077pzOh1+vpusDRJVgHtMpCfN3uRHCZ
Vjq2aXcazG65n9eCjs9dtuvDnJzZcOxs6dvH6bi/eF31yTEXxRMgCGVZBIYM
eGIW2Wv3x/UWyu6QmU+CTPcTH4rQ9XR+dF3LVreXoCUUejwEXW8D/M3Kv5zM
hIWMsgrGP9av/VEPZOnrYBjZQbbUJcIO8t0WHY9USGJa/qoEPW/wmqvQOC4D
WuQEpSrR38cdL8c/JmdCct3FUGW0nsou1Li48WwdTJD4drsmEKHvM2/8SH0a
cMd8WLkFvX6M/9XTVs3I3YXplbgKdyejp3jYLffE86VFABTvv90byIuH6W5N
pijeWOCMbD2ch+6Xgq9q6wvKpkMpOW1bFfr3ee/JiZtEZsMBTvbnrTk4TO98
hNt18tlOPKZ37tsppNc/h8f0TsaR6tAkszpM71xIzvBre9aA6Z12Iir1riea
Mb2z7+SW5Ev3CJjeafhccXxGlojxtE6eNmR319twp+FppVbBfRAZpO1pQeer
FJ9OTN+ZcKhbzT+nQ8EBXrjKoEEkCdZ/yOfSRvcHoeddlIy3vAS99fMM19B4
rThufrnlTB5sYgtSk0PXN6peWacrc43RBY/plcmnH7MYh9VieuV2T2EBsSv1
mF6ZybDuuNxMI6ZXapoZkXGnWjC98kogy1RFBBHjW2n0v77noL0KOftuBp0a
fgYXdx8MWVzEgd7yRzl5sfEQHt+nTEHj9cDK9uMSQxlQKeqvvxl9njf0u1RC
v+bA6rVxXzai+xDbndeURxQL4VJV0gs3NTymJ+q609Tv4SeCsetGHXGjKKhr
p7MnNePg4NkF5uHCFJisdXUSR+cP/Uuhc48NsiBA4c6dAbQeX7eB5g5DRj7Q
VaVmZ9Di/+JlhUn1MdvPQuzMTL+gQRwkSB5wvJqHA5oLzoeSpDNgn8l2oz/m
f9XUmirn0zmw8oLapwp0/gyaf15h4lQL1/U4lm9qJsC9ExcPnbVNBhGVJ/La
aDw0r+jQ+FL6Es7IuDzkQ+OVg3fXQ+nxBHi60/zefrTeu5IleJLgnAlO+cTt
lWg83Eg33peztQ50ZJL1k+8QYdzs2aA5bRp8CM07uwI9L6bnariVJhuWq7zr
L0HXe4y/TW4acnGVhTqO1Mul5HRIOx353Am9Xv4j/nV+xCToijM4fBT9+7mi
Qqoili+Btrr58xb0+k73OUsximbChnt7zhD+WA8vMMdv+VIL8PE51x0VtP4w
rLNN0E+Fk+keSsvQfMJ7QFDcxi8D5F/J6qaiv+/i2X4qtAXNN5b0RR/R82ne
KU5iJ+qgFH98MT+cCHK3TJT2x6QBe76Usxz6+xjPG+oQGya/HzIl6Aw/BqZD
1ocTl56jv1dqjeZapkw4HLPX/I/12RuvJeZjmgG78Y/3PETPR2gHfFw8VAdm
lA9SPH5E4LGiedqsngbI+Yfdf9Q7VrPJB6p4M+CowtqxP/YvcS9oj+kUZMAd
gTssf+hJyxKmnfwu1EGU7RTz9Tgi2Dg00gZ9SIODbyYvL6LnMT642Wbn8lwe
EOWnsUxWroOPH5FtgYKvsePUwwXbPi6QsOO078dL89XS8dj3/fNaqkKcG2OI
//DH/z/lj/9T/Sb+t/PHS/sfUHnhP+/vfx8vvLSfAJXvZbU/rKlp/d/H9y59
f5/K4/45/v/7eNyl78dT+dm+zJvussv++/jZpe+jU3nXP+fL/zzvSuVVL/q6
Pl8/8O/zqkvfh6fyqH/Or/8+HvV3+6VS+dGHbEE9Iv+F/OgP73d/5z3/jIf/
ed6TymuKufV+ytv17/OaS98vp/KYf8bP7/OYVN6SfP1JxkzR7/OWVJ7yz/j5
NU9J5SW9nu+Ce0G/z0sufd+dykf+GV//+/jIX71P/t/GMy59f/t/mj/8d/nB
pe+H/y4f+Lv836/4vt/l95a+b/67vN5SPu/v9juVX9Lv1Otv9jv938bT/er9
7/82/m3p+9b/07zav8ubLX2f+3d5st/lxX7Fg/0u77X0/fDf7Uf6d/uP/ozP
Wspj/Yy/or5f/jP+6kbQu/OS/wf+6ld81VKe6nf7jVLfh1JacyaMubfll/1C
87+/D39dqLX3tFge9n2Wn/QLpeoXEzsZvwTdr0Go+sXz4t4ndl6VCFW/aOA7
8XT/RBlC1S/8Mxo4RKwRhKpf0Ly4dWHn7kKEql9IT+SUsvrnIVT9Yvu+qpBQ
k2yEql/kpdF7vFTPRKj6xXkFH0qGSypC5Xuux3zZlPw4AaHyPUU5047nbWMQ
Kt9zkHZSkjIagVD5nhb8+TfHmZ8jVL7HWOvZwc2PAhEq3zPS/mJky3VfhMr3
eKyJkLI574lQ+R7K9hoTiSJnhMr3cAi5fzr76hZC5Xt2rWe3X73lOkLle5hK
Lmw1Eb2IUPmej0kjH91ilREq32OoOxd0ZrcIQuV7WHzuir+lSyviHl5fx8Y9
DnL83R+lzL2RUXHHEPmScTj7Xr9MhnIf+Xh0C83dyxNwdW+Ph6qMIyJLWTGf
tmoSiA8axdZttkYYdhaGOKVNQjEx/364kAlyndcM76A5BRovE1a8faCNcOVd
eHzz6xTobGIP+LBBCqHyOPXMxImqudVIVcllQfbJN3DSWV8nOvgxop7loiYU
NA7tLYYKq4LdEfoKeS4a8Ql4rLlO4Aa/E8LGNGHCSZ6AdQ9UJI+cu4l0Gzpe
eOk+Cb2SkmuIHqYIxUhtUmnXFLy7MZVckamHKL6gYdxFnIKM+W0mwjOyCJWf
Wc6j5BS1divyOnvu9VffCVg8m1rBamqP3Cnf5it/aBKMzDTmDFZYIqLjc22n
SZMwe32jjx2bEfKpyT025d4UqAeXTzGMqyNDTSWc5dumoS5Qy4KoJYZQ+Rad
xNbZ53XTJaEpTOf92tH7q1MyMcrzQTxvLBfa5DIOD+N5n8vZeSBeDPpbpPgn
oEpp573wSSfk4/q+DTXNE2C+V37ngJstUu3UJ1VnNQnxPk/2OimZIVuZZL5l
c0zBTVrXu0W3LyAUtpZKOmQKCsqd3CWEFRAqj9LRNbOSK10AsZhj+XDszgTU
aTpJvWu5gxi0rpWd3zIJXvU2L26ttkL4Vurmm5RPQgblM0PX08uI6M3beZym
U9Bjtv28664ziMMJn5bnq6dhr3bk4ADbcYTKi8gfM63fN02LZOwWUVQZnQKk
bVca+c0J5GQvie+BzzR8ZM/z28HCg5zSm9IeOzwN+XmKE+MrDyBUfuOyhOxp
6ZymEo9t528S6t/Apum1mR78vkhUQzUvt904VKyX/yjxxgM5LTAWd5FnAvjd
HLUlNZ2R1/ztdhHVE7Bg6LPTeeMtpHD16qz2K5PwSOLWQ/wBc6RU7zjja8Yp
UJiYr7h+0wDJUjwSPZ09BY9pritkDykiVN7ieMaghpiBILKf96n9eQv09z5+
9mp+4IBo9LJGtq2bBBAT25sTZIWwBXvtssmfhHtbL2s1GhgjzTVWpacuTAFv
se/9W2e0EHnHT+mey6chqXiCPBcMCJWHcLgUnIizZETuGgXvOtY7BVwqvGx2
xicR0kqxFQr3p2HhGmefq85GZG2Q1qE2oWkY0r0pn7D1EELlE45PVbeL9wyW
fDb80l1nPg0v5CpZ5iW3I9cXZzwra6bhHE1aRWf/XEl2xk1RXMg0+Aa44cOl
OREqH9DGoWEqlpReMq/v7mxV8wbKPp7afkzeF8lwiH/CaT0OfvcEcJnbPBGR
I6mv33JMAF35qXAOT2fEMFFjx6OyCTgevGZN3LVbyCHt+PHeS5OQQhedbpZk
jrAyFLC4LpuC1HeU5PNEAyTkijk7JR2dL62qZarlSgjVz9doj9yxTF0Y4dyj
VzxpOgGkw4lbiygOSP3Fh6fL2SfhLTOt85ZuK8S7f6uhfdYkHLzux1FYbYxs
spyuHNKZAulAgZXRU1qISMieTfdo0PvxNXW3t5ZEqH77FRnKzkROFsTIuT5Y
tGMKomNWDjzaJYtsirjikHR3GsZ9wh+OBm9G5l96xdYJTMOxwimd00cOI1T/
W7HKNCdYY6xE+vNuNcEr0yAUPOGcMr0DyQ3YsshfPg3cPRaRZhsXS+Zl4+IF
AtHvmyjueRvEhVD9Z6kpbo52QlnJqTKXMXLuNPTEx5fQrlmO0K1elBgangbL
4U6RD/iOku1XSjmMGqbh/a4KPeOtsyVUP5i01z58JManJG8+xKO88g2w3cru
TDjnixxqXdfgZzEOs9GHVj2Q9EQiylYzi7NNgDi9zJqNUc5I+Dib4zJkAvab
H0HM/W4h7+3fr7h4cRK6Pr5f94JsjuTqzrE200zB/H48M0J3EVl1a4XCxdQp
aLEe32m3X/n/2n7Y/O2MC8GfrAL197du3nfPNOON/YHpzaaForX7OZd4LrUQ
eGvvUrFcu/tv0X5P5vy6vxve2v/9f9eX71fa/mNHdY/rh7+zVy77sIzVJnz/
4hVHw379fWdfK3MwyOOEw37Y/OoDtbirvf9499/oT7uw9uo7+3qf0xtyetz2
u7xm2H6r+r39W/njZwxDFffnH1S566b23n7fBr7zJsfN98PmO/f8fK9R+/71
vjSXw90xqe/tddLOTfY8q77/1v2dFqH739un33+7TLqcYb/CJLtHEZPe2yvN
lXbNOyu+Hzbf+Prp0+PLXE7sy+GRVhbbAqz/fD5pH9nBtl8talql0MP39gbK
U3/aMd7b57U5wm/Kqff2XC1LMhkKv+2Dzf/9/HfCwercwn0FH469K7oNTH9/
r824+/3JPp/pLFIfP763P3FT9JL8/h377h1OZdn07L29NU9yU5nQlX2w+bky
masPpy/K37dOhudbc9Npe1j7Bp1/Kitc+EzhQzgfAF7klMs=
   "], {{{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, 
     {GrayLevel[0.5], EdgeForm[None], 
      GraphicsGroupBox[PolygonBox[CompressedData["
1:eJwV1HmQznUcB/CHHJkpJsxUKqI0Ezk6mMp952btvY49sHbX7rollavWuiXl
KFRKyVFR6HSEcnZHM1F0miF0TQfD6/PHa9/vz/d55nn2+f6+v1/93NKkkoqJ
RKICi/xpVSmRKK6cSFzLfn0xY8imNW1oSzvaU+J913FAf4qx5DDF2u18q6/h
MTpQau16DupPM45cplprxDH9ZR6nI6Os1eGQvoTxzDffy2l9C3lMMzfmuP4K
L+l9qUKZeZnsxD/6Ljbq6VwT6+bR8gYO65vlIJbqz8keJJhgXiDv44z+tsxj
q/6qTI594Cq2U8CnDPX6dHkHe/jOvFXmxO9ibeyR7Mc+qvI++XzCTK8vl535
mH/N78nhfKi/JjOoyU6K4r1x3eSN8Rn6m3Iwy/TnZU8qMNG8UN7Pb/o21ukp
XM0w8wzZhO/jd8b10ftzJeXmZ2QX/tN30yXOgfmm+P3xv/MgT5hbcTb2jktV
/IY4G9aaciK+m1l0jbNhrS6fxXcwiUXm1pzT3yE/zoq5GSf19cymW5wVa/X4
XH+Wh3jS3Ibz+ruMoMzcnB/0DcyJ95u78r++h9f1TGrxgHmCvDn2ny/Mb8kh
rNBfkL2oyOS4h2Rbfo/rRgEzzXfyY5xF5tKdidbq86W+kocppAc96UVv+tCX
fvQniQEkk0IqaaTH3vu8Bnylr+IRiii3dhc/xRliHhmxz9Zu4es4/6zWe3MF
j8Z9LtvxEX/EdYgzHmc29l+mUp2RcS3l3fwcexj3LplxLazdypE4j0yJ54G5
PX/qH1Ac19J8D7/ob8T9RxaTrTXkaOw3U+P5YO7AX/p2SuJamlvwq74png16
EtVYaF4hu3FB3xvfoWdRm4Gx//I2vtG3yGxW6y/KPlRimnmp7Mjfca7ivmFH
nCeZxkFqxBqFlMY1ly3Zy6m492Quh9lsXisHsD/23iMontPjPaPHMZYxjGYU
pZRQzEiKKKSAEeQznGEMJY9cTvjQHJnNEC66JwfLQQwki0wySCeNVFIoo5w5
LGAxy0nmMvMCz8Q=
        "]]]}, 
     {GrayLevel[0.5], EdgeForm[None], 
      GraphicsGroupBox[
       PolygonBox[{{2, 374, 375, 4, 1243, 1476, 1320, 1406, 1118, 1388, 1474, 
        1301, 1372, 1458, 1224, 1278, 1353, 1439, 1170, 1204, 1258, 1335, 
        1421, 1136, 1154, 1188, 1242, 1319, 1405, 1117, 1223, 1277, 1352, 
        1438, 1169, 1384, 1470, 
        1290}}]]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, 
     {GrayLevel[0.5], EdgeForm[None], 
      GraphicsGroupBox[PolygonBox[CompressedData["
1:eJwV1FVglEcUBtBNoC1tcXcIUiBIcEhxd3eH4Jbg7u7u7u5WqLu7uwNFSrFS
nJ55OPnu3L3Zf3dmkpiEpJaJ0ZFIJIqzfhRJEYmcIZaiFKM4JYijJKUoTRnK
Uo7yVKAia5lMf9rRgBrEs44pDKA9DanJs6xnKgPpQCNqsZXZDKUbLajEBqYx
iI40pjbbmMMwutOSymxkOoPpRBPqsJ25DKcHrajCJmaQSGeaUpcdzGMECbSm
KpuZSRJdaMZuFjKa3tRjJ/MZSU/asJfFjKUv1djCLIbQlf0sZTzN2cMixtCH
gyxnIvXZxQJGcZiV9OIAy5jAUVbTln0s4TjjOMIqTtKPQ6zgBJM4xhpOUZ1U
yZxj8kjkP1lOnpHXiFNPlce4SGHr5nI8B/iTfHoFZRX6sZbPSKOfUj7NUzxJ
Cp7gcR4jOcmIJooIBajMCS4T6336yuuUVK+R5eWnMrV85I/glrqs+rS8Sgn1
FHmUCxSybibHsZ8/iNHLLyvRh9V8Qir9h97zAffJF/aG3qziY1Kauee1puqx
7ON38urHyFNcoZj1JHmDUurDsoI8LwvKeHmcSxSx7iVX8lHYN+u7ntFEPYa9
/EYe/byyIj1ZwYdhj/XvmG+sHs0efiW3fp7wXBJYzgfhPPRvm2+kHsVufiGX
fu6wx/RgGe+Hswv3w3xD9Uh28TM59XOFe0N3lvJeOGf9W+YbqEewk5/IoZ8z
nBfdWMK74U7o/2u+vno4O/iR7Po5ZBm6sph3wv3Rv2m+nnoY2/mBbPrZZWm6
sIi3w13Tv2G+rnoo2/ierPrZwvnQmYW8Fe6l/nXzddRD2Mp3ZNHPGu4inVjA
m0TrXzNfW53EFr4ls34WOZFDnKOAXpzsyHzeIErvqt+PD/sQvq98Lpyz/EcW
l5PlzfDd1EfkXzyjriVP8jdFrRPlZr4hk3VmOYGDnCW/XgnZgXm8TiQ8x/Nr
qgezia/JqJ8pPJ/2zOU1HnHFfA05iI18RQbzGWUx2jGHV3kYPp/56nIgG/iS
9OYzhM9NW2bzCg+4bL6aHMB6viCd+fQyljbM4mXuc8l8VdmfdXxOWvPpZBFa
M5OXuMdF82llYVoxgxe5ywWvpZGFaMl0XuBO2HevpQ57Twum8Ty3Oe+10/6n
npP/Ax2Z6VY=
        "]]]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}}, {{}, {}, {}, 
     {GrayLevel[0], LineBox[CompressedData["
1:eJwV0bkuRFEAx+EjsY19ay1jfwA7iUIjliFeAGPrUFnfQCOx8wbWVqVRKCR2
3sD6BhqJ7xRffnf+N3Nz5k4yvTA2nxFCWOQyN4QsLTDc6RbjtFBJNoXu3es2
E7RSRQ5F7j3oDpO0UY3HhmL3HnWXNO3UUGd/12OWGCRBif1J95iigyT19g89
YZkh8ii1P+s+03RSS4P9U09ZYZh8yuwvesAMXfEsNNq/9IxVUvF9UG5/1UNm
6Y5nocn+reesMRLfERX2Nz1ijp74m22/esVGPBvNth+9YJ3e+GdwI6Pxe67/
9Jp+1wk2XfdpJilufR7Qf6L0Lgg=
       "]], LineBox[CompressedData["
1:eJwl0kdsznEcx/HnIUZIatTedVCzShEjLWrVCmorl57MFuVWezZG3M3aN7sU
USKCuNvbrXatGCmvbxxeef/+n9Ovv6dphcX5RclEIvGQxg5TSXFuqfd1LwvJ
ZrDtp15jB93oYavWU5QyjSa0sj/QfSwih3R62t/qadaQT1NaJ//fYT+LGU53
etnf6RnWMp1mtLE/0gMsYUTchd7293qWdcygOW3tj/UgSxkZd6GP/YOeYz0z
SaWd/YkeYhm5cRcy7B/1PBuYRQva259qOUWMirvQ1/5JL7CR2fG2dLA/08MU
MzruQqb9s1awiTnxlnS0P9cjLGdM3IV+9hq9yGbmxlvSyf5Cj7KCsXEX+tu/
6CW2MC/eks72l3qMlYyLu5Bl/6qVbKUg3pIu9ld6nBLyGGL7pVXsjLsxwPZN
L7ON+fG2pNlf6wlWMZ6htt96nV1xVwbavusVtsfv7DvJbecFZDvX6k32xDv6
rse9+E3o6vxGT8abOddntXOO/tVbTGCY7z96I/5254bsjt9d6zKZu3FPbUSW
8yD9oRP1aryxNmAKZfE/pnWYxB3f/wDGMmE7
       "]]}, 
     {GrayLevel[0], Thickness[0.003], LineBox[CompressedData["
1:eJwVztsyAmAUBeC/xvQeXqkhJaScSSFU5CwlOZVDRDxZMx7ETF8X36w162LP
nswV44VICCHOlPLJC4/c0eSGaRLMkCTFLGnmmGeB/1gIGblIlr9oCDm5xDIr
rLLGOhtsskWebcYPFdlhlz1K7HOAk+FQlpnQh4aKXuWIY2qccMoZ51xwyRXX
9HnliTa3NPjijWfuafHNOx0eGNCjyw8f/FJnBAKzKdE=
       "]]}, 
     {GrayLevel[0], LineBox[CompressedData["
1:eJwV0kdsiGEYB/CvPYjtYLQxktYql6riYDVGogmtFavGpWg5aBEjIbElldRK
atQ4KEqNUkETEqsklVAVLYpLa5/UPKji9x5++T/P837flzfv9yZm58/Mi4mi
qIYTiqLYKJpFAr/1jTyjhJOc4jSlHPDMbBJp0TdRF57VZ5NMW76YneGgeg59
+aN/S334rn4xQ2hHs9lZDqnn0o9W/Tsuqlcwkq48D3uSS0ihPbfYxGS+Wr8q
1zCOnlSxnWmUWT8s59Gfagr4a35DbmAS7/XlMo9RPGY33bjLVhrIpJZ9vOFF
OC+5NOyVoTyikFd04DabeckUnrCX13zz/jW5NnyL8dSwh17cZwfTecp+znmn
WGYxgIfs4p/5TbmRdD7oL8l8RtOde2xjathP+M8yh1Q6coctZPDd+nW5jgn0
5rzZETmfgUR8NLssVzKGHuF82zivcC/UuQyjEz/MLnBUvYAkYvhkViFXMZa4
cH7hnshlDKczP8Md4Zh6IYOI5bPZFbmaNOLD+ZqVyeWMoAu/zCrleibShwfs
ZAbl1o/LRdQxmP8B53Ae
       "]], 
      LineBox[{714, 650, 515, 700, 636, 584, 490, 691, 627, 575, 537, 476, 
       682, 618, 566, 528, 503, 431, 670, 606, 554, 516, 491, 477, 432, 433, 
       434, 435, 436, 437, 438, 439, 440, 441, 442, 443, 444, 445, 446, 447, 
       448, 449, 450, 451, 671, 607, 555, 517, 492, 478, 683, 619, 567, 529, 
       504, 696, 632, 580, 542, 710, 646, 594, 722, 658, 452, 672, 608, 725}],
       LineBox[{556, 715, 651, 518, 701, 637, 585, 493, 479, 453, 454, 455, 
       456, 457, 458, 459, 460, 461, 462, 463, 464, 465, 673, 609, 557, 519, 
       494, 480, 684, 620, 568, 530, 505, 697, 633, 581, 543, 711, 647, 595, 
       723, 659, 733, 466}]}, 
     {GrayLevel[0], LineBox[CompressedData["
1:eJwV03egTwUUB/D7Bp5dRJPivbJpWJVRQiqVkUJGKWVlFbIyKg2jUJFCRVFR
2UJD24qEUMkqe+8Vn/PH533PPfece9/v/u6vWJsujTqnJEnSxJ/5GUmyIzVJ
TqYlyQIG05DryMdO507JhTxPI0qQn13OnZaLeIHGlOQidjt3Rn7FizxAKS6O
8+lJslqOoz012GP+rPyaITShNAVix/zv8h06UJO95s/Jb3iJBylDwdgxv0a+
S0duY5/5/+W3vMxDlOWS2DG/Vo6nE7ez3/x5uZhXaEo5CsWO+XVyAk9RiwPm
E/3v1K/SjPJk6v0rp9OPwnENvT/kRDrH/+14n5zDHfHsHe+UX3Cj+qgcEPdX
H5BV5Tx5kzwmb5YH3T9Ffu94KM2pQJbef/Iz+nNp/A966+V7dKE2h+yn6v+g
HsbDXM9lsaO/Qb5PV+pw2Hya/o/q4bTgBi6PHf2N8gO6UZcj5tP1f1KPoGV8
Nq6IHf0/5SS6cydHzWfT/1n9Gq3i83Jl7Oj/JSfzNPU4Zj67/i/q12lNRa6K
Hf2/5Yc8w10cN59Df4l6JI9QiSKxo79JfkQP7uaE+Qz9pepRPEplisaO/j9y
Cj25h5Pmc+ovU4+mDVW4Onb0N8up9KI+p8zn0l+ufoPH4nvmmtjR3yI/5lnu
5bT53Por1G/yOKUc75Gz4p3gWsc74r7y8/h+5BH5HGXV++VcisV9HG+Vn9Cb
+zjjHnn0f1W/RVtuoThn4/cXvynymlmpN4YnuJXMuK7+NvkpfbifEnq75AwG
Uj7eXTk/vi/1cXneNfOpV8UzlmPjXZSH5ZOUVu+Vs6lGFgkppJJGOtnITg4y
yEkucpOH/K7zm3ybdlSPZxafT3+7nEZfGlBSb7ecySAqOD4kv4z3Rn0ino3M
Ky8AhR2k0g==
       "]]}, 
     {GrayLevel[0], LineBox[CompressedData["
1:eJwV1He0znUcB/DHSHSSQxzKSihCKZG9yt4X18q6knuNe42yMy4ZZTYpyqpc
sxBlJytJ00hpKcppqHBQxuvzx+u+35/vfc597vP9fn9PqZSMpPRsiURiuh+1
ciYSg25IJApzQH+BofSiNnWoSz3qk+51RfhYf5Fh9Ga8tfJ8q7/JZBqQYe02
Duov8QQpTLB2Dyf0t3iahgy2djuf6C/zJLPM1fld30gfJpor8J2+nDf0NuRi
inm+fJiL+i7W6J3JH+vmIbIoh/T1sjvz9EWyOQmGm2fLGvyhvy/7sElfITvE
PnAzO0jjMx7z+0xZkT18b94ke8fnIiv2SLblI25kG/34lKl+/4p8hP1cMm+V
j/OhvlZ2oQAfMCBeG+cmi8Xf0DfIHszXF8sWZGOEeY6syZ/6e6zUO5KXvuZJ
shI/xOeM89HbkZtp5ldlIy7ru2kU98BcPD5//O+MZK65Fn/F3nEtl88Qd8Pa
vfwY7810GsfdsFaCz+M9GMVz5tqc1TfTL+6K+T5+0lfxDE3irlgryRf6Akbz
vLkOf+tbSGWKuTIn9dU8G683N+Y/fQ9v6125labm4fKO2H++NL8re7JQXyJb
kp0x8QzJuvwT50YaU83383PcRWbQjBHWSvGV/hpj6U9zWtCSVrSmDW1pRxLt
6UBHkulE59h7f+9ODuuv8xQDmGbtAX6JO8RMusQ+WyvNkbj/LNVbkYNx8ZzL
euzj3ziHuONxZ2P/ZTK3MDDOUlbhVOxhPLt0jbOwVoajcR8ZH98H5vqc07cz
KM7S/CCn9Xfi+aMbY6yV5VjsNxPi+8HcgPP6DtLjLM1V+VVfF98NehJ5mGNe
KJvwv7433kPvRkEejf2Xd/G1vlH2Yqm+TLYmJxPN82RDLsS9iueGnXGfZCcO
ki/W6E9GnLmsxl5+i2dPpnCI9eYs2Z4Dsfe+gm6S20llbtyPuItc0ffRPc7W
fDfH438kk8FxttYe4oy+IZ6juAvmZlzV98f+xGemELvi/OhhfZwsx26+MV8H
+bPQBw==
       "]]}, 
     {GrayLevel[0], Thickness[Tiny], Dashing[{Small, Small}], 
      LineBox[CompressedData["
1:eJwV0lVokFEYBuBfdDMvZgcYs8AusANsN6xZYDvBdsMu7AI7wA7swhaxC+yA
2T2dgR3YeLPnXDy8N++J7/x/fHJqUkqWKIoySIuJomOxUTSZtlQgjqxcZB7d
qU1xbusfl1NoR0XyksYKBtCUbFxiPj2oQwkesI5htOaO/U7IqbSnEk/ZxAjy
hTNZyUCakcEOxhHDZRbQk/fsoy4v2MYYSvKQ9QznM4dowxt284eJfOco/7nr
fiflNH7QgXfs5S+VecZmfjGSLxzmH/nDjKziJ4P4yAGa84qdjOcrR4jlCgvp
xQf2U4+XbGcspXjEBlJI4C17mMQ9dz8lp9ORKjxnC6MoEOZjNYNpQXausoje
1Ceex2wklUTu2/u0nEESVSkYzmQNQ2hJDq6xmD40oHT4D6w/I2fSiWoUIifX
WUJfGlImfDv9s3IWnalOYXJxg6X0oxFlw7von5Oz6UINipCbmywjmcaUC/Pp
n5dz6EpNipKHWyynP00ozxP9C3Iu3ahFOlsZTbHwRqxlKJ84SCtes4vfTOAb
mbkcfH4=
       "]], LineBox[CompressedData["
1:eJwNzrtNAgAUhtGLicZGHEAbEhMcAHrtqai0NdgiAzCA9tIzAK1hAOy1xyeg
oIAiKCrg4xQnX3GTPzd1cJQvJiIix9lKxIw1LjilwA5prpYjGnrMHhk2SHLt
dsPWasSt3nFPizYdHnikS48nnukzYMgLr4x4Y8yEd9K2P3TKJ198M2POgh9+
+SP8leCcE/bJssk6l1Q4ZJdtmlQpkaNLjTJj6ixY4h9xJzZq
       "]]}, 
     {RGBColor[1, 0, 0], Thickness[0.005], LineBox[CompressedData["
1:eJwV0UdsSHEcwPHXoa1NY0aocrG52FyMqkPR4mKTUCRaiV0ORsvBTLSSShBS
kho1DlZJasWIxhZihqLqQFFJjcbnf/jk+/+9f97L+7+XOi83KycmiqJK4hKj
6B2lLCODgfQgnkYkkEgS7znKciYwiJ585SzrmcYoGlPFMVYwkcH04hvn2MB0
RtOEDxxnJZMYQj0VbGU+vanlPBuZEd4tKYru6T7GEJlv6m6W0Nz8WEtoykdO
sIrW9p5pZjiv9V0tZii/ucI22tp7qQvCM6wfalc9qB30jXbXPvqdC3Q2b9I2
+kJTdWb4NnpfU3S/ttfX2k3Haoze0i5aqO30lebQwvqJHqaj9VttxifKWE2y
6881K/w/60rdyzD+cJXtZId77T/SQ/TlBxfJZ1b4L/Yf6AHSiDXf1iJyw7el
mpOsYTLD+cs1drCQfvyknAJmMy6ch8+cIo8pjOAf19nJIvpTxyU2M4d0WlLD
adYylZE0cINdLGYAv7jMFuYynjjnuaN7WBqeZ36qR2jFF87QyfV1+h8+7mjs

       "]], 
      LineBox[{2067, 2010, 1878, 2055, 1998, 1947, 1854, 2047, 1990, 1937, 
       1899, 1841, 2039, 1982, 1928, 1890, 1866, 1809, 2028, 1971, 1917, 1879,
        1855, 1842, 1810, 1811, 1812, 1813, 1814, 1815, 1816, 1817, 1818, 
       1819, 1820, 1821, 1822, 1823, 1824, 1825, 1826, 1827, 1828, 1829, 2029,
        1972, 1918, 1880, 1856, 1843, 2040, 1983, 1929, 1891, 1867, 2052, 
       1995, 1943, 1905, 2064, 2007, 1959, 2074, 2017, 1830, 2030, 1973, 2076,
        1919}]}, 
     {GrayLevel[0], Thickness[0.003], LineBox[CompressedData["
1:eJwNw2c3lgEAANCnb/6GrxESZe+ZopBRRl6zbFKhYVWoXomyU8lIIkXn+Hfu
PedGhnrLey4EQRD2LCIILhpltJeMMdY4LxvvFRNM9KrXTHLFlz6w2mKzTXbV
MR9a43VzTHHNcTuttcRcv/nGfhu9barrTtjlXW+Y53enHfC+5aa54aTd3vOm
+W4546BNVpjuF6fssc5SC/zhrI8MWWmGm76y13rL3PW9T2y10G3fOmSzd/zp
nMO2m+lXX9tng7+cd9Rb7hn2qW3+dsHnFrnjOx975CdbPPCjzzx2ySr3/eA/
R/zjZ0/t8NBFT3zhX5f9b5bnjiZFGw==
       "]]}, 
     {GrayLevel[0.5], LineBox[{338, 339, 337}], LineBox[{736, 740, 735}], 
      LineBox[{739, 741, 738}], LineBox[{1793, 1794, 1792}], 
      LineBox[{2086, 2088, 
       2085}]}}, {{}, {}, {}, {}, {}, {}, {}, {}, {}, {}}}],
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesLabel->{
    FormBox["K", TraditionalForm], 
    FormBox["\"c\"", TraditionalForm]},
  AxesOrigin->{0, 0},
  AxesStyle->Arrowheads[{0., 0.02}],
  Epilog->{
    InsetBox[
     FormBox["\"1\"", TraditionalForm], {1.01, -0.04}], 
    InsetBox[
     FormBox["\"0\"", TraditionalForm], {-0.01, -0.04}], 
    InsetBox[
     FormBox[
     "\"\\!\\(\\*SubscriptBox[\\n StyleBox[\\\"c\\\",\\nFontSize->14], \\n \
StyleBox[\\\"WELF\\\",\\nFontSize->8]]\\)\"", TraditionalForm], {0.36, 0.09}], 
    InsetBox[
     FormBox[
     "\"\\!\\(\\*SubscriptBox[\\n StyleBox[\\\"c\\\",\\nFontSize->14], \\n \
StyleBox[\\\"TEST\\\",\\nFontSize->8]]\\)\"", TraditionalForm], {0.32, 0.35}], 
    InsetBox[
     FormBox[
     "\"\\!\\(\\*OverscriptBox[\\(K\\), \\(~\\)]\\)\"", TraditionalForm], {
     0.4, 0.65}], 
    InsetBox[
     FormBox["\"(false negatives)\"", TraditionalForm], {0.2, 0.5}], 
    InsetBox[
     FormBox["\"(false positives)\"", TraditionalForm], {0.55, 0.05}], 
    InsetBox[
     FormBox[
     "\"\\!\\(\\*OverscriptBox[\\n StyleBox[\\\"c\\\",\\nFontSize->14], \\\"~\
\\\"]\\)\"", TraditionalForm], {0.7, -0.12}]},
  LabelStyle->Directive[FontSize -> 8],
  Method->{"AxesInFront" -> True},
  PlotRange->{{-0.05, 1.05}, {-0.19, 1.1}},
  PlotRangeClipping->True,
  PlotRangePadding->{Automatic, Automatic},
  Ticks->{{{0, 
      FormBox["0", TraditionalForm]}, {1.01, 
      FormBox["1.01`", TraditionalForm]}}, {{-1, 
      FormBox[
       RowBox[{"-", "1"}], TraditionalForm]}, {1, 
      FormBox["1", TraditionalForm]}}}]], "Output",
 CellChangeTimes->{
  3.7844640971379833`*^9, {3.7844641448680687`*^9, 3.784464154141618*^9}, 
   3.784464213549856*^9, {3.784464249352311*^9, 3.7844642779993544`*^9}, {
   3.784464316585615*^9, 3.7844643282478247`*^9}, {3.7844644205158625`*^9, 
   3.784464501730569*^9}, {3.7844645544714174`*^9, 3.784464581704314*^9}, {
   3.784464627457811*^9, 3.784464663578128*^9}, 3.784471282968785*^9, 
   3.7844713184768505`*^9, {3.784708432057158*^9, 3.7847084841126747`*^9}, 
   3.7847085278563194`*^9, {3.7847085901478467`*^9, 3.7847086759690876`*^9}, 
   3.784708944200588*^9, {3.7847090338403325`*^9, 3.7847090987764883`*^9}, 
   3.7847091565847034`*^9, {3.7847092535146637`*^9, 3.7847092715810485`*^9}, {
   3.784709326805205*^9, 3.7847093469925337`*^9}, {3.78470957593061*^9, 
   3.7847095897875147`*^9}, 3.7850630242456617`*^9, {3.7850630582091*^9, 
   3.785063065759343*^9}, 3.785064313112278*^9, 3.785064400327151*^9, 
   3.785173321406125*^9, 3.7851733693092823`*^9, 3.785227875614834*^9}]
}, Open  ]]
}, Open  ]]
}, Open  ]]
},
WindowSize->{1264, 583},
WindowMargins->{{0, Automatic}, {Automatic, 0}},
PrintingCopies->1,
PrintingPageRange->{32000, 32000},
PrintingOptions->{"Magnification"->1.,
"PaperOrientation"->"Portrait",
"PaperSize"->{612, 792}},
PrivateNotebookOptions->{"VersionedStylesheet"->{"Default.nb"[8.] -> False}},
Magnification->1.350000023841858,
FrontEndVersion->"9.0 for Microsoft Windows (64-bit) (November 20, 2012)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[579, 22, 560, 9, 263, "Title"],
Cell[1142, 33, 152, 3, 41, "Input"],
Cell[CellGroupData[{
Cell[1319, 40, 179, 2, 106, "Section"],
Cell[1501, 44, 2090, 44, 123, "Input"],
Cell[3594, 90, 1712, 43, 258, "Input"]
}, Open  ]],
Cell[CellGroupData[{
Cell[5343, 138, 117, 1, 106, "Section"],
Cell[5463, 141, 1262, 26, 150, "Input"],
Cell[CellGroupData[{
Cell[6750, 171, 415, 9, 41, "Input"],
Cell[7168, 182, 1365, 24, 60, "Output"]
}, Open  ]],
Cell[8548, 209, 657, 19, 69, "Input"],
Cell[CellGroupData[{
Cell[9230, 232, 1048, 29, 96, "Input"],
Cell[10281, 263, 1205, 17, 40, "Output"],
Cell[11489, 282, 1320, 22, 60, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[12846, 309, 823, 23, 96, "Input"],
Cell[13672, 334, 1110, 16, 60, "Output"]
}, Open  ]],
Cell[14797, 353, 988, 19, 123, "Input"],
Cell[CellGroupData[{
Cell[15810, 376, 1026, 25, 96, "Input"],
Cell[16839, 403, 1477, 26, 45, "Output"],
Cell[18319, 431, 1443, 25, 45, "Output"]
}, Open  ]],
Cell[19777, 459, 251, 6, 41, "Input"],
Cell[CellGroupData[{
Cell[20053, 469, 1728, 35, 150, "Input"],
Cell[21784, 506, 2208, 41, 433, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[24029, 552, 1124, 24, 96, "Input"],
Cell[25156, 578, 2057, 46, 60, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[27250, 629, 892, 21, 123, "Input"],
Cell[28145, 652, 408, 6, 60, "Output"],
Cell[28556, 660, 562, 12, 60, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[29155, 677, 1413, 35, 123, "Input"],
Cell[30571, 714, 292, 5, 60, "Output"],
Cell[30866, 721, 446, 11, 60, "Output"],
Cell[31315, 734, 430, 11, 96, "Output"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[31794, 751, 334, 4, 106, "Section"],
Cell[CellGroupData[{
Cell[32153, 759, 310, 4, 59, "Subsection"],
Cell[32466, 765, 565, 12, 69, "Input"],
Cell[CellGroupData[{
Cell[33056, 781, 977, 27, 41, "Input"],
Cell[34036, 810, 1771, 35, 64, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[35844, 850, 1312, 36, 150, "Input"],
Cell[37159, 888, 1858, 37, 67, "Output"],
Cell[39020, 927, 2152, 50, 74, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[41209, 982, 1011, 20, 69, "Input"],
Cell[42223, 1004, 304, 6, 64, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[42564, 1015, 1001, 30, 69, "Input"],
Cell[43568, 1047, 834, 22, 64, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[44439, 1074, 2837, 80, 339, "Input"],
Cell[47279, 1156, 591, 11, 60, "Output"],
Cell[47873, 1169, 487, 7, 40, "Output"],
Cell[48363, 1178, 550, 9, 63, "Output"],
Cell[48916, 1189, 464, 6, 40, "Output"]
}, Open  ]],
Cell[49395, 1198, 511, 12, 69, "Input"]
}, Open  ]],
Cell[CellGroupData[{
Cell[49943, 1215, 461, 8, 59, "Subsection"],
Cell[CellGroupData[{
Cell[50429, 1227, 1334, 32, 150, "Input"],
Cell[51766, 1261, 524, 14, 45, "Output"]
}, Open  ]],
Cell[52305, 1278, 365, 8, 41, "Input"],
Cell[CellGroupData[{
Cell[52695, 1290, 562, 15, 69, "Input"],
Cell[53260, 1307, 797, 13, 63, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[54094, 1325, 859, 23, 96, "Input"],
Cell[54956, 1350, 646, 18, 70, "Output"],
Cell[55605, 1370, 522, 13, 63, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[56164, 1388, 1859, 53, 177, "Input"],
Cell[58026, 1443, 551, 13, 60, "Output"],
Cell[58580, 1458, 1094, 30, 67, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[59711, 1493, 6239, 175, 528, "Input"],
Cell[65953, 1670, 4607, 86, 589, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[70597, 1761, 4790, 122, 501, "Input"],
Cell[75390, 1885, 8435, 156, 344, "Output"]
}, Open  ]],
Cell[83840, 2044, 375, 9, 41, "Input"]
}, Open  ]],
Cell[CellGroupData[{
Cell[84252, 2058, 636, 10, 59, "Subsection"],
Cell[CellGroupData[{
Cell[84913, 2072, 1650, 41, 123, "Input"],
Cell[86566, 2115, 606, 16, 63, "Output"],
Cell[87175, 2133, 822, 22, 70, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[88034, 2160, 609, 16, 69, "Input"],
Cell[88646, 2178, 267, 6, 61, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[88950, 2189, 3229, 92, 366, "Input"],
Cell[92182, 2283, 3078, 58, 631, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[95297, 2346, 2713, 79, 208, "Input"],
Cell[98013, 2427, 1731, 48, 77, "Output"],
Cell[99747, 2477, 1230, 34, 77, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[101014, 2516, 3571, 91, 397, "Input"],
Cell[104588, 2609, 966, 18, 64, "Output"],
Cell[105557, 2629, 5023, 92, 433, "Output"]
}, Open  ]],
Cell[110595, 2724, 1236, 23, 150, "Input"],
Cell[111834, 2749, 229, 6, 41, "Input"],
Cell[CellGroupData[{
Cell[112088, 2759, 939, 21, 123, "Input"],
Cell[113030, 2782, 770, 22, 77, "Output"],
Cell[113803, 2806, 832, 23, 79, "Output"],
Cell[114638, 2831, 647, 18, 45, "Output"]
}, Open  ]],
Cell[115300, 2852, 830, 19, 96, "Input"],
Cell[116133, 2873, 1655, 47, 116, "Input"],
Cell[117791, 2922, 1224, 37, 150, "Input"],
Cell[119018, 2961, 133, 2, 41, "Input"],
Cell[CellGroupData[{
Cell[119176, 2967, 4208, 115, 505, "Input"],
Cell[123387, 3084, 439753, 6769, 631, "Output"]
}, Open  ]],
Cell[563155, 9856, 2665, 54, 312, "Input"],
Cell[565823, 9912, 94, 1, 41, "Input"],
Cell[CellGroupData[{
Cell[565942, 9917, 11280, 269, 1038, "Input"],
Cell[577225, 10188, 22921, 396, 330, "Output"]
}, Open  ]]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[600207, 10591, 365, 5, 106, "Section"],
Cell[600575, 10598, 1340, 26, 123, "Input"],
Cell[CellGroupData[{
Cell[601940, 10628, 2197, 58, 258, "Input"],
Cell[604140, 10688, 890, 14, 40, "Output"],
Cell[605033, 10704, 1106, 22, 40, "Output"],
Cell[606142, 10728, 881, 14, 72, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[607060, 10747, 1185, 26, 150, "Input"],
Cell[608248, 10775, 705, 13, 40, "Output"]
}, Open  ]],
Cell[608968, 10791, 726, 14, 69, "Input"],
Cell[609697, 10807, 666, 12, 69, "Input"],
Cell[CellGroupData[{
Cell[610388, 10823, 940, 22, 96, "Input"],
Cell[611331, 10847, 1297, 30, 73, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[612665, 10882, 947, 22, 96, "Input"],
Cell[613615, 10906, 7108, 122, 504, "Output"]
}, Open  ]],
Cell[620738, 11031, 451, 10, 69, "Input"],
Cell[CellGroupData[{
Cell[621214, 11045, 689, 19, 96, "Input"],
Cell[621906, 11066, 5748, 101, 329, "Output"]
}, Open  ]],
Cell[627669, 11170, 1111, 21, 123, "Input"],
Cell[CellGroupData[{
Cell[628805, 11195, 2325, 64, 204, "Input"],
Cell[631133, 11261, 856, 16, 40, "Output"],
Cell[631992, 11279, 959, 20, 60, "Output"],
Cell[632954, 11301, 676, 9, 40, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[633667, 11315, 2117, 56, 231, "Input"],
Cell[635787, 11373, 5543, 99, 504, "Output"]
}, Open  ]],
Cell[641345, 11475, 512, 12, 69, "Input"],
Cell[CellGroupData[{
Cell[641882, 11491, 1900, 49, 258, "Input"],
Cell[643785, 11542, 2319, 47, 631, "Output"]
}, Open  ]],
Cell[646119, 11592, 617, 13, 96, "Input"],
Cell[CellGroupData[{
Cell[646761, 11609, 315, 8, 41, "Input"],
Cell[647079, 11619, 389, 10, 64, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[647505, 11634, 1788, 47, 150, "Input"],
Cell[649296, 11683, 2025, 57, 63, "Output"],
Cell[651324, 11742, 2666, 50, 467, "Output"],
Cell[653993, 11794, 1084, 29, 63, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[655114, 11828, 2891, 83, 285, "Input"],
Cell[658008, 11913, 596, 9, 40, "Output"],
Cell[658607, 11924, 729, 14, 40, "Output"],
Cell[659339, 11940, 832, 18, 60, "Output"],
Cell[660174, 11960, 551, 7, 40, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[660762, 11972, 1261, 29, 96, "Input"],
Cell[662026, 12003, 1196, 31, 67, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[663259, 12039, 2066, 50, 177, "Input"],
Cell[665328, 12091, 1444, 33, 63, "Output"],
Cell[666775, 12126, 3143, 58, 631, "Output"]
}, Open  ]],
Cell[669933, 12187, 372, 7, 41, "Input"],
Cell[CellGroupData[{
Cell[670330, 12198, 2270, 47, 204, "Input"],
Cell[672603, 12247, 1065, 28, 63, "Output"],
Cell[673671, 12277, 1218, 30, 67, "Output"],
Cell[674892, 12309, 3695, 65, 467, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[678624, 12379, 10813, 254, 1005, "Input"],
Cell[689440, 12635, 36536, 629, 331, "Output"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[726025, 13270, 672, 11, 106, "Section"],
Cell[CellGroupData[{
Cell[726722, 13285, 3243, 92, 258, "Input"],
Cell[729968, 13379, 2335, 67, 114, "Output"],
Cell[732306, 13448, 2660, 52, 467, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[735003, 13505, 2405, 65, 204, "Input"],
Cell[737411, 13572, 1249, 32, 67, "Output"],
Cell[738663, 13606, 2373, 44, 499, "Output"]
}, Open  ]],
Cell[741051, 13653, 372, 7, 41, "Input"],
Cell[CellGroupData[{
Cell[741448, 13664, 2316, 45, 177, "Input"],
Cell[743767, 13711, 4126, 75, 467, "Output"]
}, Open  ]],
Cell[747908, 13789, 118, 2, 41, "Input"],
Cell[CellGroupData[{
Cell[748051, 13795, 2065, 52, 177, "Input"],
Cell[750119, 13849, 9903, 185, 467, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[760059, 14039, 9205, 231, 947, "Input"],
Cell[769267, 14272, 38110, 655, 363, "Output"]
}, Open  ]]
}, Open  ]]
}, Open  ]]
}
]
*)

(* End of internal cache information *)
